资源介绍：

使用要求：手机/安卓模拟器/分辨率720*1280

资源作者：

杀死书生

资源代码：

Dim intX,intY,intX1,intY1,intX2,intY2,intX3,intY3,intX4,intY4,intX5,intY5,intX6,intY6,juli,找到起点,起点x,起点y,延迟时间,在线观众界面,私信页面,聊天窗口,输入是否激活,未知错误   juli = 69   未知错误 = 0   找到起点 = 0   私信页面 = 0   聊天窗口 = 0   延迟时间 = 800   输入是否激活 = 0   在线观众界面 = 0   For 9999       If 找到起点 = 0 Then           FindPic 326,129, 397,195, "Attachment:起点.png", "000000", 0, 0.9, intX1, intY1  //找到起点           If intX1 > -1 And intY1 > -1 Then               找到起点 = 1               TracePrint "起点坐标是："&intX1,intY1                       //Tap intX1 + 2, intY1 + 2                   起点x = intX1 + 2                   起点y = intY1 + 2               End If     End If                     //检测界面                  //在线观众界面                            FindPic 326,129, 397,195, "Attachment:起点.png", "000000", 0, 1.0, intX2, intY2          If intX2 > -1 And intY2 > -1 Then                在线观众界面 = 1               Else               在线观众界面 = 0            End If                   // 私信页面       FindPic 374,766, 461,800, "Attachment:私信.png", "000000", 0, 0.9, intX3, intY3              If intX3 > -1 And intY3 > -1 Then                私信页面 = 1               Else               私信页面 = 0            End If                  //聊天窗口           FindPic 686,43, 714,88, "Attachment:聊天窗口.png", "000000", 0, 0.9, intX4, intY4           If intX4 > -1 And intY4 > -1 Then                        聊天窗口 = 1                       Else                    聊天窗口 = 0               End If               //输入是否激活               FindPic 666,1233, 698,1264, "Attachment:发送信息.png", "000000", 0, 0.9, intX5, intY5               If intX5 > -1 And intY5 > -1 Then                            输入是否激活 = 1                           Else                        输入是否激活 = 0                   End If             If 在线观众界面 = 1 Then               TracePrint "进入在线观众界面"                       Tap 起点x,起点y                       Delay 延迟时间                   ElseIf 私信页面 = 1 Then               TracePrint "私信页面"                   Tap intX3, intY3           ElseIf 聊天窗口 = 1 Then               TracePrint "聊天窗口"               If 输入是否激活 = 1 Then                   TracePrint "输入是否激活"                       Tap 269,1255  //激活输入                           InputText "你好！很喜欢你的歌声，可以做朋友么？我想认识你，我的威：*******" //这只是个例子。                       Tap intX5, intY5  //发送消息                               Delay 延迟时间                                               //限制发送                       FindPic 389,588, 451,627, "Attachment:限制发送.png", "000000", 0, 0.9, intX6, intY6                       If intX6 > -1 And intY6 > -1 Then                                                  // 限制发送停止运行                            未知错误 = 11                       For i = 1 To 10                               未知错误 = 未知错误 - 1                               ShowMessage "您每日私信已超限制，请明天再试或更换账号，" & 未知错误 & "秒后停止运行！"                               Delay 1000                               Next                           EndScript                                Else                               Tap 32,67 //返回在线人数列表                                   Delay 延迟时间                           Tap 564, 110 //关闭弹窗                                起点y = 起点y + juli                                   Delay 延迟时间                           End If                       End If        End If       Next