要求：
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吃料理补充行动力
相关新闻
