资源介绍：

最右APP新帖全自动私聊脚本

自动过滤用户已发用户

自动翻页

资源作者：

杀死书生

资源界面：

资源源码：

Dim intX1, intY1,intX3, intY3,intX4, intY4,intX5,intY5,startx,starty, endx,endy,count,结果,已发,继续 Dim img="Attachment:三点.png" Import "zm.luae" //导入插件,只需执行一次 zm.Init  //初始化插件,只需执行一次 276   Rem 继续 startx = 662 : starty = 90 : endx = 720 : endy = 1280  : count = 0 Do     FindPic startx, starty, endx, endy, img,"000000",0,  0.8, intX1, intY1'一图多坐标写法     If intx1 = - 1  Then         If startx=0 Then Exit do //查找结束         starty = starty + 1 : startx = 0     Else         If inty1 = starty or startx = 0 Then             startx = intx1 + 1:starty=inty1             count = count + 1             结果 = 结果 & intx1 - 639 & "," & inty1 & "|"         Else             startx = 0 : starty = starty + 1         End If     End If Loop 结果 = Split(结果, "|")  For i = 0 To UBOUND(结果) - 1     TracePrint 结果(i)'按顺序输出所有坐标      zm.Tap 结果(i),1000'点击      已发 = 0      While 已发 = 0           Delay 200          FindPic 651, 1237, 707, 1270, "Attachment:发送.png", "000000", 0, 0.9, intX4, intY4         If intX4 > -1 And intY4 > -1 Then             TracePrint "私聊界面"              InputText "关注微信公众号：**** 回复资源名字 就能观看影视、小说、网盘、等资源哦!"             Delay 500              Tap 681, 1252              Delay 500             KeyPress "Back"             Delay 500             KeyPress "Back"             Delay 3000              已发 = 1                       Else            /*  FindPic 555, 46, 582, 71, "Attachment:已关注.png", "000000", 0, 0.8, intX3, intY3              If intX3 > -1 And intY3 > -1 Then                  TracePrint "已关注"              Else */              // TracePrint "点击私聊"                         // zm.Tap 589,59, 500 //点击关注              //zm.Tap 640,60, 200 //点击私聊              //End If                                          FindPic 291,630,431,688,"Attachment:已封.png","000000",0,0.9,intX5,intY5             If intX5 > -1 And intY5 > -1 Then                 TracePrint "被私聊的用户被封了"                 Delay 500                 KeyPress "Back"                  Delay 3000                  已发 = 1              Else                 TracePrint "点击私聊"                 zm.Tap 640,60, 200 //点击私聊              End If         End If     Wend Next  结果 = "" zm.Swipe 312,1276,338,0, 300 '滑动   Delay 1000 Goto 继续