1. 标记 重新
2. 令 PID = Web.Bind("wqm.exe")
3. 调用 Web.Go("http://uc.917st.com/UCWeb/usercenter/html/Register.aspx")
4. 令 a = （命令库 文件）判断文件夹是否存在("C:\乱世隋唐专用文件夹")
5. 如果 a = True 则
6. 否则
7.     令 a = False
8.     调用 File.CreateFolder("C:\乱世隋唐专用文件夹")
9. 条件结束
10. 注释：判断是否有指定TXT文件文件
11. 令 IsFile = File.IsFileExit("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt")
12. 如果 IsFile = True 则
13. 否则
14.     令 fso = CreateObject("Scripting.FileSystemObject")
15.     定义常量 forwriting = 2
16.     定义常量 forreading = 1
17.     令 myfile = fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt")
18.     令 myfile = fso.createtextfile("C:\乱世隋唐专用文件夹/乱世隋唐帐号新手卡.txt")
19. 条件结束
20. 标记 再次
21. 调用 suiji
22. 调用 Web.HtmlInput(y,"id:user")
23. 延时 30 毫秒
24. 调用 Web.LeftClick(733,233)
25. 延时 60 毫秒
26. 令 i = 0
27. 如果 1 = Web.HtmlExists("id:userokimg") 则
28. 否则
29.     跳转到标记 再次
30. 条件结束
31. 延时 30 毫秒
32. 注释：下面为密码，可以自行修改
33. 调用 Web.HtmlInput(Form1.InputBox2.text,"id:pwd")
34. 延时 30 毫秒
35. 调用 Web.HtmlInput(Form1.InputBox2.text,"id:againpwd")
36. 延时 20 毫秒
37. 调用 Web.LeftClick(678,436)
38. 调用 Web.Tips("等待输入验证码,结束按回车键")
39. 延时 500 毫秒
40. 调用 panduan
41. 延时 30 毫秒
42. 标记 等待
43. 令 key = （键盘）等待按任意键
44. 注释：<>===================================================按回车键即可提交申请
45. 如果 key = 13 则
46.     跳转到标记 离开
47. 条件结束
48. 跳转到标记 等待
49. 标记 离开
50. 调用 Web.HtmlClick("id:ImageButton1")
51. 注释：新手卡领取
52. 调用 Web.Go("http://uc.917st.com/ucweb/usercenter/html/gift/login.aspx")
53. 延时 300 毫秒
54. 令 Txt = Web.HtmlGet("text","tag:SPAN&txt:您还没有注册吗?")
55. 如果 txt = "您还没有注册吗?" 则
56.     跳转到标记 重新
57. 否则
58. 条件结束
59. 延时 30 毫秒
60. 调用 Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl00_4")
61. 延时 30 毫秒
62. 调用 Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl01_1")
63. 延时 30 毫秒
64. 调用 Web.HtmlCheck(True,"id:ctl00_ContentPlaceHolder1_ctl02_2")
65. 延时 30 毫秒
66. 调用 Web.HtmlClick("id:ctl00_ContentPlaceHolder1_submit")
67. 延时 800 毫秒
68. 注释：获取新手卡到新手卡卡号.txt
69. 调用 xinshou
70. 延时 800 毫秒
71. 调用 Web.Tips("脚本重新运行")
72. 调用 guanbi
73. 延时 2000 毫秒
74. RestartScript()
75. (语句无法识别，可能有错误): /*
76. 令 fso = CreateObject("Scripting.FileSystemObject")
77. 令 myfile = fso.createtextfile("C:\Users\toshiba\Desktop\123\123.txt")
78. (语句无法识别，可能有错误): myfile.writeline (y)*/
79. 子程序 suiji
80.     令 y = form1.InputBox1.text & ""
81.     循环 9 次
82.         注释：清空随机种子数
83.         Randomize
84.         注释：得到 0~35 之间的一个随机数
85.         令 x = Int(32 * Rnd)
86.         注释： 大于或等于10则转换为小写字母
87.         如果 x > 9 则
88.             令 x = chr(x + 87)
89.         条件结束
90.         令 y = y & x
91.     循环结束
92. 子程序结束
93. 子程序 xinshou
94.     令 PID = Web.Bind("wqm.exe")
95.     延时 800 毫秒
96.     令 TXT = Web.HtmlGet("value","id:ctl00_ContentPlaceHolder1_GiftCode")
97.     延时 40 毫秒
98.     调用 File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐帐号密码.txt",y)
99.     延时 150 毫秒
100.     调用 File.WriteFileEx("C:\乱世隋唐专用文件夹/乱世隋唐帐号新手卡.txt",TXT)