dim a=ReadUIConfig("挂机领取")
If a = true Then
Call 找字(63,1734,109,1810,"冒 险","593B2C-101010|624A42-101010|8F8481-101010|ADA5A0-101010")
Delay 500
Call 找字(212,94,241,173,"挂机中","FFFFFF-101010")
Delay 500
Call 找字(811,1519,849,1558,"挂机领取退出","FCFCF4-101010|F9F9E9-101010")
Delay 500
Call 找字(72,427,103,489,"主页","593B2C-101010|8F8481-101010|ADA5A0-101010")
Sub 找字(a,b,c,d,e,f)
SetDictEx 0, "Attachment:字库.txt"
Dim intX,intY
For 10
FindStr(a,b,c,d,e,f,0.9,intX,intY)
If intX > -1 And intY > -1
Then
TracePrint "找到了"
Delay 400
Tap intX, intY
Exit For
Else
TracePrint "没找到"
Delay 300
End If
Next
Delay 300
End Sub
End If
老说我第二行“if a=true then”和最后的“end if”有问题，我不加中间这一长串脚本，只用traceprint a却没问题