要求:
1。汉堡投资过,所有交易商品都出现了(没出要改脚本)
2。挂机前点好交易所老板;
3。快捷栏F1、F6、F7、F8四种料理,F2金属提炼书、F3火器制作书、F4青铜制作书,F5放2星书;
5、铸造6+1,如果是4+1要屏蔽掉造青铜和火器的部分,6+1很容易到的啊
6、挂12小时要吃约1200个料理
7、开始的快捷键是Ctrl+小键盘的7,用本本的请自己改
8、以下是脚本,请在按键精灵目录的脚本子目录下新建一个文本复制进去;如:H:\按键精灵\script\网络游戏
/////分割线,不要复制
[General]
Description=汉堡挂铸造
BeginHotkey=103
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
PutAttachment .\plugin *.*
VBS dim xxx,yyy,n,k,x0,y0,x1,y1,x00,y00,t,dhhshidai
VBS dim x11,x12,x13,x14,x15,x16,y11,y12,y13,y14,y15,y16,eatno
////定义变量
Delay 500
Plugin dhhshidai=Window.Foreground()
/////读取窗口句柄并赋值给变量
Delay 100
Plugin s = Window.GetClientRect(dhhshidai)
////命名一个窗口名字
Delay 100
MyArray = Split(s, "|", -1, 1)
////将窗口左上起点坐标分割
Delay 500
Rem 主程序
For 200
Delay 1000
Plugin BGKM5.KeyClick(dhhshidai,121)
////按F10打开一级快捷面板
Delay 2000
Plugin BGKM5.KeyClick(dhhshidai,116)
////按F5使用一次2*书
Delay 2000
Rem 买第1次
Plugin BGKM5.LClick(dhhshidai,647,359)
////点击与交易所老板对话界面的“买进”按钮
Delay 1500
VBS n=2
////赋值,表示要买交易品列表中的第三个商品,即子程序中会按2次向下箭头选商品
VBS m=5
////赋值,表示在购买时按5次最大数量购买图标
Gosub 买进商品
Delay 300
Plugin BGKM5.LClick(dhhshidai,659,412)
////点击交易界面的确定按钮
Delay 1500
Rem 买第2次
Plugin BGKM5.LClick(dhhshidai,647,359)
Delay 1500
VBS n=3
////赋值,表示要买交易品列表中的第4个商品,即子程序中会按3次向下箭头选商品
VBS m=5
Gosub 买进商品
Delay 300
Plugin BGKM5.LClick(dhhshidai,659,412)
Delay 1500
Rem 买第3次
Plugin BGKM5.LClick(dhhshidai,647,359)
Delay 1500
VBS n=4
////赋值,表示要买交易品列表中的第5个商品,即子程序中会按4次向下箭头选商品
VBS m=5
Gosub 买进商品
Delay 300
Plugin BGKM5.LClick(dhhshidai,659,412)
Delay 1500
Rem 买第4次
Plugin BGKM5.LClick(dhhshidai,647,359)
Delay 1500
VBS n=5
////赋值,表示要买交易品列表中的第6个商品,即子程序中会按5次向下箭头选商品
VBS m=5
Gosub 买进商品
Delay 300
Plugin BGKM5.LClick(dhhshidai,659,412)
Delay 1500
Rem 买第5次
Plugin BGKM5.LClick(dhhshidai,647,359)
Delay 1500
VBS n=8
////赋值,表示要买交易品列表中的第7个商品,即子程序中会按8次向下箭头选商品
VBS m=5
Gosub 买进商品
Delay 300
Plugin BGKM5.LClick(dhhshidai,659,412)
Delay 1500
Delay 1000
Gosub 判断行动力
Delay 2000
Plugin Window.SendKeyPress(dhhshidai,121)
////F10打开一级快捷面板
Delay 3500
Plugin Window.SendKeyPress(dhhshidai,113)
////F2 金属书
Delay 2000
VBS n=0
////赋值,表示要生产金属书产品列表中的第1个产品,即子程序中会按0次向下箭头选目标产品
Gosub 进行生产
Delay 1000
Delay 1000
Gosub 判断行动力
Delay 2000
Plugin Window.SendKeyPress(dhhshidai,121)
////F10打开一级快捷面板
Delay 3500
Plugin Window.SendKeyPress(dhhshidai,113)
////F2 金属书
Delay 2000
VBS n=2
////赋值,表示要生产金属书产品列表中的第3个产品,即子程序中会按2次向下箭头选目标产品
Gosub 进行生产
Delay 1000
Delay 1000
Gosub 判断行动力
Delay 2000
Plugin Window.SendKeyPress(dhhshidai,121)
////F10打开一级快捷面板
Delay 3500
Plugin Window.SendKeyPress(dhhshidai,114)
////F3 火器书
Delay 2000
VBS n=3
////赋值,表示要生产火器书产品列表中的第4个产品,即子程序中会按3次向下箭头选目标产品
Gosub 进行生产
Delay 1000
Delay 1000
Gosub 判断行动力
Delay 2000
Plugin Window.SendKeyPress(dhhshidai,121)
////F10打开一级快捷面板
Delay 3500
Plugin Window.SendKeyPress(dhhshidai,115)
////F2 合金书
Delay 2000
VBS n=0
////赋值,表示要生产金属书产品列表中的第1个产品,即子程序中会按0次向下箭头选目标产品
Gosub 进行生产
Delay 1000
Gosub 卖出
Delay 300
EndFor
Rem 主程序结束
Delay 300
Sub 进行生产
For n
////这个循环是用来按向下箭头选择生产的目标产物的,即选定配方
Plugin Window.SendKeyPress(dhhshidai,40)
Delay 300
EndFor
Plugin BGKM5.LClick(dhhshidai,454,403)
////点生产配方界面上的确定
Delay 3500
Gosub 生产画面
Delay 300
Plugin BGKM5.KeyClick(dhhshidai,27)
////按一次Esc
Delay 300
Return 进行生产
Sub 生产画面
////这个生产画面子程序是用的当时挂保管的老程序,多了一个判断鸡生完蛋再转鸭子生蛋的判断,不改了
Rem 生产循环开始
Delay 300
Plugin Window.Active(dhhshidai)
////激活大航海窗口,因为有颜色判断,所以要使窗口跑到最前面来
Delay 300
For 999
Delay 300
VBS xxx=MyArray(0)+401
VBS yyy=MyArray(1)+272
IfColor xxx,yyy,efebce,2
Delay 300
Plugin BGKM5.KeyClick(dhhshidai,27)
Delay 2000
Plugin BGKM5.LClick(dhhshidai,453,402)
Delay 3500
Else
Delay 300
VBS xxx=MyArray(0)+452
VBS yyy=MyArray(1)+298
Delay 100
IfColor xxx,yyy,4a657b,2
Delay 1500
Plugin BGKM5.MMove(dhhshidai,384,133)
Delay 300
Delay 300
VBS xxx=MyArray(0)+384
VBS yyy=MyArray(1)+133
Delay 100
IfColor xxx,yyy,8482ff,2
Goto 没材料了
Else
Delay 300
Plugin BGKM5.MMove(dhhshidai,434,313)
Delay 300
Delay 300
VBS xxx=MyArray(0)+434
VBS yyy=MyArray(1)+313
Delay 100
IfColor xxx,yyy,f77df7,2
Goto 生产循环开始
Else
Goto 没有行动力了
EndIf
EndIf
Else
Delay 300
Plugin BGKM5.LClick(dhhshidai,452,298)
Delay 300
EndIf
EndIf
EndFor
Rem 没有行动力了
VBS power=1
Rem 没材料了
Delay 300
Plugin BGKM5.LClick(dhhshidai,627,402)
////点生产结束
Delay 3500
Return 生产画面
Delay 300
Sub 判断行动力
Rem 判断开始
Delay 300
Plugin Window.Active(dhhshidai)
////激活窗口
Plugin Window.Restore(dhhshidai)
////恢复窗口位置
Delay 800
VBS xxx=MyArray(0)+130
////计算主画面上行动力条末端的横坐标
VBS yyy=MyArray(1)+115
////计算主画面上行动力条末端的纵坐标
Delay 100
IfColor xxx,yyy,ff7dff,2
////如果指定点颜色是粉红色
Goto 有行动力
Else
////不是粉红色则
Delay 300
Gosub 吃料理补充行动力
EndIf
Goto 判断开始
////补充过一次后再看看去
Rem 有行动力
Delay 300
Return 判断行动力
Sub 买进商品
Rem Plugin Window.Active(dhhshidai)
Delay 400
////以下选商品(向下箭头按N次)
For n
Plugin BGKM5.KeyClick(dhhshidai,40)
Delay 600
EndFor
Delay 100
////选商品结束
Delay 300
////以下是买最大数量的M次
VBS x11=MyArray(0)+378
VBS y11=MyArray(1)+303
MoveTo x11,y11
LockMouse
For m
Delay 100
Plugin BGKM5.LClick(dhhshidai,378,303)
Delay 400
EndFor
UnlockMouse
Delay 100
////买好最大数量的M次
Delay 300
////以下是买中间数量2次
VBS x11=MyArray(0)+378
VBS y11=MyArray(1)+233
MoveTo x11,y11
LockMouse
For 2
Delay 100
Plugin BGKM5.LClick(dhhshidai,378,233)
Delay 400
EndFor
UnlockMouse
Delay 100
////买好2次中间数量
Delay 300
////以下是买每次最少数量2次
VBS x12=MyArray(0)+378
VBS y12=MyArray(1)+169
MoveTo x12,y12
LockMouse
For 2
Delay 100
Plugin BGKM5.LClick(dhhshidai,381,169)
Delay 300
EndFor
UnlockMouse
Delay 300
////买完2次最少数量
Delay 300
Return 买进商品
Sub 卖出
Rem 以下开始卖出
Plugin Window.Active(dhhshidai)
Delay 400
Plugin BGKM5.LClick(dhhshidai,690,360)
////点卖出按钮
Delay 3000
VBS x13=MyArray(0)+175
////计算船舱中第二个位置的横坐标
VBS y13=MyArray(1)+120
MoveTo x13,y13
LockMouse
For 7
////点7下第二个位置
Delay 100
Plugin BGKM5.LClick(dhhshidai,175,120)
Delay 400
EndFor
UnlockMouse
Delay 300
Plugin BGKM5.LClick(dhhshidai,659,412)
////点确定
Delay 2000
Return 卖出
Sub 吃料理补充行动力
Delay 300
Plugin Window.SendKeyPress(dhhshidai,121)
////按F10打开一级快捷菜单
Delay 3500
If eatno=0
////这个判断主要用于控制循环吃各种料理
Delay 200
Plugin Window.SendKeyPress(dhhshidai,112)
////第一次按F1吃第一种料理
Delay 2000
VBS eatno=eatno+1
////这个赋值主要用于控制循环吃各种料理,吃完一钟后控制变量+1
Goto 吃完一块料理
EndIf
If eatno=1
Delay 200
Plugin Window.SendKeyPress(dhhshidai,117)
////第2次按F6吃第2种料理
Delay 2000
VBS eatno=eatno+1
Goto 吃完一块料理
EndIf
If eatno=2
Delay 200
Plugin Window.SendKeyPress(dhhshidai,118)
////第3次按F7吃第3种料理
Delay 2000
VBS eatno=eatno+1
Goto 吃完一块料理
EndIf
If eatno=3
Delay 200
Plugin Window.SendKeyPress(dhhshidai,119)
////第4次按F8吃第4种料理
Delay 2000
VBS eatno=0
////4种吃了个遍,控制变量归零,下次又开始新循环
Goto 吃完一块料理
EndIf
Rem 吃完一块料理
Return 吃料理补充行动力
此篇文章为17173玩家原创作品,获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |