免字库（移动）模块源码

显示全部楼层 · 2024-11-5 16:41:24

Import "zm.luae" //导入插件,只需执行一次
zm.Init //初始化插件,只需执行一次
call 移动(100,100)
Function 移动(x, y)
Do
Dim 当前X坐标 = zm.OcrNumbers(512,1216,527,1243,"DEE1E3-202020|CFD4D6-202020|DDE0E3-202020|DFE2E4-202020|BFC4C7-202020|EEF0F1-202020", 0)
TracePrint 当前X坐标
Dim 当前Y坐标 = zm.OcrNumbers(511,1248,525,1276,"DEE1E3-202020|CFD4D6-202020|DDE0E3-202020|DFE2E4-202020|BFC4C7-202020|EEF0F1-202020", 0)
TracePrint 当前Y坐标
If (当前X坐标 - x)/2 > 0 Then
Swipe 229, 225, 235, 92,200
Delay 200
End If
If (当前Y坐标 - y)/2 > 0 Then
Swipe 229, 225, 349,214,200
Delay 200
End If
If 1 > (当前X坐标 - x)/2 > 0 Then
Swipe 117,112, 117,22,200
Delay 200
End If
If 1 > (当前Y坐标 - y)/2 > 0 Then
Swipe 117,112, 215,108,200
Delay 200
End If
If (当前X坐标 - x)/2 < 0 Then
Swipe 229, 225, 229,315,200
Delay 200
End If
If (当前Y坐标 - y)/2 < 0 Then
Swipe 229, 225, 91,219,200
Delay 200
End If
If -1 > (当前X坐标 - x)/2 > 0 Then
Swipe 117,112, 112,196,200
Delay 200
End If
If -1 > (当前Y坐标 - y)/2 > 0 Then
Swipe 117,112, 28,112,200
Delay 200
End If
Delay 200
//
// If -1 <= (当前X坐标 - x) <= 1 and -1 <= 当前Y坐标 - y <= 1 Then
// Exit Do
// End If
If (当前X坐标 - x) = 0 and 当前Y坐标 - y = 0 Then
Delay 200
Exit Do
End If
LOOP
End Function
移动(338, 337)

复制代码