钥匙向导随机输入，但不重复。

给我更多。很辛苦。测试后没发现什么大问题。

如果您发现中文输出是乱码，请更改您的默认中文输出。

可以再去百度或者去重点论坛找。

= = = = = = = = = = = =下面是代码= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

维度Y(9)，Z(9)

Val = InputBox("用| "分隔"，"请输入10个字或词"，"老虎|老鼠|老师|老板|老婆|爸爸|妈妈|七|八|九"，7000，7000)

X = Split(Val，" | ")

i=0

Rem随机数

如果i=10

转到输出

如果…就会结束

随机化(计时器)

n=int(10*rnd)

如果n=10

转到随机数

如果…就会结束

j=0

快速眼动随机分类

如果j=i

Z(j)=n

i=i+1

转到随机数

其他

如果Z(j)=n

转到随机数

其他

j=j+1

转到随机排序

如果…就会结束

如果…就会结束

Rem输出

i=0

对于10

Y(i)=X(Z(i))

i=i+1

然后

调用RunApp("notepad.exe ")

延迟1000

Hwnd =插件。Window.Find(0，“无标题-记事本”)

Hwnd =插件。Window.FindEx(Hwnd，0，" Edit "，0)

i=0

对于10

调用插件。Window.SendString(hwnd，Y(i))

调用插件。黑色按键(hwnd，13)

i=i+1

然后