Mojo::Webqq使用简介

#发送二维码到邮箱

$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登录密码

});

#发送验证码到邮箱

$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

});

#进退群提醒

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;

    },

);

#smartQQ

$client->load("SmartReply");

#对大神进行鄙视

$client->load("FuckDaShen");

#创建知识库

$client->load("KnowledgeBase");

#示例：

#learn 今天天气怎么样 天气很好 #添加知识库

#学习 "你吃了吗" 当然吃了 #添加知识库

#learn '哈哈 你真笨' "就你聪明" #添加知识库

#del 今天天气怎么样 #删除知识库

#删除 '哈哈 你真笨' #删除知识库

#显示perl文档

$client->load("Perlcode");

#示例：perldoc -f|-v xxx

#执行perl命令

#$client->load("Perldoc");

#示例：>>> print "hello world";

<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>