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

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

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

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

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

按键精灵学习教程

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

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

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

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

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

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

一、键盘命令

命令名称：

GetLastKey检测上次按键

命令功能：

检测上次按键

命令参数：

参数1整数型，可选：

变量名

返回值：

无

脚本例子：

语法）  

复制代码

1.

1.

Loop

1.

1.

1.  

2.  

3.MouseWheel 1  

1.  

2.  

3.MouseWheel 1  

4.

1. 

脚本例子：

语法）  

复制代码

1. 

命令名称：

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

命令功能：

保存当前鼠标位置

命令参数：

无

返回值：

无

脚本例子：

语法）  

复制代码

1.SaveMousePos  

1.

LoopLoopLoopLoopLoop

1.

1.

1.

则

命令功能：

判断表达式

命令参数：

参数1条件型，表达式

返回值：

无

脚本例子：

语法）  

复制代码

1.例子1：

2.i=0  

3.If i=0 Then  

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

!

"  

5.End If  

1.

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

2.Rem 脚本开始  

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

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"  

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

mp。

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

PutAttachment"c:

\","*.bmp"

plugin","*.dll"

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

2.mp。

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

3.PutAttachment c:

\ *.bmp  

4.plugin *.dll  

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

mp。

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

PutAttachmentc:

\*.bmp

plugin*.dll

1.

VBSEndVBS执行块

命令功能：

构成一个VBScript块

命令参数：

无

返回值：

无

脚本例子：

语法）  

复制代码

1.VBSBegin  

2.    For i=0 to 5  

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

!

"  

4.        '这是注释  

5.    Next  

6.VBSEnd  

1.

mp",,x1,y1）

  Ifx1>0andy1>0

  Else

      [url=t

      VBSt=t+1

      Goto1

  EndIf

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

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

        Ifvas=1

          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

  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

  EndIf

ReturnHPMP

Sub写信息

  Delay64

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

  EndIf

Return捡查验证

Sub随机选择

  Delay32

  Randomize

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

  Delay32

  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