利用微信机器人,自动发送验证码

最新推荐文章于 2024-07-03 10:51:59 发布

scan724

最新推荐文章于 2024-07-03 10:51:59 发布

阅读量6.3k

点赞数 2

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50167979

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

该博客介绍了一个利用微信机器人自动获取验证码的过程。通过读取特定日志文件，匹配手机号码和‘验证’关键词，提取验证码信息，并将结果显示在微信上。如果未找到验证码，则会发送相应提示。此外，机器人还能够处理股票查询请求，返回指定股票的当前价格。

摘要由CSDN通过智能技术生成

<pre name="code" class="sql"> use Weixin::Client;
 use Encode;
 #目前只能用于群回复
    my $client = Weixin::Client->new(debug=>0);

    #加载ShowMsg插件，用于打印消息
    $client->load("ShowMsg");

    #客户端登录
    $client->login();   

    #设置客户端接收消息回调函数
    $client->on_receive_msg = sub{
	     my $msg = shift ;
	    # my ($client,$msg)=@_;
	## 消息内容

        #打印收到的消息
	 $client->call("ShowMsg",$msg);
	$recm= $msg->{Content};
    $recm=encode("gbk",decode("utf8","$recm"));  
if   ($recm =~/中均\s+\d{11}/i){
        $recm =~ s/^\s+//;
        $number =(split(/\s+/,"$recm"))[1];
$i=0;
@arr=();
@tmp1=();
&

了解本专栏