随机生成姓名脚本源码，

运行环境：分辨率：1024×768 色深：32位 操作系统：Windows XP 按键精灵版本：7.10.4500

@00一一一 2009/7/30

Delay 1000  
UserVar Xing=王 设置姓氏  
UserVar nb=2 几个字的名字(不包括姓氏)  
UserVar pin=10 几个名字  
For pin  
    VBS str=""  
    Gosub kk  
    Delay 20  
    If Len(Xing&str)>4  
        MessageBox "不好意思,中国人的名字最长为4个字"  
        EndScript   
    EndIf   
    SayString Xing&str&"  "  
EndFor   
EndScript   
Sub kk  
    For nb  
        VBS Randomize  
        VBS i=int(126*rnd+1)  
        VBS str= str&chr(-12160+i)  
        Delay 5  
    EndFor   
Return