最右App主题新帖自动发送私聊脚本

资源介绍：

最右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 继续