MahodenWorld后台自动出击代码,让放置游戏变成完全放置~~~~

gbgbgbama

请用按键精灵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