Question

按键精灵随机输入文本代码怎么写？

比如是输入“你好”“再见”!

Answer 1

Dim Y(9),Z(9)
Val = InputBox("用|分隔","请输入10个字或词","你好|再见|老头|郁闷|努力|神马|纠结|Seven|Eight|Nine",7000,7000)
X = Split(Val, "|")
i=0
Rem 随机数肆碧亩
If i=10
Goto 输出
End If
randomize(timer)
n=int(10*rnd)
If n=10
Goto 随机裂森数
End If
j=0
Rem 随机排序
If j=i
Z(j)=n
i=i+1
Goto 随机数
Else
If Z(j)=n
Goto 随机数
Else
j=j+1
Goto 随慧卜机排序
End If
End If
Rem 输出
i=0
For 10
Y(i)=X(Z(i))
i=i+1
Next
Call RunApp("notepad.exe")
Delay 1000
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
i=0
For 10
Call Plugin.Window.SendString(hwnd,Y(i))
Call Plugin.Bkgnd.KeyPress(hwnd,13)
i=i+1
Next