按键精灵随机输入数字脚本，防重复脚本

一、创建数组
二、随机数字存进去
三、for循环判断数组参数是否重复
四、随机数转换成按键
五、查询按键ASCIIma并用for输出数组
下面一图为按键精灵转换后的语言：


下面是TXT中 ：

• **Dim RndNum(11)
  Dim n, i, m, Result

'初始化数组
For i = 0 To 11
RndNum(i) = 0
Next

'生成1-12随机数
n = 0
Randomize
RndNum(0) = Int(12 * Rnd + 1)
While n < 11
Result = 0 '随机数重复标志，0表示不重复，1表示重复
Randomize
m = Int(12 * Rnd)
'For循环判断生成随机数是否和前面重复
For i = 0 To n
If m = RndNum(i) Then
Result = 1
End If
Next

 If Result = 0 Then 
    n = n + 1
    RndNum(n) = m
End If

Wend

'把随机数转换成按键
For i = 0 To 11
'MessageBox RndNum(i)
If RndNum(i) = 10 Then
RndNum(i) = 107
ElseIf RndNum(i) = 11 Then
RndNum(i) = 109
Else
RndNum(i) = RndNum(i) + 96
End If
Next
'数组RndNum存放结果，下面这一句是查看按键ASCII码的
MessageBox Join(RndNum, “|”)
'依次按键
For i = 0 To 11
KeyPress RndNum(i), 1**