游戏达人
- 贡献度
- 358
- 金元
- 14100
- 积分
- 2842
- 精华
- 0
- 注册时间
- 2008-9-19
|
本帖最后由 gbgbgbama 于 2012-10-13 10:01 编辑
请用按键精灵9.0或者以上版本
全后台运行,不影响做其他事
Hwnd = Plugin.Window.Find("MahodenWorld", 0)
UserVar Var1=5 "填入几分钟出击一次"
While hwnd>0
Call 自动继续战斗()
For var1
Delay 60000
Next
Wend
Sub 自动继续战斗()
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 41, 22)
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 41, 22)
For 20
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 821, 444)
Next
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 743, 735)
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 743, 735)
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 204, 34)
Delay 1000
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 204, 34)
End Sub
|
|