UserVar liaoli=50 料理恢复度 UserVar Cl=100 料理存量 //货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下 //货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看 UserVar DH1=3 要丢的货物1的位置 UserVar DH2=4 要丢的货物2的位置 UserVar DH3=5 要丢的货物3的位置 //每五分钟能采集40次看船舱和采集等级定 UserVar Jtime=3 丢货间隔时间单位(分钟) //数字"1"为启用"0"为不启用 UserVar Pd0=1 是否启用自动切换窗口 UserVar Pd1=1 是否启用丢弃货物 VBS set TiShiObj = createobject("WScript.Shell") Plugin hwn=Window.GetKeyFocusWnd() //设置结束 Delay 1000 Gosub 采集通用版 Rem 结束 EndScript Sub 采集通用版 lun=(Jtime*600)\((liaoli\5)*75) y=Cl\lun+1 For y Gosub 采集 If Pd0=1 Gosub 激活窗口 EndIf If Pd1=1 huo1=DH1:huo2=DH2:huo3=DH3 Gosub 丢垃圾 EndIf If Pd0=1 Gosub 返回窗口 EndIf EndFor Return 采集通用版 //系统默认自定义栏F10、F11使用技能(用于纠错) 设置快捷键 F1采集或搜索、 F2匹萨 //参数lun 采集一轮吃一次料理 Sub 采集 For lun ci=liaoli\5 For ci Plugin Window.SendKeyPress(hwn,121) Delay 1500 Plugin Window.SendKeyPress(hwn,112) Delay 1000 Plugin Window.SendKeyPress(hwn,122) Delay 5000 EndFor Plugin Window.SendKeyPress(hwn,121) Delay 1000 Plugin Window.SendKeyPress(hwn,113) Delay 1000 Plugin Window.SendKeyPress(hwn,122) Delay 1000 Plugin Window.SendKeyPress(hwn,27) Delay 600 EndFor Return 采集 Sub 丢垃圾 Delay 500 Plugin Window.SendKeyPress(hwn,118) Delay 1800 VBS ax=429:ay=366 Gosub 移动鼠标 Delay 1000 LeftClick 1 Delay 1000 For 10 If huo1>0 ax=92+((huo1+4) MOD 5)*56 ay=114+((huo1-1)\5)*56 Gosub 移动鼠标 LeftClick 1 Delay 700 MoveR 119 124 LeftClick 1 Delay 700 MoveR 0 73 LeftClick 1 Delay 700 EndIf huo1=huo2-1:huo2=huo3-1:huo3=huo4-1 huo4=huo5-1:huo5=huo6-1:huo6=huo7-1 huo7=huo8-1:huo8=huo9-1;huo9=huo10-1 huo10=0 EndFor VBS ax=630:ay=391 Gosub 移动鼠标 LeftClick 1 Delay 600 ax=400:ay=300 Gosub 移动鼠标 RightClick 1 Delay 600 Return 丢垃圾 Sub 移动鼠标 Plugin winRect=Window.GetClientRect(hwn) winPoint = Split(winRect, "|", -1, 1) bx = CInt(winPoint(0)) + ax