Dim 索引值,intX,intY,ocrchar,最低价, intFX, intFY
Do
ShowMessage "正在刷新"
Tap 308,1272
Delay 500
//变量intX, intY需要预先定义。如果您还没有定义该变量，请取消下面一行的注释
FindColor 300, 500, 300, 800, "38A808", 0, 0.90, intX, intY
//如果没有找到，intX和intY的值都会被置为-1
If intX > -1 And intY > -1 Then
//注意：每次制作完字库后，需要自行把制作的字库文件添加到脚本“附件”中
TracePrint SetDictEx(0, "Attachment:mq_soft.txt")
TracePrint UseDict(0)
//以上两句脚本只需要调用一次
索引值 = FindStr(0,227,377,370, ".", "0077FE-0077FE", 1.0, intFX, intFY)
Traceprint intFX&","&intFY
If intFX >= 0 and intFY >= 0 Then
ocrchar = Ocr(0, 227, intFX, 370, "0077FE-0077FE", 1.0)
TracePrint ocrchar
Else
ocrchar = Ocr(0, 227, 377, 370, "0077FE-0077FE", 1.0)
End If
最低价 = ReadUIConfig("输入框1", "0")
If IsNull (ocrchar)=False and 最低价 <= ocrchar Then
Tap intX, intY
ShowMessage "找到订单"
For 5
Tap 526, 800
Delay 100
Next
ShowMessage "抢到订单"
PlaySound "Attachment:ding.mp3"
//持续震动3000毫秒（3秒）
Vibrate 3000
Delay 3000
Exit Do
ElseIf IsNull(ocrchar) = False Then
ShowMessage "订单价格为：" & ocrchar & "元，小于"&最低价&"。跳过继续刷新！"
Delay 500
End If
End If
Loop
闽公网安备 35010002000112号