Import "ShanHai.lua"
Import "zm.luae"
Dim 数字坐标=Array("402,1726","136,1171","388,1185","676,1184","136,1356","400,1364","658,1385","135,1539","408,1529","674,1541") //手动获取数字坐标
Function 输入价格()
Dim 价格=shanhai.RndEx(100,200) //随机价格
TracePrint "输入价格.."&价格
zm.Delay(300,600)
价格=Cstr(价格) //整数型转换成字符串
for i = 1 To UTF8.Len(价格) //取字符串长度
dim d = UTF8.StrGetAt(价格, i) //获取指定位置字符
zm.Delay(300,600)
Dim 数字xy坐标()=Split (数字坐标(d),",")//第几个数字 第几个数组
TracePrint 数字xy坐标(0), 数字xy坐标(1)
Tap 数字xy坐标(0), 数字xy坐标(1)
zm.Delay(300,600)
Next
End Function
Call 输入价格()