代码语言：javascript复制
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
