按键精灵网游高级脚本编写教程.docx

资源描述

按键精灵网游高级脚本编写教程.docx

《按键精灵网游高级脚本编写教程.docx》由会员分享，可在线阅读，更多相关《按键精灵网游高级脚本编写教程.docx（38页珍藏版）》请在冰点文库上搜索。

按键精灵网游高级脚本编写教程.docx

按键精灵网游高级脚本编写教程

献给热爱按键精灵的广大爱好者

按键精灵学习教程

一、键盘命令（2~5页）

二、鼠标命令（5~13页）

三、控制命令（13~22页）

四、颜色/图像命令（22~28页）

五、其他命令（28~355页）

五、网游脚本实例（35~最后）

一、键盘命令

命令名称：

GetLastKey检测上次按键

命令功能：

检测上次按键

命令参数：

参数1整数型，可选：

变量名

返回值：

无

脚本例子：

语法）

Loop

3.MouseWheel1

脚本例子：

语法）

命令名称：

RestoreMousePos恢复上次保存的鼠标位置

命令功能：

保存当前鼠标位置

命令参数：

无

返回值：

无

脚本例子：

语法）

1.SaveMousePos

LoopLoopLoopLoopLoop

则

命令功能：

判断表达式

命令参数：

参数1条件型，表达式

返回值：

无

脚本例子：

语法）

1.例子1：

2.i=0

3.Ifi=0Then

4.Msgbox"条件判断符合被通过!

5.EndIf

1.可当注释,也可以为Goto跳转指令作标记

2.Rem脚本开始

脚本例子：

语法）

1.可当注释,也可以为Goto跳转指令作标记

2.Rem脚本开始

命令名称：

RestartScript重新启动脚本运行

命令功能：

重新启动脚本运行

命令参数：

无

返回值：

无

脚本例子：

语法）

1.Fori=0to2

2.Delay1000

3.Call"屏幕内容填写"&i,"0000FF"）

4.Next

RestartScript

则循环

命令功能：

条件循环

命令参数：

参数1条件型，循环条件

返回值：

无

脚本例子：

语法）

1.i=0

2.Whilei=0

3.Msgbox"我停不下来啦!

快住手"

4.Wend

1.，则默认展开到按键精灵所在的文件夹中

2.mp。

如果不指定要释放的文件，则默认释放所有文件

3.PutAttachment"c:

\","*.bmp"

4.plugin","*.dll"

1.，则默认展开到按键精灵所在的文件夹中

2.mp。

如果不指定要释放的文件，则默认释放所有文件

3.PutAttachmentc:

\*.bmp

4.plugin*.dll

VBSEndVBS执行块

命令功能：

构成一个VBScript块

命令参数：

无

返回值：

无

脚本例子：

语法）

1.VBSBegin

2.Fori=0to5

3.Msgbox"我在循环运行VBScript块哦!

4.'这是注释

5.Next

6.VBSEnd

mp",,x1,y1）

Ifx1>0andy1>0

Else

VBSt=t+1

Goto1

EndIf

《蜀门》辅助脚本源码

.........................................................."

Gosub写信息

Delay256

UserVarHong=50补血百分比

UserVarlan=50补蓝百分比

UserVarDZ=DropList{打坐:

0|吃药:

1}=0低血选项

UserVarADZ=6打坐按键（0--9）

VBSADZ=ADZ+48

UserVarHP=4加血按键（0--9）

VBSHP=HP+48

UserVarMP=5加蓝按键（0--9）

VBSMP=MP+48

UserVarJN=1技能按键（0--9）

VBSJN=JN+48

UserVarwpgq=20e72e怪物光圈颜色（找物品用,光圈特征色）

UserVarnzsz=DropList{随机选择:

0|手动选择:

1}=0验证码处理方法

Delay256

VBSCallFindColorEx（bkx1,bky1+32,bkx1+100,bky1+100,"0300df",0,,hprX,hprY）

VBShppx=Cint（hprx+hong*:

mppx=Cint（hprx+lan*

Delay256

GosubHPMP

Delay64

Rem开始主程序

Delay100

VBSCallFindColorEx（hprX+280,hprY-4,hprX+283,hprY+4,"0300df",0,,intX,intY）

Delay16

IfintX>0

VBSxxx=1

VBSxxts="锁定怪物,开始攻击......................................................................................"

Gosub写信息

Delay100

KeyPressJN,1

