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

上一篇：按键精灵_过滑块的源码

下一篇：织梦cms 替换字段中的部分字符，替换指定字符

按键精灵_过滑块的源码

按键精灵_安卓手机全选\复制\黏贴

按键精灵_ 多分辨率支持脚本，让你脚本支持多分辨率支持多分辨率

按键精灵（lua）_File.DeleteLine删除指定行