按键精灵
分辨率：480*800
Import "zm.luae"
zm.Init
Dim intX,intY
Dim Var1=Array(ReadUIConfig("输入框1"),ReadUIConfig("输入框2"),ReadUIConfig("输入框3"),ReadUIConfig("输入框4"),ReadUIConfig("输入框5"))
Dim t1=ReadUIConfig("输入框6",1000),t2=ReadUIConfig("输入框7",2000),t3=ReadUIConfig("输入框8",2000),t4=ReadUIConfig("输入框9",3000)
Function 随机字符串(位数)
Dim i,位置,字符串,字母
If ReadUIConfig("下拉框2")=0 Then
字母="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
ElseIf ReadUIConfig("下拉框2")=1 Then
字母="0123456789"
End If
字符串=""
For i=0 To 位数 - 1
位置=Int((Len(字母) * Rnd()) + 1)
字符串=字符串 & Mid(字母,位置,1)
Next
随机字符串=字符串
End Function
Function 随机()
随机=Int((5)*Rnd())
End Function
If ReadUIConfig("下拉框1")=0 Then
Call 评论()
ElseIf ReadUIConfig("下拉框1")=1 Then
Call 私信()
End If
Sub 评论()
Do
FindPic 0, 0, 478,484, "Attachment:头条1.png","000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 then
Tap intX+5, intY+5
zm.delay t1,t2
Tap 61, 776
If (ReadUIConfig("多选框1")=true) Then
InputText 随机字符串(ReadUIConfig("输入框10"))
End If
Delay 500
InputText Var1(随机())
Delay 500
If (ReadUIConfig("多选框2")=true) Then
InputText 随机字符串(ReadUIConfig("输入框10"))
End If
zm.delay t1,t2
Tap 450,733
zm.delay t1,t2
Tap 22,43
zm.delay t1,t2
End Sub
Sub 私信()
Do
Tap 226,106
zm.delay t1, t2
Tap 428,173
zm.delay t1, t2
Tap 405,47
zm.delay t1, t2
Tap 166, 777
If (ReadUIConfig("多选框1")=true) Then
InputText 随机字符串(ReadUIConfig("输入框10"))
End If
Delay 500
InputText Var1(随机())
Delay 500
If (ReadUIConfig("多选框2")=true) Then
InputText 随机字符串(ReadUIConfig("输入框10"))
End If
zm.delay t1, t2
Tap 449,778
zm.delay t1, t2
Tap 23, 45
zm.delay t1, t2
Tap 23,45
zm.delay t1, t2
zm.Swipe 229,418, 253,340
zm.delay t3,t4
Loop
End Sub
