1. (语句无法识别，可能有错误): /*
2. 刷贡脚本()
3. 刷贡方法：掠夺方式刷贡，每次发1兵。()
4. 掠夺对像：标记第一行。（每个小号都要调整）()
5. 注释：------------------------------------------------
6. 在C盘根目录下创建Set.ini文件，内容表参考如下()
7. (语句无法识别，可能有错误): SERVER 为服务器地址及端口（网页进入游戏后，地址栏上取的)
8. BROWSER(为所使用的浏览器安装位置。建议使用谷鹆)
9. 密码密文，在网页进入游戏后，地址栏上取的。()
10. [SET]()
11. 令 SERVER = http
12. 注释：ybsg7.login.game.uc.cn:8028
13. (语句无法识别，可能有错误): BROWSER=C:\Documents and Settings\Administrator\Local settings\Application Data\Google\Chrome\Application\chrome.exe
14. [USERS]()
15. 令 COUNT = 5
16. (语句无法识别，可能有错误): USER1=便于记忆|帐号1|密码密文
17. (语句无法识别，可能有错误): USER2=便于记忆|帐号2|密码密文
18. (语句无法识别，可能有错误): USER3=便于记忆|帐号3|密码密文
19. (语句无法识别，可能有错误): USER4=便于记忆|帐号4|密码密文
20. (语句无法识别，可能有错误): USER5=便于记忆|帐号5|密码密文
21. (语句无法识别，可能有错误): */
22. Global(GameHwnd,IsLdle,IsTimeout,IsError,IsErr,nCount,nIndex,Users)
23. 定义变量 USER(10), PASSWORD(10), SERVER, BROWSER
24. 子程序 SetUser()
25.     令 IniFile = "C:\SET.INI"
26.     令 IsFile = File.IsFileExit(IniFile)
27.     如果 IsFile 则
28.         令 SERVER = File.ReadINI("SET","SERVER",IniFile)
29.         令 BROWSER = File.ReadINI("SET","BROWSER",IniFile)
30.         令 nCount = CInt(File.ReadINI("USERS","COUNT",IniFile))
31.         循环 nIndex 从 1 到 nCount
32.             令 strTmp = file.ReadINI("USERS","USER" & nIndex,IniFile)
33.             令 aryTmp = Split(strTmp,"|")
34.             令 USER(nIndex) = aryTmp(1)
35.             令 PASSWORD(nIndex) = aryTmp(2)
36.         循环结束
37.     否则
38.         调用 Msg.Tips("配制文件不存在，退出运行")
39.         ExitScript()
40.     条件结束
41. 子程序结束
42. 子程序 RunGame()
43.     令 nIndex = nIndex + 1
44.     如果 nIndex > nCount 则
45.         令 nIndex = 1
46.     条件结束
47.     令 WebServer = "[SERVER]/webgame/sanguo2.jsp?userName=[USER]&pwd=[PASS]"
48.     令 WebUser = Replace(WebServer,"[SERVER]",SERVER)
49.     令 WebUser = Replace(WebUser,"[USER]",USER(nIndex))
50.     令 WebUser = Replace(WebUser,"[PASS]",PASSWORD(nIndex))
51.     令 WebHttp = BROWSER & " " & WebUser
52.     启动程序或打开文件 WebHttp
53.     延时 3000 毫秒
54. 子程序结束
55. 注释：定义鼠标按下操作,X,Y,1单击,2双击
56. 开始VBScript块
57.     函数 MouseClick(X,Y,N)
58.         锁定鼠标位置
59.         延时 50 毫秒
60.         （鼠标）移动到 (X, Y)
61.         延时 50 毫秒
62.         如果 N = 1 则
63.             （鼠标）左键单击, 1次
64.         否则如果 N = 2 则
65.             （鼠标）左键双击, 1次
66.         条件结束
67.         延时 50 毫秒
68.         解除鼠标锁定
69.     函数结束
70. 结束VBScript块
71. 子程序 Main()
72.     调用 CloseAll()
73.     调用 RunGame
74.     令 GameHwnd = Window.Find(0,"三国 - Google Chrome")
75.     调用 Window.Max(GameHwnd)
76.     注释：开始调将
77.     调用 FindMilitary()
78.     如果 IsError 则
79.         调用 Main()
80.     条件结束
81.     调用 Start()
82. 子程序结束
83. 子程序 CloseGame()
84.     调用 Window.CloseEx(GameHwnd)
85. 子程序结束
86. 子程序 CloseLottery
87.     注释：找抽奖按钮
88.     令 IsTimeout = 0
89.     循环当 True 时
90.         从左上到右下查找图片 "Attachment:\关闭抽奖.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
91.         如果 intX > 0 并且 intY > 0 则
92.             MouseClick(intX + 5,intY + 5,1)
93.             跳出循环
94.         否则
95.             调用 MyDelay()
96.             如果 IsTimeout > 4 则
97.                 注释：超时 2s
98.             条件结束
99.             跳出循环
100.         条件结束