资源说明：

使用要求：

1.逍遥模拟器

2.模拟器分辨率

资源作者：

资源图片：

资源源码：

dim cz_intx,cz_inty,startx,starty, endx,endy,count,结果,首次,话术1,话术2,话术3,临时路径,延迟时间Dim 关注,发消息,话术私聊,随机字符前缀,随机字符后缀,话术,话术发送完毕,完成操作,点击之后,intX,intY,错误信息
临时路径 = GetTempDir()
PutAttachment 临时路径 & "Misaki_douyin1.0/", "*.luae"
PutAttachment 临时路径 & "Misaki_douyin1.0/", "*.png"
首次 = 0
话术1 = ReadUIConfig("话术1", "text1.text2.text3")
话术2 = ReadUIConfig("话术2", "text1.text2.text3")
话术3 = ReadUIConfig("话术3", "text1.text2.text3")
Dim a = {话术1, 话术2, 话术3}
Dim img="Attachment:aixin.png"
If ReadUIConfig("延迟时间") = 0 Then 
    延迟时间 = 800
ElseIf ReadUIConfig("延迟时间") = 1 Then
    延迟时间 = 2500
ElseIf ReadUIConfig("延迟时间") = 2 Then
    延迟时间 = 9500
End If
//ShowMessage "延时时间："&延迟时间
TracePrint "延时时间："&延迟时间
Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
zm.Swipe 358,1222, 312, -10, 300 //滑动
Do
    Call 重置起点()
    TracePrint "按顺序输出所有坐标"
    结果 = Split(结果, "|") 
    For i = 首次 To UBOUND(结果) - 1
        TracePrint 结果(i)'按顺序输出所有坐标
        zm.Tap 结果(i),1000'点击 
        关注 = 0
        发消息 = 0
        完成操作 = 0
        点击之后 = 0
        错误信息 = 0
        Do While 完成操作 = 0
            //查找关注坐标
            If 关注 = 0 Then
                If CmpColorEx("552|119|341E6F,652|119|331D6E,552|160|4827C8,651|160|552CFE,589|138|552CFE,589|137|D5CBFF,621|150|6C48FE,621|149|F8F6FF,621|148|B8A7FF", 0.9) = 1 Then
                    TracePrint "关注"
                    Tap 605, 145
                    关注 = 1
                End If
            Else
                错误信息 = 错误信息 + 1
                If 错误信息 > 6 Then
                    Tap 24,58
                    完成操作 = 1
                End If
                TracePrint "错误信息次数："&错误信息
            End If
            //查找发送消息
            If 关注 = 1 or 话术发送完毕 = 1 Then
                If CmpColorEx("502|118|211715,602|119|2E2423,602|161|2E2423,524|133|4D4644,525|133|8E8988,526|133|6B6564,581|149|948F8E,582|149|7B7574",0.9) = 1 Then
                    If 关注 = 1 Then
                        TracePrint "发消息"
                        Tap 552,141
                        关注 = 0
                        发消息 = 1
                    ElseIf 话术发送完毕 = 1 Then
                        Tap 24,58
                        完成操作 = 1
                    End If
                End If
            End If
            //发送消息界面
            If 发消息 = 1 or 点击之后 = 0 Then
                If CmpColorEx("650|1245|655E5C,640|1256|372D2B,650|1266|655E5C,661|1255|655D5B,646|1251|605857,646|1250|231816,652|1251|362C2A,651|1251|231816,646|1258|645C5B,653|1258|655E5C",0.9) = 1 Then
                    TracePrint "发送消息界面"
                    Tap 52, 1259
                    发消息 = 0
                    话术私聊 = 1
                End If
            End If
            If 话术私聊 = 1 Then
                随机字符前缀 = zm.RndStr(3, 4 + 8, true)
                随机字符后缀 = zm.RndStr(3, 1 + 4 + 8, true)
                话术 = zm.RndArrElement(a)
                //                话术 = " 你好，我非常喜欢你的作品，我的 V 123456 交个朋友吧！"
                InputText 随机字符前缀 & " " & 话术 & " " & 随机字符后缀
                话术私聊 = 0
                话术发送完毕 = 1
                Delay 延迟时间
                Tap 700, 1260
                Delay 200
                Tap 24,58
            End If
            Delay 2000
        Loop
    Next
    zm.Swipe 358,1222, 312, -10, 300 //滑动
Loop
Sub 重置起点()
    Do
        startx = 1 : starty = 1 : endx = 720 : endy = 1280  : count = 0
        结果 = ""
        Do
            FindPic startx, starty, endx, endy, img,"000000",0,0.9, cz_intx, cz_inty'一图多坐标写法
            If cz_intx = -1 Then
                Exit do
            Else
                //startx = cz_intx + 60
                starty = cz_inty + 5
                count = count + 1 
                结果 = 结果 & cz_intx - 258 & "," & cz_inty + 12 & "|"
                TracePrint cz_intx, cz_inty
                TracePrint "x:"&cz_intx&"y:"&cz_inty&"几张:"&count&" "&结果
                //                Tap cz_intx - 258, cz_inty + 12
            End If
            If 结果 = "" Then '说明没有找到 
            End If
            //            Delay 5000
        Loop
        Exit Do
    loop
End Sub