Hwnd = 396344
iB1=0
Do While iB1 < 3
iB= 0
Do While iB < 3
Randomize
i = round(rnd() * (8 - 1), 0) + 1
TracePrint i
str = "838772768579867369"
a = mid(str, 2*i-1, 2)
Call Plugin.Bkgnd.LeftClick(Hwnd, 490, 225)
Delay 500
Call Plugin.Bkgnd.KeyPress(Hwnd, a)
Delay 500
iB = iB + 1
Loop
iB1 = iB1 + 1
Call Plugin.Bkgnd.KeyPress(Hwnd, 32)
Loop
分割线
这个输入框只支持英文吧。你试试在记事本上运行你的程序,应该是没问题的