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

Companynumber：【WTUT-WT88Y-W8BBGB-BWYTT-19998】按键精灵网游高级脚本编写教程献给热爱按键精灵的广大爱好者按键精灵学习教程键盘命令（2~5页）二、鼠标命令（5~13页）三、控制命令（13~22页）四、颜色/图像命令（22~28页）五、其他命令（28~355页）五、网游脚本实例（35~最后）键盘命令命令名称：GetLastKey检测上次按键命令功能：检测上次按键命令参数：参数1整数型，可选：变量名返回值：无脚本例子：语法)HYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKLoopHYPERLINKHYPERLINKHYPERLINKHYPERLINKMouseWheel1HYPERLINKMouseWheel1HYPERLINKHYPERLINKHYPERLINK脚本例子：语法)命令名称：RestoreMousePos恢复上次保存的鼠标位置命令功能：保存当前鼠标位置命令参数：无返回值：无脚本例子：语法)SaveMousePosHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKLoopLoopLoopLoopLoopHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINK则命令功能：判断 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式命令参数：参数1条件型，表达式返回值：无脚本例子：语法)例子1：i=0Ifi=0ThenMsgbox"条件判断符合被通过!!"EndIfHYPERLINKHYPERLINKHYPERLINKHYPERLINK可当注释,也可以为Goto跳转指令作标记Rem脚本开始脚本例子：语法)可当注释,也可以为Goto跳转指令作标记Rem脚本开始命令名称：RestartScript重新启动脚本运行命令功能：重新启动脚本运行命令参数：无返回值：无脚本例子：语法)Fori=0to2Delay1000Call"屏幕内容填写"&i,"0000FF")NextRestartScriptHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINK则循环命令功能：条件循环命令参数：参数1条件型，循环条件返回值：无脚本例子：语法)i=0Whilei=0Msgbox"我停不下来啦!!快住手"WendHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINK，则默认展开到按键精灵所在的文件夹中mp。如果不指定要释放的文件，则默认释放所有文件PutAttachment"c:\","*.bmp"plugin","*.dll"HYPERLINK，则默认展开到按键精灵所在的文件夹中mp。如果不指定要释放的文件，则默认释放所有文件PutAttachmentc:\*.bmpplugin*.dllHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKHYPERLINKVBSEndVBS执行块命令功能：构成一个VBScript块命令参数：无返回值：无脚本例子：语法)VBSBeginFori=0to5Msgbox"我在循环运行VBScript块哦!!"'这是注释NextVBSEndHYPERLINKmp",,x1,y1)Ifx1>0andy1>0ElseVBSt=t+1Goto1EndIfEndIf《蜀门》辅助脚本源码.........................................................."Gosub写信息Delay256UserVarHong=50补血百分比UserVarlan=50补蓝百分比UserVarDZ=DropList{打坐:0|吃药:1}=0低血选项UserVarADZ=6打坐按键（0--9）VBSADZ=ADZ+48UserVarHP=4加血按键（0--9）VBSHP=HP+48UserVarMP=5加蓝按键（0--9）VBSMP=MP+48UserVarJN=1技能按键（0--9）VBSJN=JN+48UserVarwpgq=20e72e怪物光圈颜色(找物品用,光圈特征色)UserVarnzsz=DropList{随机选择:0|手动选择:1}=0验证码处理方法Delay256VBSCallFindColorEx(bkx1,bky1+32,bkx1+100,bky1+100,"0300df",0,,hprX,hprY)VBShppx=Cint(hprx+hong*:mppx=Cint(hprx+lan*Delay256GosubHPMPDelay64Rem开始主程序Delay100VBSCallFindColorEx(hprX+280,hprY-4,hprX+283,hprY+4,"0300df",0,,intX,intY)Delay16IfintX>0VBSxxx=1VBSxxts="锁定怪物,开始攻击......................................................................................"Gosub写信息Delay100KeyPressJN,1Delay1000ElseGosub捡查验证Delay32Gosub找物Delay32GosubHPMPDelay32VBSxxx=0KeyPress9,1Delay128EndIfDelay64Goto开始主程序Sub打坐Delay1000RemgVBSCallFindColorEx(hprx+154,hpry,hprx+156,hpry+18,"0100df",0,,hpuX,hpuY)Delay16VBSCallFindColorEx(hprx+154,hpry,hprx+156,hpry+18,"e08901",0,,hptX,hptY)Delay16IfhpuX>0andhptx>0Delay200GotorElseDelay800GotogEndIfEndIfRemrReturn打坐Sub找物VBSdimjwx(5),jwy(5)Delay64For2VBSCallFindColorEx(bkx1+100,bky1+100,bkx2-100,bky2-100,wpgq,0,,WX,WY)Delay64EndForIfWX>0VBSjwx(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)=-30VBScci=0For5Delay64MoveTojwx(cci)+WX,jwy(cci)+WYDelay32VBSCallvas=GetCursorShape(0)Delay32VBSxxts="发现物品....................................................................................."Gosub写信息Delay64RightDown1Delay16RightUp1Delay64Goto捡EndIfVBScci=cci+1EndForEndIfRem捡Delay512PluginXY=(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))Delay64IfOKX>0Delay64MoveToOKX,OKYDelay64LeftClick1EndIfDelay64Return找物SubHPMPVBSCallFindColorEx(hppx,hpry,hppx+1,hpry+8,"01006e",0,,hpcX,hpcY)IfhpcX>0Delay128ElseIfDZ=0VBSxxts="血太少,打坐吧.........................................................................................................."Gosub写信息Delay512KeyPressADZ,1Gosub打坐ElseKeyPressHP,1Delay128EndIfEndIfVBSCallFindColorEx(hppx,hpry+10,hppx+1,hpry+18,"6d4100",0,,mpcX,mpcY)IfmpcX>0Delay128ElseIfDZ=0VBSxxts="蓝太少，打坐......................................................................................................"Gosub写信息Delay512KeyPressADZ,1Gosub打坐ElseKeyPressMP,1Delay128EndIfEndIfReturnHPMPSub写信息Delay64(bkx1+300,bky1+4,bkx1+800,bky1+22,xxts,"0000ff")Delay64Return写信息Sub移动一下MoveTo(bkx2-bkx1)/2+100,(bky2-bky1)/2+100Delay128LeftClick1Delay128Return移动一下Sub捡查验证Delay16PluginXY=(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))Delay16Ifnzco>0Ifnzsz=0VBSxxts="出现验证码,你定义了随机选择,选择失败请等10分钟...................................."Gosub写信息Delay16Gosub随机选择ElseIfnzsz=1VBSxxts="出现验证码，你定义了手动处理,15秒后按任意键继续........................"Gosub写信息Delay16For7KeyPressJN,1Delay1000KeyPressJN,1Delay1000EndForWaitKeyEndIfEndIfReturn捡查验证Sub随机选择Delay32RandomizeVBSszmjg=Int((999*Rnd)+1)Delay32PluginXY=(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)VBSMyArray=Split(XY,"|")VBSXznm=Clng(MyArray(0)):Yznm=Clng(MyArray(1))Delay32IfXznm>0Ifszmjg>0andszmjg<250VBSabcx=Xznm+10:abcy=Yznm+75ElseIfszmjg>=250andszmjg<500VBSabcx=Xznm+10:abcy=Yznm+101ElseIfszmjg>=500andszmjg<750VBSabcx=Xznm+10:abcy=Yznm+127ElseIfszmjg>750VBSabcx=Xznm+10:Yznm+153EndIfDelay256MoveToabcx,abcyDelay32LeftClick1Delay256MoveToXznm+154,Yznm+180Delay32LeftClick1Delay512PluginXY=(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)VBSMyArray=Split(XY,"|")VBSBBX=Clng(MyArray(0)):BBY=Clng(MyArray(1))Delay32IfBBX>0xxts="验证码选择失败,等待10分钟....................................................."Gosub写信息Delay128Gosub等待EndIfEndIfReturn随机选择Sub等待VBStt4=nowRemddsjIfdatediff("s",tt4,now)>=600Delay512GotoddwElseDelay512GosubHPMPDelay128GotoddsjEndIfRemddwReturn等待学习网络游戏找怪的思路方法（按键精灵脚本技术）很多朋友都不知道如何在游戏中用按键精灵找怪物请看下面哦对一些找怪的思路小有体会。简单来说找怪就是找怪与背景不同的独有的特征，可以通过找怪的颜色/图片、怪名字颜色/图片、怪血条颜色/图片、渐开线扫描、小地图找怪等等的方法来实现。具体看游戏而定，下面就介绍几种找怪的方法：1。区域找色应该说是最简单的找怪方法了，在区域里查找怪的特有颜色、名字颜色、血条颜色、怪的阴影等等。如果找到移动鼠标到怪身上进行攻击（推荐用区域模糊找色或从区域中间向外找色）。例子（区域模糊找色）：VBSCallFindColorEx(0,0,1024,768,\"FFFFFF\",1,,x,y)//区域模糊找色，0,0,1024,768为区域范围，\"FFFFFF\"为颜色，1为查找方式(中间向外)，为模糊值，x,y为找色后储存坐标的变量Ifx>=0andy>=0//如果找到颜色（通过判断坐标变量是否在区域内就可以知道有没有找到目标）MoveToxy//把鼠标移动到该色的坐标（如果找的是怪名字或血条，可能移动不到怪身上，这时就要用鼠标偏移如：MoveTox+10y+10）Delay50//延时LeftClick1//左键单击进行攻击EndIf//条件结束用数组区域查找多色：点击查看注：①。区域范围的定位：区域范围指的是被搜索区域的范围，这4个参数分别指的是区域的左,上,右,下。简单的说就是取区域的左上角x,y坐标和右下角的x,y坐标，把这4个数值依次组合起来就是一个区域范围了。②。很多朋友对最后两个坐标变量x,y不太了解，在这里通俗的解释一下：顾名思义，这两个变量是用来贮存找色或找图后的坐标。当找到目标后，把目标所在的坐标位置贮存到这两个变量里，然后可以通过判断这两个坐标变量是否在区域范围内来确定是否找到了目标。如果找到目标，贮存的是目标所在的坐标位置。如果没有找到，那贮存的则是-1，所以我们也可以通过ifx=-1andy=-1来判断没有找到目标。2。区域找图在区域里查找怪的图形、怪的名字图片、血条图片等等。语法与区域找色相似，需要注意的是图片的处理，这里有两个教程可以参考一下教程①，教程②。图片做好后可以放在按键文件夹里的script文件夹中，就可以不用在脚本里写图片路径，只需图片名就行了，写脚本的时候比较方便。例子（区域找图）：VBSCallFindPic(0,0,1024,768,\"\",,x,y)//区域找图，0,0,1024,768为区域范围，\"\"为图片名（路径），为找图的相似度，x,y为找图后储存坐标的变量Ifx>=0andy>=0//如果坐标在区域内（找到图片）MoveToxy//移动到图片位置（图片左上角）Delay50//延时LeftClick1//左键单击EndIf//条件结束3。圆形渐开线扫描找怪法效率较低，这里有个较完整的例子可以参考一下4。圆形渐开线扫描找变色怪效率较低，下面是我以前收集的一个找变色怪的例子。VBSdimx0,n,y0,x,color0,color//声明变量Remstart//标记渐开线找怪开始VBSx0=400:n=1:y0=300:x=400//变量初始化Whilex<800//限定横坐标范围不超过800VBSx=x0+4*(cos(n)+n*sin(n))//根据渐开线 公式 小学单位换算公式大全免费下载公式下载行测公式大全下载excel公式下载逻辑回归公式下载 计算下一个点的横坐标并赋值给xVBSy=y0+3*(sin(n)-n*cos(n))//根据渐开线公式计算下一个点的纵坐标并赋值给yVBSCallcolor0=GetPixelColor(x,y)//在鼠标移动之前，获取目标点色值并赋值给color0VBSCallCallSetCursorPos(x,y)//马上移动鼠标到目标点VBSCallcolor=GetPixelColor(x,y)//获取鼠标移动后该点色值并赋值给colorIfcolor<>color0//同一点取得的两次色值比较，不同，则执行以下的打怪脚本LeftClick1//左键单击Delay3000//打怪延时EndIf//该点判断结束Delay10//循环延时VBSn=n+//渐开线参数增量，其中代表点间距，数值越小，渐开线散开点间距越小EndFor//一次渐开线取点判断结束Gotostart//跳转到开始，重复渐开线搜索5。小地图找怪公式：大地图怪坐标=(小地图怪坐标-小地图人物坐标)*比例+大地图人物坐标比例是（大地图怪坐标和大地图人物坐标之间的距离）与（小地图怪坐标和小地图人物坐标之间的距离）这两者的比例。如下图A线与B线的比例。用小地图找怪所需的计算数据必须比较准确。然后用区域找色查找小地图上怪的小点（最好用从区域中心向外找色），找到怪的小点后再计算坐标，计算得出大地图坐标后，移动鼠标到怪身上打怪。下载2007-6-2418:34例子（小地图找怪）：VBSCallFindCenterColor(858,66,996,192,\"0000FF\",x,y)//区域从中间向外找色，858,66,996,192是小地图的区域范围Ifx>=0andy>=0//如果找到颜色x0=(x-926)*10+512y0=(y-129)*10+389//计算大地图怪的坐标MoveTox0y0//移动到大地图怪的坐标Delay50//延时LeftClick1//左键单击进行攻击EndIf//条件结束特别注意：移动到怪位置后用“鼠标特征码比对”可有效提高找怪的准确性。（可用于所有找怪方式内）我暂时就写这几个了，当然找怪的方法不止这几种而已，欢迎大家一起来独立团讨论与分享~！361后台找图Delay1000MessageBoxHwndUserVarSJS=150"防卡机随机数"UserVarSJ01=1500"点击时间间隔"RemKSCallYS()CallFH()CallMHY()CallWJT()CallFH()CallKDG()CallFH()CallBSL()CallFH()CallQNM()GotoKSSubS()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSubX()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSubZ()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSubY()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSub九()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSub八()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSub七()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSub六()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSub五()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSubCX()IfX5>0AndY5>0ThenDelaySJCallGJ()EndIfIfX5>0AndY5>0ThenDelaySJCallGJ()EndIfIfX5>0AndY5>0ThenDelaySJCallGJ()EndIfIfX5>0AndY5>0ThenDelaySJCallGJ()EndIfIfX5>0AndY5>0ThenDelaySJCallGJ()EndIfEndSubSubGJ()IfBS=1ThenIfX5>0AndY5>0ThenDelaySJBS=0EndIfEndIfRemJXDIfX5>0OrX51>0OrX52>0ThenIfX5>0AndY5>0ThenDelaySJEndIfElseIfX5>0AndY5>0ThenDelaySJEndIfEndIfIfX5>0AndY5>0ThenGotoJXDEndIfSGLJ=SGLJ+1CallJDX()CallQT()CallFH()EndSubSubWJT()DJC=9For5CallSX()IfX5>0AndY5>0ThenDelaySJCallDW()EndIfNextEndSubSubKDG()DJC=9For5CallSX()IfX5>0AndY5>0ThenDelaySJCallDW()EndIfNextEndSubSubBSL()DJC=9For5CallSX()IfX5>0AndY5>0ThenDelaySJCallDW()EndIfNextEndSubSubQNM()DJC=9BS=1For5CallSX()IfX5>0AndY5>0ThenDelaySJCallDW()EndIfNextEndSubSubDW()IfX5>0AndY5>0ThenDelaySJIfDJC=9ThenBS=1Call九()ElseIfDJC=8BS=0Call八()ElseIfDJC=7BS=0Call七()ElseIfDJC=6BS=0Call六()ElseIfDJC=5BS=0Call五()EndIfDJC=DJC-1EndIfFor2CallY()CallS()NextCallCX()EndSubSubJR()IfX5>0AndY5>0ThenDelaySJEndIfEndSubSubFH()IfX5>0AndY5>0ThenDelaySJElseIfX5>0AndY5>0ThenDelaySJEndIfEndIfEndSubSubJDX()IfX5>0AndY5>0ThenDelaySJJDXLJ=JDXLJ+1EndIfIfX5>0AndY5>0ThenDelaySJEndIfIfX5>0AndY5>0ThenDelaySJEndIfEndSubSubYS()SJPY=Int((SJS*Rnd)+1)SJ=SJ01+SJPYYSX=180*LJEndSubSubQT()IfX5>0AndY5>0ThenDelaySJJDXLJ=JDXLJ+1EndIfIfX5>0AndY5>0ThenDelaySJJDXLJ=JDXLJ+1EndIfIfX5>0AndY5>0ThenDelaySJJDXLJ=JDXLJ+1EndIfEndSubSubMHY()CallSX()IfX5>0AndY5>0ThenDelaySJCallY()For5CallX()NextIfX5>0AndY5>0ThenDelaySJIfX5>0AndY5>0ThenDelaySJBS=1CallGJ()EndIfEndIfEndIfEndSubSubSX()IfX5>0AndY5>0ThenDelaySJElseIfX5>0AndY5>0ThenDelaySJEndIfEndIfEndSubSubOnScriptExit()HaoMiao=HaoMiaoJS-HaoMiaoKSXiaoShi=int(HaoMiao/1000/60/60)FenZhong=int(HaoMiao/1000/60)-XiaoShi*60Miao=Clng(HaoMiao/1000)-FenZhong*60-XiaoShi*60*60DXBL=JDXLJ/SGLJ*100MyVar=Round(DXBL,2)MessageBox"刷了"&SGLJ&"个怪"&chr(13)&"刷到"&JDXLJ&"个龙鳞武器"&chr(13)&"爆率为"&MyVar&"%"&chr(13)&"用时："&""&XiaoShi&"小时"&FenZhong&"分钟"&Miao&"秒"EndSub