随机生成姓名脚本源码，

运行环境：分辨率：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