admin管理员组文章数量:1532735
2024年2月8日发(作者:)
按键精灵网游脚本编写教程
一、 键盘命令(2~5页)
二、鼠标命令(5~13页)
三、控制命令(13~22页)
四、颜色/图像命令(22~28页)
五、其他命令(28~355页)
五、网游脚本实例(35~最后)
一、 键盘命令
命令名称:
命令功能:
命令参数:
返 回 值:
脚本例子:
语法)??
GetLastKey 检测上次按键
检测上次按键
参数1 整数型,可选:变量名
无
1.
1.
1.
1.
1. ??
2. ??
3. MouseWheel?1 ??
1.
2.
3. MouseWheel 1
4.
1.
脚本例子:
语法)
1.
命令名称:
命令功能:
命令参数:
返 回 值:
脚本例子:
语法)
RestoreMousePos 恢复上次保存的鼠标位置
保存当前鼠标位置
无
无
1. SaveMousePos
1.
1.
1.
1.
命令功能:
命令参数:
返 回 值:
脚本例子:
语法)
则
判断表达式
参数1 条件型,表达式
无
1. 例子1:
2. i=0
3. If i=0 Then
4. Msgbox "条件判断符合被通过!!"
5. End If
1.
1. 可当注释,也可以为Goto跳转指令作标记
2. Rem 脚本开始
脚本例子:
语法)
1. 可当注释,也可以为Goto跳转指令作标记
2. Rem 脚本开始
命令名称:
命令功能:
命令参数:
返 回 值:
RestartScript 重新启动脚本运行
重新启动脚本运行
无
无
脚本例子:
语法)
1. For i=0 to 2
2. Delay 1000
3. Call 0, 1024, 768, "屏幕内容填写" & i, "0000FF")
4. Next
RestartScript
1.
命令功能:
命令参数:
返 回 值:
脚本例子:
语法)
则循环
条件循环
参数1 条件型,循环条件
无
1. i=0
2. While i=0
3. Msgbox "我停不下来啦!!快住手"
4. Wend
1.
1.
1. ,则默认展开到按键精灵所在的文件夹中
2. mp。如果不指定要释放的文件,则默认释放所有文件
3. PutAttachment "c:","*.bmp"
4. plugin","*.dll"
1. ,则默认展开到按键精灵所在的文件夹中
2. mp。如果不指定要释放的文件,则默认释放所有文件
3. PutAttachment c: *.bmp
4. plugin *.dll
1.
命令功能:
命令参数:
返 回 值:
脚本例子:
VBSEnd VBS执行块
构成一个VBScript块
无
无
语法)
1. VBSBegin
2. For i=0 to 5
3. Msgbox "我在循环运行VBScript块哦!!"
4. '这是注释
5. Next
6. VBSEnd
1.
mp",,x1,y1)
If x1>0 and y1>0
Else
[url= t
VBS t=t+1
Goto 1
EndIf
EndIf
《蜀门》辅助脚本源码
.........................................................."
Gosub 写信息
Delay 256
UserVar Hong=50 补血百分比
UserVar lan=50 补蓝百分比
UserVar DZ=DropList{打坐:0|吃药:1}=0 低血选项
UserVar ADZ=6 打坐按键(0--9)
VBS ADZ=ADZ+48
UserVar HP=4 加血按键(0--9)
VBS HP=HP+48
UserVar MP=5 加蓝按键(0--9)
VBS MP=MP+48
UserVar JN=1 技能按键(0--9)
VBS JN=JN+48
UserVar wpgq=20e72e 怪物光圈颜色(找物品用,光圈特征色)
UserVar nzsz=DropList{随机选择:0|手动选择:1}=0 验证码处理方法
Delay 256
VBSCall FindColorEx(bkx1,bky1+32,bkx1+100,bky1+100,"0300df",0,,hprX,hprY)
VBS hppx=Cint(hprx+hong*: mppx=Cint(hprx+lan*
Delay 256
Gosub HPMP
Delay 64
Rem 开始主程序
Delay 100
VBSCall FindColorEx(hprX+280,hprY-4,hprX+283,hprY+4,"0300df",0,,intX,intY)
Delay 16
If intX>0
VBS xxx=1
VBS xxts="锁定怪物,开击......................................................................................"
Gosub 写信息
Delay 100
KeyPress JN,1
Delay 1000
Else
Gosub 捡查验证
Delay 32
Gosub 找物
Delay 32
Gosub HPMP
Delay 32
VBS xxx=0
KeyPress 9,1
Delay 128
EndIf
Delay 64
Goto 开始主程序
Sub 打坐
Delay 1000
Rem g
VBSCall FindColorEx(hprx+154,hpry,hprx+156,hpry+18,"0100df",0,,hpuX,hpuY)
Delay 16
VBSCall FindColorEx(hprx+154,hpry,hprx+156,hpry+18,"e08901",0,,hptX,hptY)
Delay 16
If hpuX>0 and hptx>0
Delay 200
Goto r
Else
Delay 800
Goto g
EndIf
EndIf
Rem r
Return 打坐
Sub 找物
VBS dim jwx(5), jwy(5)
Delay 64
For 2
VBSCall FindColorEx(bkx1+100,bky1+100,bkx2-100,bky2-100,wpgq,0,,WX,WY)
Delay 64
始攻
EndFor
If WX>0
VBS jwx(0)=0: jwy(0)=0: jwx(1)=30: jwy(1)=0: jwx(2)=-30: jwy(2)=5: jwx(3)=0: jwy(3)=30:
jwx(4)=0: jwy(4)=-30
VBS cci=0
For 5
Delay 64
MoveTo jwx(cci)+WX,jwy(cci)+WY
Delay 32
VBSCall vas=GetCursorShape(0)
Delay 32
If vas=1
VBS xxts="发现物品....................................................................................."
Gosub 写信息
Delay 64
RightDown 1
Delay 16
RightUp 1
Delay 64
Goto 捡
EndIf
VBS cci=cci+1
EndFor
EndIf
Rem 捡
Delay 512
Plugin XY = (bkx1+300,bky1+300,bkx2-200,bky2-200,
"-5|0|0,-3|0|0,-1|0|0,1|0|0,3|0|0,5|0|0,7|0|0,9|0|0,11|0|0,13|0|0,15|0|0,17|0|0,19|0|0,21|0|1,23|0|0,25|0|0,27|0|0,29|0|0,31|0|1,33|0|1,35|0|1,37|0|0,39|0|0,41|0|0,43|0|0,-5|2|0,-3|2|0,-1|2|0,1|2|0,3|2|0,5|2|0,7|2|0,9|2|0,11|2|0,13|2|0,15|2|0,17|2|1,19|2|1,21|2|1,23|2|0,25|2|1,27|2|1,29|2|0,31|2|0,33|2|0,35|2|1,37|2|1,39|2|0,41|2|0,43|2|0,-5|4|1,-3|4|0,-1|4|1,1|4|1,3|4|0,5|4|1,7|4|1,9|4|1,11|4|1,13|4|1,15|4|0,17|4|0,19|4|0,21|4|1,23|4|1,25|4|1,27|4|1,29|4|1,31|4|0,33|4|0,35|4|1,37|4|1,39|4|0,41|4|0,43|4|0,-5|6|0,-3|6|0,-1|6|0,1|6|0,3|6|0,5|6|0,7|6|0,9|6|1,11|6|1,13|6|0,15|6|0,17|6|1,19|6|1,21|6|1,23|6|0,25|6|1,27|6|1,29|6|0,31|6|0,33|6|0,35|6|1,37|6|1,39|6|1,41|6|0,43|6|0,-5|8|0,-3|8|0,-1|8|0,1|8|0,3|8|0,5|8|0,7|8|0,9|8|0,11|8|0,13|8|0,15|8|1,17|8|1,19|8|0,21|8|1,23|8|0,25|8|0,27|8|0,17|10|0,19|10|1,21|10|1,23|10|0,25|10|1,27|10|1,29|10|0,31|10|0,33|10|0,35|10|1,37|10|0,39|10|0,41|10|1,43|10|0", 1)
MyArray = Split(XY, "|")
OKX = Clng(MyArray(0)): OKY = Clng(MyArray(1))
Delay 64
If OKX>0
Delay 64
MoveTo OKX,OKY
Delay 64
LeftClick 1
EndIf
Delay 64
Return 找物
Sub HPMP
VBSCall FindColorEx(hppx,hpry,hppx+1,hpry+8,"01006e",0,,hpcX,hpcY)
If hpcX>0
Delay 128
Else
If DZ=0
VBS xxts="血太少,打坐吧.........................................................................................................."
Gosub 写信息
Delay 512
KeyPress ADZ,1
Gosub 打坐
Else
KeyPress HP,1
Delay 128
EndIf
EndIf
VBSCall FindColorEx(hppx,hpry+10,hppx+1,hpry+18,"6d4100",0,,mpcX,mpcY)
If mpcX>0
Delay 128
Else
If DZ=0
VBS xxts="蓝太少,打坐......................................................................................................"
Gosub 写信息
Delay 512
KeyPress ADZ,1
Gosub 打坐
Else
KeyPress MP,1
Delay 128
EndIf
EndIf
Return HPMP
Sub 写信息
Delay 64
Plugin (bkx1+300,bky1+4,bkx1+800,bky1+22,xxts,"0000ff")
Delay 64
Return 写信息
Sub 移动一下
MoveTo (bkx2-bkx1)/2+100,(bky2-bky1)/2+100
Delay 128
LeftClick 1
Delay 128
Return 移动一下
Sub 捡查验证
Delay 16
Plugin XY = (bkx1, bky1+150, bkx2, bky2-150,
"0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0,12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|0,26|0|0,28|0|0,30|0|1,32|0|0,34|0|0,36|0|0,38|0|1,40|0|1,42|0|1,44|0|0,0|2|1,2|2|1,4|2|1,6|2|1,8|2|0,10|2|0,12|2|1,14|
2|1,16|2|1,18|2|1,20|2|1,22|2|0,24|2|0,26|2|1,28|2|1,30|2|0,32|2|0,34|2|0,36|2|0,38|2|1,40|2|0,42|2|1,44|2|0,0|4|1,2|4|0,4|4|1,6|4|0,8|4|0,10|4|0,12|4|1,14|4|0,16|4|1,18|4|0,20|4|1,22|4|0,24|4|0,26|4|0,28|4|1,30|4|0,32|4|1,34|4|0,36|4|0,38|4|1,40|4|0,42|4|1,44|4|0,0|6|1,2|6|1,4|6|1,6|6|1,8|6|0,10|6|0,12|6|1,14|6|1,16|6|1,18|6|1,20|6|1,22|6|0,24|6|1,26|6|0,28|6|1,30|6|0,32|6|0,34|6|0,36|6|0,38|6|1,40|6|0,42|6|1,44|6|0,0|8|1,2|8|0,4|8|1,6|8|0,8|8|0,10|8|0,12|8|0,14|8|0,16|8|1,18|8|0,20|8|0,22|8|0,24|8|0,26|8|1,28|8|1,30|8|0,32|8|0,34|8|0,36|8|0,38|8|0,40|8|0,42|8|1,44|8|0,0|10|1,2|10|1,4|10|1,6|10|1,8|10|1,10|10|0,12|10|0,14|10|0,16|10|1,18|10|0,20|10|0,22|10|0,24|10|1,26|10|0,28|10|1,30|10|0,32|10|0,34|10|0,36|10|0,38|10|0,40|10|0,42|10|1,44|10|1", 1)
VBS ccca = Split(XY, "|")
VBS nzco = Clng(ccca(0)): nzcv = Clng(ccca(1))
Delay 16
If nzco>0
If nzsz=0
VBS xxts="出现验证码,你定义了随机选择,选择失败请等10分钟...................................."
Gosub 写信息
Delay 16
Gosub 随机选择
ElseIf nzsz=1
VBS xxts="出现验证码,你定义了手动处理,15秒后按任意键继续........................"
Gosub 写信息
Delay 16
For 7
KeyPress JN,1
Delay 1000
KeyPress JN,1
Delay 1000
EndFor
WaitKey
EndIf
EndIf
Return 捡查验证
Sub 随机选择
Delay 32
Randomize
VBS szmjg = Int((999 * Rnd) + 1)
Delay 32
Plugin XY = (bkx1, bky1+150, bkx2, bky2-150,
"0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0,12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|0,26|0|0,28|0|0,30|0|1,32|0|0,34|0|0,36|0|0,38|0|1,40|0|1,42|0|1,44|0|0,0|2|1,2|2|1,4|2|1,6|2|1,8|2|0,10|2|0,12|2|1,14|2|1,16|2|1,18|2|1,20|2|1,22|2|0,24|2|0,26|2|1,28|2|1,30|2|0,32|2|0,34|2|0,36|2|0,38|2|1,40|2|0,42|2|1,44|2|0,0|4|1,2|4|0,4|4|1,6|4|0,8|4|0,10|4|0,12|4|1,14|4|0,16|4|1,18|4|0,20|4|1,22|4|0,24|4|0,26|4|0,28|4|1,30|4|0,32|4|1,34|4|0,36|4|0,38|4|1,40|4|0,42|4|1,44|4|0,0|6|1,2|6|1,4|6|1,6|6|1,8|6|0,10|6|0,12|6|1,14|6|1,16|6|1,18|6|1,20|6|1,22|6|0,24|6|1,26|6|0,28|6|1,30|6|0,32|6|0,34|6|0,36|6|0,38|6|1,40|6|0,42|6|1,44|6|0,0|8|1,2|8|0,4|8|1,6|8|0,8|8|0,10|8|0,12|8|0,14|8|0,16|8|1,18|8|0,20|8|0,22|8|0,24|8|0,26|8|1,28|8|1,30|8|0,32|8|0,34|8|0,36|8|0,38|8|0,40|8|0,42|8|1,44|8|0,0|10|1,2|10|1,4|10|1,6|10|1,8|10|1,10|10|0,12|10|0,14|10|0,16|10|1,18|10|0,20|10|0,22|10|0,24|10|1,26|10|0,28|10|1,30|10|0,32|10|0,34|10|0,36|10|0,38|10|0,40|10|0,42|10|1,44|10|1", 1)
VBS MyArray = Split(XY, "|")
VBS Xznm = Clng(MyArray(0)): Yznm = Clng(MyArray(1))
Delay 32
If Xznm>0
If szmjg>0 and szmjg<250
VBS abcx=Xznm+10: abcy=Yznm+75
ElseIf szmjg>=250 and szmjg<500
VBS abcx=Xznm+10: abcy=Yznm+101
ElseIf szmjg>=500 and szmjg<750
VBS abcx=Xznm+10: abcy=Yznm+127
ElseIf szmjg>750
VBS abcx=Xznm+10: Yznm+153
EndIf
Delay 256
MoveTo abcx,abcy
Delay 32
LeftClick 1
Delay 256
MoveTo Xznm+154,Yznm+180
Delay 32
LeftClick 1
Delay 512
Plugin XY = (bkx1, bky1+100, bkx2, bky2-100,
"0|0|1,2|0|1,4|0|1,6|0|1,8|0|1,10|0|0,12|0|0,14|0|0,16|0|1,18|0|0,20|0|0,22|0|0,24|0|1,26|0|1,28|0|1,30|0|1,32|0|0,34|0|0,36|0|0,38|0|0,40|0|1,42|0|0,44|0|1,46|0|0,48|0|1,50|0|0,52|0|0,54|0|0,56|0|1,58|0|0,60|0|1,62|0|0,64|0|0,66|0|0,68|0|0,70|0|0,72|0|0,74|0|0,76|0|0,78|0|0,80|0|0,82|0|0,84|0|0,86|0|0,88|0|1,90|0|1,92|0|1,0|2|1,2|2|0,4|2|1,6|2|0,8|2|1,10|2|0,12|2|0,14|2|0,16|2|1,18|2|0,20|2|0,22|2|0,24|2|1,26|2|1,28|2|0,30|2|1,32|2|0,34|2|0,36|2|0,38|2|1,40|2|1,42|2|1,44|2|0,46|2|0,48|2|1,50|2|1,52|2|0,54|2|1,56|2|1,58|2|0,60|2|0,62|2|0,64|2|0,66|2|0,68|2|0,70|2|0,72|2|1,74|2|0,76|2|0,78|2|0,80|2|0,82|2|0,84|2|1,86|2|0,88|2|1,90|2|1,92|2|1,0|4|1,2|4|0,4|4|1,6|4|0,8|4|1,10|4|0,12|4|0,14|4|0,16|4|1,18|4|0,20|4|0,22|4|0,24|4|1,26|4|1,28|4|0,30|4|1,32|4|0,34|4|0,36|4|0,38|4|1,40|4|1,42|4|1,44|4|0,46|4|0,48|4|1,50|4|1,52|4|1,54|4|1,56|4|1,58|4|0,60|4|1,62|4|1,64|4|0,66|4|0,68|4|0,70|4|0,72|4|1,74|4|0,76|4|1,78|4|0,80|4|1,82|4|0,84|4|1,86|4|1,88|4|1,90|4|1,92|4|1,0|6|1,2|6|0,4|6|1,6|6|0,8|6|1,10|6|0,12|6|0,14|6|0,16|6|1,18|6|0,20|6|0,22|6|0,24|6|1,26|6|1,28|6|1,30|6|1,32|6|1,34|6|0,36|6|0,38|6|0,40|6|0,42|6|0,44|6|0,46|6|0,48|6|1,50|6|0,52|6|0,54|6|0,56|6|1,58|6|0,60|6|0,62|6|1,64|6|0,66|6|0,68|6|0,70|6|0,72|6|1,74|6|0,76|6|1,78|6|0,80|6|1,82|6|0,84|6|1,86|6|0,88|6|1,90|6|0,92|6|1", 1)
VBS MyArray = Split(XY, "|")
VBS BBX = Clng(MyArray(0)): BBY = Clng(MyArray(1))
Delay 32
If BBX>0
xxts="验证码选择失败,等待10分钟....................................................."
Gosub 写信息
Delay 128
Gosub 等待
EndIf
EndIf
Return 随机选择
Sub 等待
VBS tt4=now
Rem ddsj
If datediff("s",tt4,now)>=600
Delay 512
Goto ddw
Else
Delay 512
Gosub HPMP
Delay 128
Goto ddsj
EndIf
Rem ddw
Return 等待
学习网络游戏找 怪 的思路方法(按键精灵脚本技术)
很多朋友都不知道如何在游戏中用按键精灵 找怪物
请看下面哦
对一些找怪的思路小有体会。简单来说找怪就是找怪与背景不同的独有的特征,可以通过找怪的颜色/图片、怪名字颜色/图片、怪血条颜色/图片、渐开线扫描、小地图找怪等等的方法来实现。具体看游戏而定,下面就介绍几种找怪的方法:
1。区域找色 应该说是最简单的找怪方法了,在区域里查找怪的特有颜色、名字颜色、血条颜色、怪的阴影等等。如果找到移动鼠标到怪身上进行攻击 (推荐用区域模糊找色或从区域中间向外找色)。
例子(区域模糊找色):
VBSCall FindColorEx(0,0,1024,768,"FFFFFF",1,,x,y)
LeftClick 1
比例是(大地图怪坐标和大地图人物坐标之间的距离)与(小地图怪坐标和小地图人物坐标之间的距离)这两者的比例。如下图 A线与B线的比例。用小地图找怪所需的计算数据必须比较准确。
然后用区域找色查找小地图上怪的小点(最好用从区域中心向外找色),找到怪的小点后再计算坐标,计算得出大地图坐标后,移动鼠标到怪身上打怪。
下载 KB)
2007-6-24 18:34
例子(小地图找怪):
VBSCall FindCenterColor(858,66,996,192,"0000FF",x,y)
//区域从中间向外找色,858,66,996,192是小地图的区域范围
If x>=0 and y>=0
//如果找到颜色
x0=(x-926)*10+512
y0=(y-129)*10+389
//计算大地图怪的坐标
MoveTo x0 y0
//移动到大地图怪的坐标
Delay 50
//延时
LeftClick 1
//左键单击进行攻击
EndIf
//条件结束
特别注意:移动到怪位置后用“鼠标特征码比对”可有效提高找怪的准确性。(可用于所有找怪方式内)
我暂时就写这几个了,当然找怪的方法不止这几种而已,欢迎大家一起来独立团讨论与分享~!
版权声明:本文标题:挂机必备按键精灵网游脚本编写教程 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/dongtai/1707391991a195187.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论