YHY008 YHY008
关注数: 5 粉丝数: 1 发帖数: 61 关注贴吧数: 1
脚本达人帮忙 把这个脚本启动时那个自定义栏的窗口语句去掉,万分感谢.本人学生时间紧张,希望不喜欢脚本的朋友勿骂,大家睦邻友好.UserVar liaoli=50 料理恢复度UserVar Cl=100 料理存量//货物位置是打开的那个窗口左上角第一格为1,使用前请先打开窗口看下//货物位置请从小到大排以免出错,丢弃货物位置要先点"丢弃货物"再看UserVar DH1=3 要丢的货物1的位置UserVar DH2=4 要丢的货物2的位置UserVar DH3=5 要丢的货物3的位置//每五分钟能采集40次看船舱和采集等级定UserVar Jtime=5 丢货间隔时间单位(分钟)//数字"1"为启用"0"为不启用UserVar Pd0=1 是否启用自动切换窗口UserVar Pd1=1 是否启用丢弃货物VBS set TiShiObj = createobject("WScript.Shell")Plugin hwn=Window.GetKeyFocusWnd()//设置结束Delay 1000Gosub 采集通用版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 Rem 结束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 600Return 丢垃圾Sub 移动鼠标 Plugin winRect=Window.GetClientRect(hwn) winPoint = Split(winRect, "|", -1, 1) bx = CInt(winPoint(0)) + ax by = CInt(winPoint(1)) + ay MoveTo bx by Delay 800Return 移动鼠标Sub 激活窗口 Plugin yuan=Window.Foreground() Delay 800 Plugin Window.Active(hwn) Delay 800 Plugin Window.Restore(hwn) Delay 800Return 激活窗口Sub 返回窗口 Plugin Window.Active(yuan)Return 返回窗口Sub 移动鼠标 Plugin winRect=Window.GetClientRect(hwn) winPoint = Split(winRect, "|", -1, 1) bx = CInt(winPoint(0)) + ax by = CInt(winPoint(1)) + ay MoveTo bx by Delay 800Return 移动鼠标
1 下一页