求按键精灵后台挂机打怪脚本和后台制作脚本方法!!
要求是在自动打怪脚本和游戏开启之后、切换到其他窗口时游戏照常挂机!有脚本的朋友分享下、、后台脚本教程也行!!...
要求是在自动打怪脚本和游戏开启之后、切换到其他窗口时游戏照常挂机!
有脚本的朋友分享下、、后台脚本教程也行!! 展开
有脚本的朋友分享下、、后台脚本教程也行!! 展开
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
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
哎呦互动
2024-07-12 广告
2024-07-12 广告
先去兄弟论坛下一个按键精灵 按键精灵分为3个版本,1为免费版 2为 会员版 3为商业版你下个免费版后,,来做脚本,在这里我选择游戏为QQ华夏,然后 按键精灵里找到脚本,或是自己写,负责进去,进行测试,如果可以,就保存出来,还有其他的简单游戏...
点击进入详情页
本回答由哎呦互动提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询