按键精灵随机字母，随机数字，随机汉字，随机字母+数字

还是昨天的问题，我用按键精灵实在受不了了，我想到了按键精灵，如果有朋友不了解按键精灵是什么的话，可以百度一下。

按键精灵的简单操作我了解，但是稍微复杂点的就没有去研究了，今天看了下论坛，找到要用的代码。可以成随机字母，随机数字，随机汉字，随机字母+数字，至于用到哪里就看你自己了，下面为代码：

Rem start
VBS Randomize
//得到 1~99999999 之间的一个随机数
VBS x = Int((99999999 * Rnd) + 1)
//判断这个数字是否8位数字，如果不是8位数字，就重新生成
If x<10000000
    Goto start
EndIf
SayExpression x

随机字母


VBS x=""
For 8
    randomize
    x=x & chr(int(RND*26+97))
EndFor
SayString x

随机字母数字混合

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 A
Randomize
a=-1*(2050+int(Rnd*18367))
If chr(a)="?" or chr(a)=""
    Goto A
EndIf
SayString chr(a)

希望对你有用，有什么问题可以给我留言，最后我用按键精灵生成了exe文件，可以按Ctrl+d自动生成12位随机字母加数字，如果有需要可以在附件中下载。