#这是按键精灵生成的脚本源文件
#在理解各条命令的基础上，您可以修改这个文件的内容
#您修改的结果将会在普通视图上有所反映
//窗口800*600左上角，分辨率1280*800（我宽屏的）F10自定义 F6采集 F1料理 F3装载 运行网络状态必须蓝圈装载内需要有食物、水、炮弹、木头任意3种
dim Obj,CI,HI.W
set Obj = createobject("WScript.Shell")
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 1000
Plugin hwnd = Window.GetKeyFocusWnd()
Gosub Tishi
For 99999
For 11
For 20
Gosub 采集
EndFor
For 2
Gosub 料理
EndFor
EndFor
Delay 1000
Gosub 激活窗口
Delay 800
Gosub TRASH
Delay 800
Gosub logout
Delay 500
Gosub minimize
EndFor
Sub 采集
Plugin Window.SendKeyPress(hwnd,121)
Delay 1500
Plugin Window.SendKeyPress(hwnd,117)
Delay 1500
Plugin Window.SendKeyPress(hwnd,27)
Delay 5800
Return 采集
Sub 料理
Plugin Window.SendKeyPress(hwnd,121)
Delay 1800
Plugin Window.SendKeyPress(hwnd,112)
Delay 1500
Plugin Window.SendKeyPress(hwnd,27)
Delay 1500
Return 料理
Sub 激活窗口
Plugin Window.Foreground(hwnd)
Delay 1000
Plugin Window.Active(hwnd)
Delay 600
Plugin Window.Restore(hwnd)
Delay 600
Rem 激活窗口程序结束
Return 激活窗口
Sub TRASH
Delay 500
KeyPress 114,1 //调出装载
Delay 4000
MoveTo 444 393
Delay 200
LeftClick 1
Delay 200
MoveTo 283,162
Delay 100
KeyDown 17,1
Delay 200
//请根据采集物品种类自行调节左键盘单击次数
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 600
LeftClick 1
Delay 200
LeftClick 1
Delay 200
KeyUp 17,1
Delay 200
MoveTo 630 415
Delay 200
LeftClick 1
Delay 200
Return trash
Sub logout
KeyDown 17,1
Delay 399
KeyPress 76,1
Delay 399
KeyUp 17,1
Delay 1000
KeyPress 13,1
Delay 24500
MoveTo 405,456
Delay 500
LeftClick 1
Delay 1000
LeftClick 1
Delay 5000
KeyPress 27,1
Delay 100
KeyPress 27,1
Delay 100
KeyPress 27,1
Delay 100
MoveTo 405,258
Delay 500
LeftClick 1
Delay 500
For 30
KeyPress 8,1
EndFor
//这里自己改帐号
KeyPress 72,1
KeyPress 72,1
KeyPress 72,1
KeyPress 72,1
KeyPress 72,1
KeyPress 72,1
Delay 500
KeyPress 9,1
Delay 500
//这里自己改密码
KeyPress 52,1
KeyPress 52,1
KeyPress 52,1
KeyPress 52,1
KeyPress 52,1
KeyPress 52,1
KeyPress 52,1
Delay 500
KeyPress 13,1
Delay 2200
KeyPress 13,1
Delay 4000
KeyPress 13,1
Delay 6000
KeyPress 13,1
Delay 6000
KeyPress 13,1
Delay 7000
Return logout
Sub minimize
MoveTo 761,10
Delay 200
LeftClick 1
Delay 200
Plugin Window.SendKeyPress(hwnd,27)
Delay 200
Plugin Window.SendKeyPress(hwnd,27)
Delay 200
Return minimize