Delay1000

Else

Gosub捡查验证

Delay32

Gosub找物

Delay32

GosubHPMP

Delay32

VBSxxx=0

KeyPress9,1

Delay128

EndIf

Delay64

Goto开始主程序

Sub打坐

Delay1000

Remg

VBSCallFindColorEx（hprx+154,hpry,hprx+156,hpry+18,"0100df",0,,hpuX,hpuY）

Delay16

VBSCallFindColorEx（hprx+154,hpry,hprx+156,hpry+18,"e08901",0,,hptX,hptY）

Delay16

IfhpuX>0andhptx>0

Delay200

Gotor

Else

Delay800

Gotog

EndIf

Remr

Return打坐

Sub找物

VBSdimjwx（5）,jwy（5）

Delay64

For2

VBSCallFindColorEx（bkx1+100,bky1+100,bkx2-100,bky2-100,wpgq,0,,WX,WY）

Delay64

EndFor

IfWX>0

VBSjwx（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

VBScci=0

For5

Delay64

MoveTojwx（cci）+WX,jwy（cci）+WY

Delay32

VBSCallvas=GetCursorShape（0）

Delay32

VBSxxts="发现物品....................................................................................."

Gosub写信息

Delay64

RightDown1

Delay16

RightUp1

Delay64

Goto捡

EndIf

VBScci=cci+1

EndFor

EndIf

Rem捡

Delay512

PluginXY=（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））

Delay64

IfOKX>0

Delay64

MoveToOKX,OKY

Delay64

LeftClick1

EndIf

Delay64

Return找物

SubHPMP

VBSCallFindColorEx（hppx,hpry,hppx+1,hpry+8,"01006e",0,,hpcX,hpcY）

IfhpcX>0

Delay128

Else

IfDZ=0

VBSxxts="血太少,打坐吧.........................................................................................................."

Gosub写信息

Delay512

KeyPressADZ,1

Gosub打坐

Else

KeyPressHP,1

Delay128

EndIf

VBSCallFindColorEx（hppx,hpry+10,hppx+1,hpry+18,"6d4100",0,,mpcX,mpcY）

IfmpcX>0

Delay128

Else

IfDZ=0

VBSxxts="蓝太少，打坐......................................................................................................"

Gosub写信息

Delay512

KeyPressADZ,1

Gosub打坐

Else

KeyPressMP,1

Delay128

EndIf

ReturnHPMP

Sub写信息

Delay64

（bkx1+300,bky1+4,bkx1+800,bky1+22,xxts,"0000ff"）

Delay64

Return写信息

Sub移动一下

MoveTo（bkx2-bkx1）/2+100,（bky2-bky1）/2+100

Delay128

LeftClick1

Delay128

Return移动一下

Sub捡查验证

Delay16

PluginXY=（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）

VBSccca=Split（XY,"|"）

VBSnzco=Clng（ccca（0））:

nzcv=Clng（ccca

（1））

Delay16

Ifnzco>0

Ifnzsz=0

VBSxxts="出现验证码,你定义了随机选择,选择失败请等10分钟...................................."

Gosub写信息

Delay16

Gosub随机选择

ElseIfnzsz=1

VBSxxts="出现验证码，你定义了手动处理,15秒后按任意键继续........................"

Gosub写信息

Delay16

For7

KeyPressJN,1

Delay1000

KeyPressJN,1

Delay1000

EndFor

WaitKey

EndIf

Return捡查验证

Sub随机选择

Delay32

Randomize

VBSszmjg=Int（（999*Rnd）+1）

Delay32

VBSMyArray=Split（XY,"|"）

VBSXznm=Clng（MyArray（0））:

Yznm=Clng（MyArray

（1））

Delay32

IfXznm>0

Ifszmjg>0andszmjg<250

VBSabcx=Xznm+10:

abcy=Yznm+75

ElseIfszmjg>=250andszmjg<500

VBSabcx=Xznm+10:

abcy=Yznm+101

ElseIfszmjg>=500andszmjg<750

VBSabcx=Xznm+10:

abcy=Yznm+127

ElseIfszmjg>750

VBSabcx=Xznm+10:

Yznm+153

EndIf

Delay256

MoveToabcx,abcy

Delay32

LeftClick1

Delay256

MoveToXznm+154,Yznm+180

Delay32

LeftClick1

Delay512

PluginXY=（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,3

展开阅读全文