资源说明：

使用要求：

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