按键精灵随机字母加数字组合：
1：
Dim i,位置,字符串,字母
字母 = "0123456789abcdefghijklmnopqrstuvwxyz"
字符串=""
For i=0 To 9 - 1 //位数是你想要字符串的的长度
Randomize
位置 = Int((Len(字母) * Rnd) + 1)
字符串 = 字符串 & Mid(字母,位置,1)
Next
2：
'随机用户名生成器
字母 = "abcdefghijklmnopqrstuvwxyz"
数字 = "0123456789"
位数 = 8 //位数是你想要用户名的长度，按需要填写
Do Until 随机用户名编号 >= 10 //随机10个用户名
字符串 = ""
位置 = Int((Len(字母) * Rnd) + 1)
首字母 = 字符串 & Mid(字母, 位置, 1) //某些系统，用户名首位不能为数字
可用字符 = 字母 & 数字
For i=1 To 位数 - 1 //位数是你想要用户名的长度，第7行已经赋值
Randomize
位置 = Int((Len(可用字符) * Rnd) + 1)
字符串 = 字符串 & Mid(可用字符, 位置, 1)
Next
随机用户名 = 首字母 & 字符串
随机用户名编号 = 随机用户名编号 + 1
TracePrint "随机用户名" & 随机用户名编号 & "：" & 随机用户名
Loop
3:
y=""
//清空随机种子数
For 8
Randomize
//得到 0~35 之间的一个随机数
x = Int(36 * Rnd)
// 大于或等于10则转换为小写字母
If x>9
x=chr(x+87)
EndIf
y=y&x
EndFor
SayString y
按键精灵随机数字：
Rem start
VBS Randomize
//得到 1~99999999 之间的一个随机数
VBS x = Int((99999999 * Rnd) + 1)
//判断这个数字是否8位数字，如果不是8位数字，就重新生成
If x<10000000
Goto start
EndIf
SayExpression x
（按顺序0000 0001 0002 0003 一直延续下去，可修改）
用户名位数 = 4 //几位的自己填
For i = 1 To 100 //100个用户名，多少自己修改
用户名序号 = 用户名序号 + 1
num = Len(用户名序号)
零位 = 用户名位数 - num
用户名a = String(零位, "0")
用户名 = CStr(用户名a) + CStr(用户名序号)
TracePrint "用户名:" & 用户名
Next
按键精灵随机字母：
1：
Randomize For 8
VBS m = Int((99 * Rnd) + 1)
If m>0 and m<11 KeyPress "S", 1
EndIf
If m>10 and m<21 KeyPress "D", 1
End If
If m>20 and m<31 KeyPress "J", 1
End If
If m>30 and m<41 KeyPress "Q", 1
End If
If m>40 and m<51 KeyPress "O", 1
End If
If m>50 and m<61 KeyPress "T", 1
End If
If m>60 and m<71 KeyPress "A", 1
End If
If m>70 and m<81 KeyPress "M", 1
End If
If m>80 and m<91 KeyPress "E", 1
End If
If m>90 and m<101 KeyPress "U", 1
End If
2：
VBS x=""
For 8
randomize
x=x & chr(int(RND*26+97))
EndFor
SayString x
按键精灵随机汉字：
Rem A
Randomize
a=-1*(2050+int(Rnd*18367))
If chr(a)="?" or chr(a)=""
Goto A
EndIf
SayString chr(a)
