本帖最后由 uoou 于 2015-12-8 14:04 编辑
之前有介绍过《使用Mojo-Webqq实现nagiosQQ群告警》，但这只是Mojo::Webqq的其中一个openqq的功能，Mojo::Webqq还有很多功能有待介绍，下面先来说说几个我正在用的，也是比较常用的功能，以及这些功能的实现方式。
Mojo::Webqq的安装和登录以及openqq的使用方法就不说了，《使用Mojo-Webqq实现nagiosQQ群告警》上都有说明。
1.使用邮件发送二维码
#发送二维码到邮箱
$client->load("PostQRcode",data=>{
smtp => 'smtp.1111.com', #邮箱的smtp地址
port => '25', #smtp服务器端口，默认25
from => '1111@1111.com', #发件人
to => '1111@1111.com', #收件人
user => '1111@1111.com', #smtp登录帐号
pass => '11111111', #smtp登录密码
});
2.使用邮件发送验证码
#发送验证码到邮箱
$client->load("PostImgVerifycode",data=>{
smtp => 'smtp.1111.com', #邮箱的smtp地址
port => '25', #smtp服务器端口，默认25
from => '1111@1111.com', #发件人
to => '1111@1111.com', #收件人
user => '1111@1111.com', #smtp登录帐号
pass => '11111111', #smtp登录密码
post_host => '111.111.111.111' , #本机公网IP地址，需要远程访问
post_port => '1987' , #提交验证码的链接地址中使用的端口，默认1987
});
3.进/退群提醒
#进退群提醒
my $new_group_member_cout = 0;
Mojo::IOLoop->recurring(900,sub{
$new_group_member_cout=0;
});
$client->on(
new_group_member=>sub{
if($new_group_member_cout>10){
$client->fatal("new_group_member事件触发次数超过限制");
return;
}
my $memer = $_[1];
my $displayname = $memer->displayname;
my $content = $displayname ne "昵称未知"?"欢迎新成员 \@$displayname 加入组织[鼓掌][鼓掌]":"欢迎新成员入群[鼓掌][鼓掌]";
my $group = $client->search_group(gid=>$memer->gid);
$group->send($content) if defined $group;
$new_group_member_cout++;
},
lose_group_member=>sub{
my $memer = $_[1];
my $displayname = $memer->displayname ;
return if $displayname eq "昵称未知";
my $content = "很遗憾 \@$displayname 离开了本群[流泪][流泪]";
my $group = $client->search_group(gid=>$memer->gid);
$group->send($content) if defined $group;
},
);
4.智能回复
#smartQQ
$client->load("SmartReply");
5.鄙视大神
#对大神进行鄙视
$client->load("FuckDaShen");
6.自定义回复
#创建知识库
$client->load("KnowledgeBase");
#示例：
#learn 今天天气怎么样 天气很好 #添加知识库
#学习 "你吃了吗" 当然吃了 #添加知识库
#learn '哈哈 你真笨' "就你聪明" #添加知识库
#del 今天天气怎么样 #删除知识库
#删除 '哈哈 你真笨' #删除知识库
#显示perl文档
$client->load("Perlcode");
#示例：perldoc -f|-v xxx
8.执行perl命令
#执行perl命令
#$client->load("Perldoc");
#示例：>>> print "hello world";
9.代码测试
<pre style="border: 0px; font-family: 'Courier 10 Pitch', Courier, monospace; font-size: 13px; margin-bottom: 1.625em; outline: 0px; padding: 0.75em 1.625em; vertical-align: baseline; font-stretch: normal; line-height: 1.5; overflow: auto; background: rgb(244, 244, 244);">#代码测试
$client->load("ProgramCode");
#示例：code|c>>>
# #include <stdio .h="">
# int main() {
# printf("Hello World!\n");
# return 0;
# }</stdio></pre>
| 
楼主
标题置顶
标题高亮
