188脚本
‘壹’ 下面是用按键精灵录制的指令,谁能帮忙转成后台执行的吗非常感谢!361插件我也装了
Hwnd = Plugin.Window.MousePoint()
Delay 5000
Rem a
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 188
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 828
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 156
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 110
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 156
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 234
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 141
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 141
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 156
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 312
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 188
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 5000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 250
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Goto a
以上为脚本
步骤:
1.运行前将鼠标放在需要的窗口上
2.运行后就可以后台了(前提是游戏支持后台)
3.自动无限循环,停止后重新运行需要回到步骤1
‘贰’ 求按键精灵后台挂机打怪脚本和后台制作脚本方法!!
按键的命令里面,直接有后台运行的各种命令,不过涉及到坐标的,需要用的是窗口坐标,而不是屏幕坐标,关于这个,要么自己计算,那么可以用一个叫‘小烦窗口查看器’的程序得到窗口坐标。
General]
Description=简单后台
BeginHotkey=121
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=1
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
Dim HH
Plugin HH = Window.GetKeyFocusWnd()
//实际X坐标-212=窗口x坐标,实际Y坐标-188=窗口Y坐标
a=1
h=1
m=1
x=1
y=1
Rem 1
Rem 开始
Plugin Bkgnd.LeftClick(HH, 902, 243)
Delay 1000
Plugin Bkgnd.LeftClick(HH, 471, 397)
Delay 10000
Plugin Bkgnd.LeftClick(HH, 534, 436)
Delay 2000
If h>10
Goto 补HM
EndIf
If m>4
Goto 补HM
EndIf
Goto HM
Rem 补HM
Plugin Bkgnd.LeftClick(HH, 583, 407)
Delay 2000
If h>10
If x>1
Plugin Bkgnd.LeftClick(HH, 390, 123)
Delay 1000
Plugin Bkgnd.LeftClick(HH, 409, 137)
x=x-1
Delay 1000
Else
Plugin Bkgnd.LeftClick(HH, 441, 119)
Delay 1000
Plugin Bkgnd.LeftClick(HH, 465, 132)
x=x+1
Delay 1000
EndIf
h=1
EndIf
If m>4
If y>1
Plugin Bkgnd.LeftClick(HH, 440, 169)
Delay 1000
Plugin Bkgnd.LeftClick(HH, 461, 183)
y=y-1
Delay 1000
Else
Plugin Bkgnd.LeftClick(HH, 492, 174)
Delay 1000
Plugin Bkgnd.LeftClick(HH, 516, 186)
y=y+1
Delay 1000
EndIf
m=1
EndIf
Plugin Bkgnd.LeftClick(HH, 940, 40)
Delay 1000
Rem HM
h=h+1
m=m+1
a=a+1
If a>60
Plugin Bkgnd.LeftClick(HH, 583, 407)
Delay 2000
Plugin Bkgnd.LeftClick(HH, 904, 374)
Delay 2000
Plugin Bkgnd.LeftClick(HH, 447, 396)
Delay 2000
Plugin Bkgnd.LeftClick(HH, 506, 396)
Delay 2000
Plugin Bkgnd.LeftClick(HH, 940, 40)
Delay 2000
a=1
EndIf
Goto 1