为了让英国的近港党能从繁重的鼠标重复点击中解脱出来，特制作了这个脚本，经过无数次验证没有问题。
---------------------脚本内容------------------
//使用方法：讲本贴中教本文字全部拷贝到按键精灵的原文件中，设置启动和中止键，且每启动一次脚步
//只运行一次。不重复运行。
//功能：自动根据玩家设定的购买物品种类把该物品全部买入。仅适用于伦敦。脚本以800×600窗口模式
//为基准。电脑背景为1024×768
//1 威士忌 2 啤酒 3 黄油 4 大炮 5 羊毛 6 西洋甲胄 7 纸 8 黄铜 9 青铜 10 铁才。
//S(N)是表示买的顺序，我习惯从上买倒下，大家也可以自己选择，另外把S(N)=0即不买东西，例如我取
//引还可以 ，所以船放不下，我通常设置VBS s(7)=0，这个位置是买纸的，纸没多少利润，少买几个
VBS Dim s(10)
VBS s(1)=1
VBS s(2)=2
VBS s(3)=3
VBS s(4)=4
VBS s(5)=5
VBS s(6)=6
VBS s(7)=7
VBS s(8)=8
VBS s(9)=9
VBS s(10)=10
//货物所处位置（是前半部分则为1，后半部分为2）
VBS loc=1
//货物图标高度（即选择货物的图标高度）800×600窗口模式则不需要修改这个参数
VBS lenthhw=56
//数量图标高度（即选择货物数量的图标高度）800×600窗口模式则不需要修改这个参数
VBS lenthsl=70
VBS n=1
For 10
VBS l=s(n)
Gosub 定位
If l<>0
Gosub 快速入仓
EndIf
Delay 200
VBS n=n+1
EndFor
Rem 购买完毕，点击确定
//鼠标移动到砍价按钮上（如果坐标不对，自行抓点）
MoveTo 465 347
Delay 200
Beep
EndScript
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
//□□□□□□□□□□□□□··程序结束··□□□□□□□□□□□□□
//■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Sub 定位
If l<=5
If loc=1
//89 142是第一个货物位置，所以以此往下各商品坐标是89 142＋顺序×货物图标高度（位置不对
//对，则自行抓点）注意修改下来所有语句里面的89 142坐标
VBS y=142+(l-1)*lenthhw
MoveTo 89 y
Delay 100
LeftDoubleClick 1
Delay 100
ElseIf loc=2
//324 157是货物清单的上拉条位置（如果坐标不对，自行抓点）
MoveTo 324 157
Delay 100
LeftDoubleClick 1
VBS loc=1
Delay 100
VBS y=142+(l-1)*lenthhw
MoveTo 89 y
Delay 100
LeftDoubleClick 1
Delay 100
EndIf
ElseIf l>=6
If loc=2
VBS y=142+(l-6)*lenthhw
MoveTo 89 y
Delay 100
LeftDoubleClick 1
Delay 100
ElseIf loc=1
//325 340是货物清单的下拉条位置（如果坐标不对，自行抓点）
MoveTo 325 340
Delay 100
LeftDoubleClick 1
VBS loc=2
Delay 100
VBS y=142+(l-6)*lenthhw
MoveTo 89 y
Delay 100
LeftDoubleClick 1
Delay 100
EndIf
EndIf
Return
//
Sub 快速入仓
// 383 351 这个坐标点是在最大购买量哪个选择图标一个空白的地方。
IfColor 383 351 b3b3b3 0
//382 324最大购买量图标坐标位置
MoveTo 382 324
Delay 100
EndIf
Rem fastbuyblock1
IfColor 383 351 b3b3b3 0
LeftClick 1
Delay 50
Goto fastbuyblock1
EndIf
//这个坐标点是在第2大购买量哪个选择图标一个空白的地方。
IfColor 383 281 b3b3b3 0
MoveTo 382 254
Delay 100
EndIf
Rem fastbuyblock2
// 383 281 第2大购买量图标坐标位置
IfColor 383 281 b3b3b3 0
LeftClick 1
Delay 50
Goto fastbuyblock2
EndIf
//========最小购买量位置=============
IfColor 383 211 b3b3b3 0
MoveTo 382 184
Delay 100
EndIf
Rem fastbuyblock3
IfColor 383 211 b3b3b3 0
LeftClick 1
Delay 50
Goto fastbuyblock3
EndIf
Return
－－－－－－－－－－－－取点说明－－－－－－－－－
子进程：快速入仓，中货物周围空白点抓取示意图：
注意，按键精灵取点时，可以放大图标，所以一定要用窗口模式下，借助按键取点的功能中的放大镜协助才能完成取点。这也就是说如果想使用全屏方式的话，这个点几乎不可能取到，自然无法运行脚本了。
见按键的取点放大镜
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
