亲爱的网友们，相信很多人对按键精灵自动打怪脚本如何设置和如何使用按键精灵快速制作自动打怪脚本都不是特别了解，因此今天我来为大家分享一些关于按键精灵自动打怪脚本如何设置和如何使用按键精灵快速制作自动打怪脚本的知识，希望能够帮助大家解决这些问题。

本文目录一览

按键精灵自动打怪脚本如何设置

[Script]
Pluginhwnd=Window.Foreground()
Importwindow.dll
VBSBegin
win=Window.Foreground()
client=Window.GetClientRect(win)
s=split(client,"|")
dx=s(0)
dy=s(1)
zx=s(2)
zy=s(3)
VBSEnd
Dimred,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0
UserVarfqg=DropList{防抢怪:0|不防抢怪:1}=0防抢怪设置
UserVarjb=DropList{不捡包:0|自动捡包:1}=0是否捡物
UserVars1=2门派普攻F1间隔(秒)
UserVars2=20单体攻击F2间隔(秒)
UserVars3=20单体攻击F3间隔(秒)
UserVars4=25怒气攻击F4间隔(秒)
UserVars5=80自定技能F5间隔(秒)
UserVars6=60BB技能F6间隔(秒)
UserVars7=10状态技能F7间隔(分)
UserVarred=DropList{30%:30|50%:50|70%:70}=1血少于%加血F8
UserVarblue=DropList{30%:30|50%:50|70%:70}=0蓝少于%加蓝F9
UserVarbbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2宠少于%加血F10
UserVarredwait=1红药冷却时间(秒)
UserVarbluewait=1蓝药冷却时间(秒)
UserVarmonwait=100寻怪延时(毫秒)
PutAttachment.\plugin*.dll
Rem开始
Delaymonwait
Gosub验证码
Gosub找怪
Iffqg=0
IfColordx+369,dy+31,1E252A,2
Goto开始
EndIf
EndIf
Rem继续杀怪
Gosub判断血蓝状态
GosubBB血状态
Gosub杀怪
RemEnd
EndScript
Sub验证码
Rem再次报警
VBSCallFindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
Ifx>0andy>0
PluginSimPlayer.ring(19)
//使用了声音插件，需要自己去下载
Delay2000
EndIf
Whilex>0
VBSCallFindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
Ifx>=0andy>=0
IfColorx+17,y+9-k,FFFFFF,0
KeyPress271
Delay1000
MoveTodx+446,dy+315
Delay1000
LeftClick1
GotoEnd
EndIf
Else
Goto再次报警
EndIf
EndWhile
Return验证码
Sub判断血蓝状态
IfColorred/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColorblue/100*120+66+dxdy+372222222
b=b+1
Else
EndIf
Return判断血蓝状态
SubBB血状态
Ifbbred>0
IfColorbbred+91+dxdy+691111112
c=c+1
EndIf
EndIf
ReturnBB血状态
Sub找怪
KeyDown1,1
Delay10
KeyPress9,1
Delay10
KeyUp1,1
Delay10
Return找怪
Sub杀怪
IfColordx+247,dy+31,0019FF,2
IfColordx+261,dy+31,0011ff,2
Gosub技能
Else
KeyPress121
Delay1000
EndIf
Goto继续杀怪
Else
Ifjb=1
Gosub捡包
Else
Goto开始
EndIf
EndIf
Return杀怪
Sub怒气判断
IfColorqx+126,qy+43,00ffff,2
q=1
EndIf
IfColorqx+188,qy+43,00ffff,2
q=2
EndIf
Return怒气判断
Sub技能
Goto开始
IfDateDiff("s",t1,now)>=s1
KeyPress121
t1=now
Delay100
EndIf
IfColordx+261,dy+31,0011ff,2
IfDateDiff("s",t2,now)>=s2
Delay500
KeyPress1131
t2=now
Delay500
EndIf
Else
EndIf
IfColordx+261,dy+31,0011ff,2
IfDateDiff("s",t3,now)>=s3
Delay500
KeyPress1141
t3=now
Delay500
EndIf
Else
EndIf
Gosub怒气判断
IfColordx+261,dy+31,0011ff,2
IfDateDiff("s",t4,now)>=s4andq>=1
Delay500
KeyPress1151
t4=now:q=q-1
Delay500
EndIf
Else
EndIf
IfColordx+261,dy+31,0011ff,2
IfDateDiff("s",t5,now)>=s5
Delay500
KeyPress1161
t5=now
Delay500
EndIf
Else
EndIf
IfColordx+261,dy+31,0011ff,2
IfDateDiff("s",t6,now)>=s6
KeyPress1171
t6=now
Delay100
EndIf
EndIf
IfDateDiff("n",t7,now)>=s7
MoveTodx+36,dy+35
LeftClick1
Delay100
KeyPress1181
t7=now
Delay100
KeyDown17,1
Delay10
KeyPress9,1
Delay10
KeyUp17,1
Delay10
EndIf
IfDateDiff("s",t8,now)>=redwaitanda>=1
KeyPress1191
t8=now:a=0
Delay500
EndIf
IfDateDiff("s",t9,now)>=bluewaitandb>=1
KeyPress1201
t9=now:b=0
Delay500
EndIf
IfDateDiff("s",t10,now)>=1andc>=1
KeyPress1211
t10=now
c=0
Delay500
EndIf
Return技能
Sub捡包
Dimv,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
Ifx0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem开始搜索
v=l
i=m
x1=x0:y1=y0-v
Whilex1>=n
k1=0:k2=v
For2
Fori
x1=x1+k1:y1=y1+k2
Ifx1>=a1andx1<=a2andy1>=b1andy1<=b2
MoveTox1,y1
Delay2
VBSCallshape=GetCursorShape(0)
Ifshape=d
Delay50
RightClick1
Delay400
Goto开始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto开始
Return捡包

返回目录

如何使用按键精灵快速制作自动打怪脚本？

打开按键精灵的新建选项，选择键盘命令，输入以下数值，按插入键。

选择其他命令键，选择时间“毫秒，1”。

选择循环次数时，点击循环热键，循环到按终止键为止。

按键精灵中右侧热键的启动和中止热键分别选择“滑轮向上浮动”和“滑轮向下浮动”。之后退出保存。

返回目录

总结：以上就是本站针对你的问题搜集整理的答案，希望对你有所帮助。