1. 用户定义变量 bbxs=16 变倍系数[0为一倍，2为二倍，4为四倍，8为8倍,16为16倍，32为32倍，64为64倍]
2. 用户定义变量 yanshi=65 根据电脑配置设置合适的延时（毫秒），此为16倍的延时
3. 用户定义变量 zhanhao=nsgcID 帐号[请输入帐号]
4. 用户定义变量 mima=****** 密码[请输入密码]
5. 用户定义变量 chishu=10 每次挂机循环次数(试用只限10次）
6. 用户定义变量 jushu=80 连续挂机多少局退出游戏重新登录（不得大于82局，试用只限10局）
7. 用户定义变量 gxfwq=1 选择更新服务器[从上往下数，第几个选几]
8. 用户定义变量 fwqu=12 选择游戏服务区[电信11、12、13，网通21、22、23]
9. 用户定义变量 yxfwq=1 选择游戏服务器[从上往下数，第几个选几]
10. 用户定义变量 tqsjsj=5 防卡处理，延时多少秒后退出
11. 用户定义变量 ddsj=50 退出游戏后等待多少秒重新登录
12. j=1
13. 调用插件命令 srX=Sys.GetScRX()
14. 调用插件命令 srY=Sys.GetScRY()
15. 调用插件命令 cdep=Sys.GetScDep()
16. 如果表达式 (srx<>"1024" OR sry<>"768" OR cdep<>"32") 为真,则
17.     调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
18. 脚本停止运行
19. 条件结束
20. Dim fso,dr,retv,sn,obj,filename1,wjcz
21. set fso=CreateObject("Scripting.Filesystemobject")
22. Set dr=fso.GetDrive("d:")
23. retv=Hex(dr.SerialNumber)
24. 调用插件命令 File.writeINI("机器码","jqm",retv,".\三国策机器码.ini")
25. retv=int("&H"&retv)
26. retv=(retv+498*2)*3
27. Set obj=CreateObject("QFunction.Library")
28. retv=obj.GetMD5(retv)
29. temp=0.63524897*63390+480
30. temp=hex(temp)
31. temp= LCase(temp)
32. retv=temp&retv
33. retv=UCase(retv)
34. filename1=".\三国策注册信息.ini"
35. 调用插件命令 wjcz=File.ExistFile(filename1)
36. 如果表达式 (wjcz<>1) 为真,则
37.     调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
38.     如果表达式 (sn=retv) 为真,则
39.         调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
40.         调用插件命令 File.writeINI("注册码","zcm",sn,filename1)
41.     否则
42.         调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
43.         chishu=10
44.         jushu=80
45.         调用子程序 main
46.     条件结束
47. 否则
48.     调用插件命令 sn=File.readINI("注册码","zcm",filename1)
49.     如果表达式 (sn=retv) 为真,则
50.         调用插件命令 d1=GetSysInfo.GetDateTime()
51.         如果表达式 (d1<="2007-06-30 23:59:00") 为真,则
52.             调用子程序 main
53.         否则
54.             调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
55.             chishu=10
56.             jushu=80
57.             调用子程序 main
58.         条件结束
59.     否则
60.         调用插件命令 File.DeleteFile(filename1)
61.         调用外部VBScript子程序 MessageBox("请设置您的电脑屏幕分辨率为1024*768，颜色质量为最高（32位）")
62.         chishu=10
63.         jushu=80
64.         调用子程序 main
65.     条件结束
66. 条件结束
67. 标记 over
68. 脚本停止运行
69. 子程序 main
70.     dim fso,file,filename
71.     filename=".\运行记录.txt"
72.     Const ForAppending=8
73.     Set fso=CreateObject("Scripting.FileSystemObject")
74.     如果表达式 (fso.FileExists(filename)=0) 为真,则
75.         Set file=fso.CreateTextFile(filename,Ture)
76.     条件结束
77.     循环 chishu 遍
78.         t1=timer
79.         循环 10 遍
80.             按键<Num *>
81.             如果 (416,266) 的颜色等于 #18BA21 则
82.                 鼠标移到 416 , 266
83.                 跳转到标记 按左键0
84.             否则
85.                 如果 (416,266) 的颜色等于 #31B6FF 则
86.                     鼠标移到 416 , 266
87.                 条件结束
88.             条件结束
89.             标记 按左键0
90.             鼠标移到 416 , 266
91.             左键按下
92.             鼠标移到 436 , 266
93.             左键弹起
94.             左键按下
95.             鼠标移到 416 , 266
96.             左键弹起
97.         循环结束
98.         鼠标移到 436 , 266
99.         左键单击
100.         t2=timer