Question

按键精灵随机录入但不重复

想让按键精灵随机录入到记事本几个汉字或词（不是数字），比如有10个汉字或词（不是数字）按随机顺序录入到记事本，录入结果是10个汉字或词（不是数字）全部被录入而且没有重复被录入的。谢谢。^__^||会不会有点复杂呀。
你们……你们…………

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

Answer 2

迷糊。