1. 用户定义变量 liaoli=50 料理恢复度
2. 用户定义变量 Cl=100 料理存量
3. //货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下
4. //货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看
5. 用户定义变量 DH1=3 要丢的货物1的位置
6. 用户定义变量 DH2=4 要丢的货物2的位置
7. 用户定义变量 DH3=5 要丢的货物3的位置
8. //每五分钟能采集40次看船舱和采集等级定
9. 用户定义变量 Jtime=3 丢货间隔时间单位(分钟)
10. //数字"1"为启用"0"为不启用
11. 用户定义变量 Pd0=1 是否启用自动切换窗口
12. 用户定义变量 Pd1=1 是否启用丢弃货物
13. （VBScript语句） set TiShiObj = createobject("WScript.Shell")
14. 调用插件命令 hwn=Window.GetKeyFocusWnd()
15. //设置结束
16. 延时1000毫秒
17. 调用子程序 采集通用版
18. 标记 结束
19. 脚本停止运行
20. 子程序 采集通用版
21.     lun=(Jtime*600)\((liaoli\5)*75)
22.     y=Cl\lun+1
23.     循环 y 遍
24.         调用子程序 采集
25.         如果表达式 (Pd0=1) 为真,则
26.             调用子程序 激活窗口
27.         条件结束
28.         如果表达式 (Pd1=1) 为真,则
29.             huo1=DH1:huo2=DH2:huo3=DH3
30.             调用子程序 丢垃圾
31.         条件结束
32.         如果表达式 (Pd0=1) 为真,则
33.             调用子程序 返回窗口
34.         条件结束
35.     循环结束
36. 子程序结束,回到调用处
37. //系统默认自定义栏F10、F11使用技能（用于纠错） 设置快捷键 F1采集或搜索、 F2匹萨
38. //参数lun 采集一轮吃一次料理
39. 子程序 采集
40.     循环 lun 遍
41.         ci=liaoli\5
42.         循环 ci 遍
43.             调用插件命令 Window.SendKeyPress(hwn,121)
44.             延时1500毫秒
45.             调用插件命令 Window.SendKeyPress(hwn,112)
46.             延时1000毫秒
47.             调用插件命令 Window.SendKeyPress(hwn,122)
48.             延时5000毫秒
49.         循环结束
50.         调用插件命令 Window.SendKeyPress(hwn,121)
51.         延时1000毫秒
52.         调用插件命令 Window.SendKeyPress(hwn,113)
53.         延时1000毫秒
54.         调用插件命令 Window.SendKeyPress(hwn,122)
55.         延时1000毫秒
56.         调用插件命令 Window.SendKeyPress(hwn,27)
57.         延时600毫秒
58.     循环结束
59. 子程序结束,回到调用处
60. 子程序 丢垃圾
61.     延时500毫秒
62.     调用插件命令 Window.SendKeyPress(hwn,118)
63.     延时1800毫秒
64.     （VBScript语句） ax=429:ay=366
65.     调用子程序 移动鼠标
66.     延时1000毫秒
67.     左键单击
68.     延时1000毫秒
69.     循环 10 遍
70.         如果表达式 (huo1>0) 为真,则
71.             ax=92+((huo1+4) MOD 5)*56
72.             ay=114+((huo1-1)\5)*56
73.             调用子程序 移动鼠标
74.             左键单击
75.             延时700毫秒
76.             鼠标相对移动 119 , 124
77.             左键单击
78.             延时700毫秒
79.             鼠标相对移动 0 , 73
80.             左键单击
81.             延时700毫秒
82.         条件结束
83.         huo1=huo2-1:huo2=huo3-1:huo3=huo4-1
84.         huo4=huo5-1:huo5=huo6-1:huo6=huo7-1
85.         huo7=huo8-1:huo8=huo9-1;huo9=huo10-1
86.         huo10=0
87.     循环结束
88.     （VBScript语句） ax=630:ay=391
89.     调用子程序 移动鼠标
90.     左键单击
91.     延时600毫秒
92.     ax=400:ay=300
93.     调用子程序 移动鼠标
94.     右键单击
95.     延时600毫秒
96. 子程序结束,回到调用处
97. 子程序 移动鼠标
98.     调用插件命令 winRect=Window.GetClientRect(hwn)
99.     winPoint = Split(winRect, "|", -1, 1)
100.     bx = CInt(winPoint(0)) + ax