jacky
Dim 密码,ID 密码 = ReadUIConfig("注铅升册码")ID = GetDeviceID()If 密码渗局 = ID Then ShowMessage "密码正确, 验证通过!" TracePrint "密码正确, 验证通过!" Do Call 找图点击("1.png") Call 找图点击("2.png") Call 找图点击("3.png") Call 找图点击("4.png") Loop Else ShowMessage "你的IMEI是：" & ID & ",请联系xxx"TracePrint "你的IMEI是：" & ID & ",请联系xxx"End IfSub 找丛激让图点击(图片名) Dim intX,intYFindPic 0, 0, 0, 0, "Attachment:" & 图片名, "000000", 0, 0.9, intX, intYIf intX > -1 Then For 250 Tap 350, 1150 NextEnd If End Sub//把sub放外面
