逻辑其实很简单,就是抓鼠标所在的窗口句柄以后,一直循环按F1-F5,还有F11切换目标。
不确定会不会封,所以自己慎用。
源代码:
//后台自动切怪打怪,选怪键改为F11,开始时鼠标需要放置在需要开启的游戏窗口内。
Dim Hwmd
//获取当前鼠标窗口句柄
Hwnd = Plugin.Window.MousePoint()
//F1按键频率,单位毫秒,1000毫秒=1秒,自己设置按键节奏,以下类推
UserVar F1=100 "F1时间间隔(毫秒)"
UserVar F2=111 "F2时间间隔(毫秒)"
UserVar F3=122 "F3时间间隔(毫秒)"
UserVar F4=133 "F4时间间隔(毫秒)"
UserVar F5=144 "F5时间间隔(毫秒)"
UserVar F11=111 "F11时间间隔(毫秒)"
//自动打怪循环,当前设置为F1-F5,F11为选怪键,延时设置上面即可。
//需要加减按键自己添加。
While True
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
Delay F1
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 113)
Delay F2
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 114)
Delay F3
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 115)
Delay F4
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 116)
Delay F5
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Wend
不确定会不会封,所以自己慎用。
源代码:
//后台自动切怪打怪,选怪键改为F11,开始时鼠标需要放置在需要开启的游戏窗口内。
Dim Hwmd
//获取当前鼠标窗口句柄
Hwnd = Plugin.Window.MousePoint()
//F1按键频率,单位毫秒,1000毫秒=1秒,自己设置按键节奏,以下类推
UserVar F1=100 "F1时间间隔(毫秒)"
UserVar F2=111 "F2时间间隔(毫秒)"
UserVar F3=122 "F3时间间隔(毫秒)"
UserVar F4=133 "F4时间间隔(毫秒)"
UserVar F5=144 "F5时间间隔(毫秒)"
UserVar F11=111 "F11时间间隔(毫秒)"
//自动打怪循环,当前设置为F1-F5,F11为选怪键,延时设置上面即可。
//需要加减按键自己添加。
While True
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
Delay F1
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 113)
Delay F2
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 114)
Delay F3
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 115)
Delay F4
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Call Plugin.Bkgnd.KeyPress(Hwnd, 116)
Delay F5
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay F11
Wend