Mojo::Webqq使用简介

uoou

之前有介绍过《使用Mojo-Webqq实现nagiosQQ群告警》，但这只是Mojo::Webqq的其中一个openqq的功能，Mojo::Webqq还有很多功能有待介绍，下面先来说说几个我正在用的，也是比较常用的功能，以及这些功能的实现方式。

Mojo::Webqq的安装和登录以及openqq的使用方法就不说了，《使用Mojo-Webqq实现nagiosQQ群告警》上都有说明。
1.使用邮件发送二维码

1. #发送二维码到邮箱
2. $client->load("PostQRcode",data=>{
3. smtp    =>  'smtp.1111.com', #邮箱的smtp地址
4. port    =>  '25', #smtp服务器端口，默认25
5. from    =>  '1111@1111.com', #发件人
6. to      =>  '1111@1111.com', #收件人
7. user    =>  '1111@1111.com', #smtp登录帐号
8. pass    =>  '11111111', #smtp登录密码
9. });

复制代码

需要注意的是，此方法需要放在login操作前。
2.使用邮件发送验证码

1. #发送验证码到邮箱
2. $client->load("PostImgVerifycode",data=>{
3. smtp    =>  'smtp.1111.com', #邮箱的smtp地址
4. port    =>  '25', #smtp服务器端口，默认25
5. from    =>  '1111@1111.com', #发件人
6. to      =>  '1111@1111.com', #收件人
7. user    =>  '1111@1111.com', #smtp登录帐号
8. pass    =>  '11111111', #smtp登录密码
9. post_host => '111.111.111.111' , #本机公网IP地址，需要远程访问
10. post_port => '1987'            , #提交验证码的链接地址中使用的端口，默认1987
11. });

复制代码

此方法也是需要放在login操作前。
3.进/退群提醒

1. #进退群提醒
2. my $new_group_member_cout = 0;
3. Mojo::IOLoop->recurring(900,sub{
4.     $new_group_member_cout=0;
5. });
7. $client->on(
8.     new_group_member=>sub{
9.         if($new_group_member_cout>10){
10.             $client->fatal("new_group_member事件触发次数超过限制");
11.             return;
12.         }
13.         my $memer = $_[1];
14.         my $displayname = $memer->displayname;
15.         my $content = $displayname ne "昵称未知"?"欢迎新成员 \@$displayname 加入组织[鼓掌][鼓掌]":"欢迎新成员入群[鼓掌][鼓掌]";
16.         my $group = $client->search_group(gid=>$memer->gid);
17.         $group->send($content) if defined $group;
18.         $new_group_member_cout++;
19.     },
20.     lose_group_member=>sub{
21.         my $memer = $_[1];
22.         my $displayname = $memer->displayname ;
23.         return if $displayname eq "昵称未知";
24.         my $content = "很遗憾 \@$displayname 离开了本群[流泪][流泪]";
25.         my $group = $client->search_group(gid=>$memer->gid);
26.         $group->send($content) if defined $group;
27.     },
28. );

复制代码

主要用于表示对群内新用户加入时的欢迎，以及对用户退群表示遗憾。
4.智能回复

1. #smartQQ
2. $client->load("SmartReply");

复制代码

调用的是图灵机器人的接口，使用方式是私聊机器人，或在群里@机器人进行聊天，具体功能请参考图灵机器人的使用方法：tuling123。
5.鄙视大神
#对大神进行鄙视$client->load("FuckDaShen");自动识别群内“大神”关键字，并利用预设的库进行调侃。
6.自定义回复

1. #创建知识库
2. $client->load("KnowledgeBase");

复制代码

创建知识库对指定关键字进行回复，目前仅限于完全匹配。使用方法：

1. #示例：
2. #learn 今天天气怎么样 天气很好 #添加知识库
3. #学习 "你吃了吗" 当然吃了 #添加知识库
4. #learn '哈哈 你真笨' "就你聪明" #添加知识库
5. #del 今天天气怎么样 #删除知识库
6. #删除 '哈哈 你真笨' #删除知识库

复制代码

7.查询perl文档

1. #显示perl文档
2. $client->load("Perlcode");
3. #示例：perldoc -f|-v xxx

复制代码

使用Pod:erldoc插件实现perl文档的查询。
8.执行perl命令

1. #执行perl命令
2. #$client->load("Perldoc");
3. #示例：>>> print "hello world";

复制代码

执行本机perl命令，需要“>>>”进行标识。
9.代码测试

1. #代码测试
2. $client->load("ProgramCode");
3. #示例：code|c>>>
4. #        #include
5. #        int main() {
6. #            printf("Hello World!\n");
7. #            return 0;
8. #        }

复制代码

使用glot.io网站接口进行代码测试，需要“code|c>>>”进行标识，支持27种语言的测试，具体功能见：glot.io。
好了，就先介绍这么多，这些都是通过外部环境，来实现QQ上所没有的功能，比较实用也比较有趣。但Mojo::Webqq的功能绝不仅限于此，很多群权限控制及操作由于平时接触不多，而且我也没在用，所以就不详细解释了。

天各一方8

学习了