求按键精灵后台挂机打怪脚本和后台制作脚本方法!!

发布网友 发布时间：2022-04-23 21:15

我来回答

共1个回答

热心网友 时间：2023-08-31 10:12

　　按键的命令里面，直接有后台运行的各种命令，不过涉及到坐标的，需要用的是窗口坐标，而不是屏幕坐标，关于这个，要么自己计算，那么可以用一个叫‘小烦窗口查看器’的程序得到窗口坐标。

　　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