发布网友 发布时间:2024-10-24 04:50
共1个回答
热心网友 时间:2024-10-24 12:54
Function 点击位置(字符串)
//自己修改下面对应数字位置的每个 x 和 y 坐标
If 字符串 = "1" Then
x = 100 : y = 100
ElseIf 字符串 = "2" Then
x = 200 : y = 100
ElseIf 字符串 = "3" Then
x = 300 : y = 100
ElseIf 字符串 = "4" Then
x = 100 : y = 200
ElseIf 字符串 = "5" Then
x = 200 : y = 200
ElseIf 字符串 = "6" Then
x = 300 : y = 200
ElseIf 字符串 = "7" Then
x = 100 : y = 300
ElseIf 字符串 = "8" Then
x = 200 : y = 300
ElseIf 字符串 = "9" Then
x = 300 : y = 300
ElseIf 字符串 = "0" Then
x = 200 : y = 400
ElseIf 字符串 = "重输" Then
x = 100 : y = 400
ElseIf 字符串 = "删除" Then
x = 300 : y = 400
ElseIf 字符串 = "确定" Then
x = 200 : y = 500
End If
//pc版的鼠标移动点击代码改成手机版的屏幕点击代码
TracePrint x & " , " & y
MoveTo x, y
Delay 10
LeftClick 1
Delay 1
End Function
数字 = 100000
Do
For i = 1 To Len(数字)
字符串 = Mid(数字, i, 1)
TracePrint "字符串 = " & 字符串
Call 点击位置(CStr(字符串))
Delay 200
Next
Call 点击位置("确定")
数字 = 数字 + 1
Delay 100
Loop
//手机版的变量名自己定义一下,延迟自己改成合适的.len函数和mid函数不知道有没有,反正就是这样的思路