SetRowsNumber(0)
//注意：每次制作完字库后，需要自行把制作的字库文件添加到脚本“附件”中
TracePrint SetDictEx(0, "Attachment:mq_soft.txt")
TracePrint UseDict(0)
Dim f,intX,intY
KeyPress "Home"
Delay 100
Do
FindStr(367,1709,470,1822,"设","FFFFFF|917754",0.9,intX,intY)
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX,intY
Exit Do
End If
Loop
//tap 328,1767
DO
Swipe 269, 1412, 270, 861
Delay 500
FindStr(335,90,390,1860,"身","000000",0.9,intX,intY)
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Delay 500
Tap intX,intY
Exit Do
End If
Loop
TracePrint "1"
Delay 500
Do
Tap 1021, 146
Delay 800
FindStr(835,1790,880,1848,"除","FFAA33",0.9,intX,intY)
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX,intY
Exit Do
End If
Loop
//tap 765,1813
Delay 500
Tap 127, 1474
Delay 1000
InputText "xiao781025"
Delay 800
TracePrint "1"
Tap 798,1813
Delay 1000
Do
Delay 800
// Dim intX,intY
FindStr(426,1769,462,1815,"开","E5A52E|FFFEFD",0.9,intX,intY)
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX,intY
Exit Do
End If
Loop
发表评论：