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