按键精灵（如何判定输入框0-9的数字，执行（10种）不同的操作）

Question

比如说：
界面输入框得到数字（0）
那么鼠标移动到qX，qY点击一次
界面输入框得到数字（1）
那么鼠标移动到wX，wY点击一次
界面输入框得到数字（9）
那么鼠标移动到eX，eY点击一次
界面输入框得到数字（190）
那么鼠标移动到wX，wY点击一次
那么鼠标移动到eX，eY点击一次
那么鼠标移动到qX，qY点击一次
求高手来解答

Answer 1

好久没玩按键精灵了，帮你写一个吧。

Dim Str,MyPos

Str = Form1.InputBox1.Text

MyPos = InStr(1,Str,"0")
If MyPos > 0 Then 
TracePrint "鼠标移动到qX，qY点击一次"
MyPos = 0
End If

MyPos = InStr(1,Str,"1")
If MyPos > 0 Then 
TracePrint "鼠标移动到wX，wY点击一次"
MyPos = 0
End If

MyPos = InStr(1,Str,"9")
If MyPos > 0 Then 
TracePrint "鼠标移动到eX，eY点击一次"
MyPos = 0
End If

只写了0、1、9的。剩下的自己加。

追问

感谢回答
不过命令有BOG，
假设输入框为910的时候，
鼠标移动的顺序依然还是Q，W，E
怎么修改成让鼠标移动的顺序为e，w，q啊

追答

换一种判断方法就可以了。根据输入的一个一个判断。从第一位数，一个一个判断到最后一位。