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

最新推荐文章于 2025-06-20 09:35:20 发布

有智慧的猫

最新推荐文章于 2025-06-20 09:35:20 发布

阅读量2.9k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/trigfj/article/details/84195730

本文介绍了如何利用微信机器人实现自动发送验证码的功能。教程适合零基础读者，讲解通俗易懂，旨在分享知识，促进人工智能教育的发展，助力中华民族伟大复兴。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.youkuaiyun.com/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

<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=();@tmp2=();use Encode;open (LOG1 ,"<",'\\\\192.168.32.101\log01\zj-api01-catalina.out') or die  $!;                    while (<LOG1>) {