mojo::webqq两个群消息相互联通

很早很早之前就看到一个这样的功能,当时在extmail的两个群hzqbbc用net::oicq模块写了一个程序,然后将两个群的信息互通起来,这个功能令人羡慕妒忌恨啊,当然也没有办法要得到代码。今天正好想到webqq ,所以在cpan找到了灰灰大侠的webqq模块,功能实在太强了,所以我利用灰灰大侠的webqq实现了这个小功能。这也算圆梦了。
注意,登录qq必须要先加两个群才能进行消息转发。

use Mojo::Webqq;
use Mojo::Util qw(md5_sum);

my $qq = 111111; # 你的qq号           
my $pwd = "aaaaaaaaa"; #QQ密码
my $pwd_md5 = md5_sum($pwd);

my $client=Mojo::Webqq->new(
    ua_debug    =>  0,        
    log_level   =>  "info" ,
    qq          =>  $qq, 
    pwd         =>  $pwd_md5,
    login_type  =>  "qrlogin",
    'tmpdir'	=>'D:\\Dwimperl\\test_fy\\qq'
);
$client->load("ShowMsg");


$client->on(receive_message=>sub{
    my ($client,$msg)=@_;
    
    #$msg->dump();# 要先用这个dump 功能才能看到groupid
    if($msg->{group_id} eq 2436979435){  
	my $sender= $msg->{sender};
	my $nick=$sender->{nick};
	my $qq = $sender->{qq};
	
	my $group = $client->search_group(gname=>"LINUX/UNIX"); #转发的QQ群名字
	$client->send_group_message($group,$nick.'['.$qq.']:'.$msg->content);
    } 
    if($msg->{group_id} eq 3067430334){
	my $sender= $msg->{sender};
	my $nick=$sender->{nick};
	my $qq = $sender->{qq};
	my $group = $client->search_group(gname=>"windows企业技术");  #转发的QQ群名字
	#$client->send_group_message($group,$msg->content);
	$client->send_group_message($group,$nick.'['.$qq.']:'.$msg->content);
    } 
    
    #$msg->reply($msg->content); #已以相同内容回复接收到的消息
    #你也可以使用$msg->dump() 来打印消息结构
});

$client->on(ready=>sub{
    my $client = shift;
 
    #你的代码写在此处 
 
});

$client->run();

参考

https://metacpan.org/pod/Mojo::Webqq