求一个大航海 在法罗杀猪的脚本！！

来源：百度知道 编辑：UC知道 时间：2024/06/22 09:11:24
真实有用的！！ 兼容按键精灵·！ 答案分数追加！

VBS set TiShiObj = createobject("WScript.Shell")
　　Dim xing,xinga,xingd,xinge hpmax
　　xing=&H00b06620
　　Plugin hhsd = Window.GetKeyFocusWnd()
　　For 400
　　Gosub 购买
　　Delay 1000
　　For 2
　　Gosub 生产
　　Delay 1000
　　Gosub 生产2
　　Delay 1000
　　EndFor
　　Gosub 卖出
　　EndFor
　　Sub 购买
　　For 1
　　//此处为购买次数，可根据家畜买卖引取高低与最大行动力调整购买次数
　　Delay 1200
　　Plugin Window.SendKeyPress(hhsd,119)
　　Delay 1500
　　Plugin Window.SendKeyPress(hhsd,112)
　　Delay 1000
　　MoveTo 649,386
　　Delay 500
　　LeftClick 1
　　Delay 500
　　LeftClick 1
　　Delay 1000
　　For 4
　　Delay 50
　　KeyPress 40,1
　　EndFor
　　KeyDown 17,1
　　Delay 500
　　MoveTo 381,195
　　Delay 500
　　LeftClick 1
　　Delay 1000
　　KeyUp 17,1
　　Delay 500
　　MoveTo 663,437
　　Delay 500
　　LeftClick 1
　　Delay 500
　　EndFor
　　Return 购买
　　Sub 生产