1. 求按键精灵自动打怪及半手动打怪脚本
1、运行按键精灵。在主界面上点选“新建”进入脚本编辑
2、在界面左边的命令类型里选择鼠标命令。常用的就是前2个。假设游戏中人物为中心坐标500，500。我每次选取怪物前需点选角色自己。那么如图，鼠标移动到 那里可以下拉选择一个坐标插入命令。（这个坐标可以直接在游戏里截取也可以自己设置。如何在游戏里抓点，后边会介绍到。）然后鼠标动作下拉菜单里选择左键单击==插入命令。
3、如果手动输入坐标点的话，可以先插入鼠标移动到x=0 y=0。然后在脚本区直接修改。2种修改方式。一是在源文件中修改，一种是在普通里双击命令修改，如图
4、假设游戏的寻怪快捷键为F1。那么找到键盘命令。这里常用的2种命令，一是按键，二是按键组合。只要把鼠标点在下图中空白处，然后在键盘上按下需要编辑的键，就可以自动记录了。
5、上一步已经按了自动寻怪了。下一步该进行攻击了。假设攻击的快捷键是ctrl+1。这就用到按键组合的命令了。插入ctrl+1的命令脚本。这里需要注意的是，默认是执行命令脚本时，按下ctrl+1后只弹开ctrl键。如图：
6、我们需要手动输入弹开1键的命令。点选源文件，我们可以看到按下1键和弹起ctrl键的命令分别是keypress 49，1 和 keyup 17，1 组合一下就得到弹起1键的命令为keyup 49，1。这里要注意的是逗号要用半角输入。
7、一套连贯的攻击完毕。下边需要对自动吃药的脚本进行编辑。在这个命令里我们主要是依靠对颜色的辨别来完成的。在控制命令里选择需要的点和颜色进行编辑。（点和颜色用抓点功能直接在游戏里抓取）下边插入的这个命令解读为若点796，638的颜色为黑色时则如何，否则如何。什么意思呢？假设游戏人物HP条50%处的点为796，638。那么如果血掉到50%以下，这个点的颜色就应该是黑的了。这时我就要吃HP药水了。
8、可以看出，这条命令无法单独使用。我们需要插入吃药的脚本命令。先在其他命令中选择延时100毫秒插入，然后插入游戏中HP药水的快捷键F2。这里说一下延时的用处。延时的设置是因为如果连续运行多条脚本命令时，机器可以能反映不过来而当掉，所以基本每条单独的命令都会插入适当的延时。
9、若需要设置吃MP药水，则同上步骤。若需在游戏中喊话，则可在其他命令中选择文本输入命令。记着输入完文本还需设置回车命令将文本发送出去。
10、关于抓点。脚本编辑界面上方直接点选抓点功能，然后切入游戏，将鼠标放到需要抓的点上，按抓点快捷键就可以将鼠标点的坐标和颜色抓取下来了。
11、脚本编辑完毕，我们还需对脚本的启动、停止热键，以及对脚本的描述做出修改。热键直接点在右边编辑窗口需要修改的地方，然后点下鼠标就可以修改了。热键点完空白地方直接在键盘上按一下就可以了。注意脚本循环里一定要选择循环到按中止键为止。
12、OK，全部编辑完毕，保存脚本退出。返回按键精灵主界面。现在已经可以看到我们自己制作的脚本了。
以上就是按键精灵简单的游戏脚本制作，要注意的是几乎所有的网络游戏都可以使用按键精灵，但部分带有比较强的反外挂系统的网游只能使用按键精灵的部分功能，比如带有nProtect或者xTrap反外挂系统的网游，就必须使用按键精灵最新版，并且打开神盾自我保护功能，才能使用。
2. 会用按键精灵做诛仙2青云群怪脚本的教我一下
学会用按键精灵“录制”功能就行了！自己学一下很容易懂！！渣烂雹！开如帆着法宝，设置自动加血，不主动攻击任何怪，不拾取任何东西！！！再用录制功能录制一遍你群一轮怪的鼠标键盘轨迹。脚本循环。跑回你开始录制的地点，按启动历咐就OK了！
3. 梦幻诛仙求按键精灵脚本！高手进
梦幻诛仙自动杀怪脚本
Delay 2000
Delay 2000
UserVar Var=DropList{普通模拟:0|硬件模拟:1|超级模拟:2}=0 设置模拟方式
If var=0
SetSimMode 0
ElseIf var=1
SetSimMode 1
Else
SetSimMode 2
EndIf
//下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "73F4FF", "1|0|C7FBFF,2|0|1AB7E3,3|0|1AB7E3,4|0|1AB7E3,5|0|1AB7E3,6|0|23D2F0,0|1|16B3E3,6|1|16B3E3,0|2|12ADE3,6|2|15BBEA,0|3|17DBFF,6|3|14CDF7,0|4|8DEBFF,6|4|0CBBF0,0|5|16D1FF,6|5|059FE3,0|6|029BE3,1|6|029BE3,2|6|029BE3,3|6|04CAFF,4|6|029BE3,5|6|029BE3,6|6|029BE3", 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
m = Clng(MyArray(0)): n = Clng(MyArray(1))
If m<0
msgbox "脚本出错了，请检查分辨率设置和桌面色度设置，脚本已停止！",16
EndScript
EndIf
UserVar a=DropList{F1:1|F2:2|F3:3|F4:4|F5:5|F6:6|F7:7|F8:8}=1 人物使用技能
UserVar b=DropList{普通攻击:1|技能1:2}=1 宠物如何攻击
UserVar renhong=40 人物加血（%）
UserVar renlan=30 人物加蓝（%）
UserVar chonghong=40 宠物加血（%）
UserVar chonglan=30 宠物加蓝（%）
Rem 开始
While 1
Gosub 判断进入战斗
EndWhile
Sub 精确找怪
MoveTo m+255,n-445
Delay 100
VBSCall var=GetCursorShape(0)
If var=1227848726
Delay 500
LeftClick 1
Goto 找怪结束
EndIf
MoveTo m+174,n-426
Delay 100
VBSCall var=GetCursorShape(0)
If var=1227848726
Delay 500
LeftClick 1
Goto 找怪结束
EndIf
MoveTo m+97,n-382
Delay 100
VBSCall var=GetCursorShape(0)
If var=1227848726
Delay 500
LeftClick 1
Goto 找怪结束
EndIf
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
Rem 找怪结束
Return 精确找怪
Sub 宠物操作
If b=1
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
ElseIf b=2
//技能1
VBSCall FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
If intx>0
Delay 300
MoveTo intx,inty
LeftClick 1
Delay 300
VBSCall FindPic(0,0,1024,768,"Attachment:\球.bmp",0.9,intX,intY)
If intx>0
MoveTo intx+23,inty+41
Delay 300
LeftClick 1
Gosub 精确找怪
EndIf
Else
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
EndIf
EndIf
//下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x>0
Goto 开始
EndIf
Return 宠物操作
Sub 加雪蓝
//人物加血
Delay 100
IfColor renhong*0.62+716+m n-572 311E73 2
MoveTo renhong*0.62+716+m,n-572
Delay 500
RightClick 1
EndIf
//人物加蓝
Delay 100
IfColor renlan*0.62+716+m n-560 604714 2
MoveTo renlan*0.62+716+m,n-560
Delay 500
RightClick 1
EndIf
//宠物加血
Delay 100
IfColor chonghong*0.53+571+m n-572 604714 2
MoveTo chonghong*0.53+571+m,n-572
Delay 500
RightClick 1
EndIf
//宠物加蓝
Delay 100
IfColor chonglan*0.53+572+m n-560 604717 2
MoveTo chonglan*0.53+572+m,n-560
Delay 500
RightClick 1
EndIf
Return 加雪兰
Sub 验证
VBSCall FindPic(m-12,n-568,m+787,n+13,"Attachment:\确.bmp",0.9,intX,intY)
If intx>0
While 1
Beep
Delay 1000
VBSCall FindPic(m-12,n-568,m+787,n+13,"Attachment:\确.bmp",0.9,intX,intY)
If intx<0
Goto 跳出验证
EndIf
EndWhile
EndIf
Rem 跳出验证
Return 验证
Sub 人物按键
Delay 100
If a=1
KeyPress 112,1
ElseIf a=2
KeyPress 113,1
ElseIf a=3
KeyPress 114,1
ElseIf a=4
KeyPress 115,1
ElseIf a=5
KeyPress 116,1
ElseIf a=6
KeyPress 117,1
ElseIf a=7
KeyPress 118,1
ElseIf a=8
KeyPress 119,1
EndIf
Return 人物按键
Sub 判断进入战斗
VBSCall FindPic(m+8, n-564, m+32, n-546,"Attachment:\x.bmp",0.9,X,Y)
If x>0
//杀怪
While 1
Delay 500
//人物操作 判断是否出现法字
//下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "F6E5A1", "1|0|E5C683,0|1|FFEDAC,1|1|EFD292,-4|2|E1B679,-3|2|FFE6A9,-2|2|FFE6A9,-1|2|FFE6A9,0|2|FFE6A9,1|2|FFE6A9,2|2|FFE6A9,3|2|FFE6A9,4|2|FFE6A9,5|2|E0B377,-4|3|D39B61,-3|3|EFC68C,-2|3|EFC68C,-1|3|EFC68C,0|3|FFDFA6,1|3|FDDBA2,2|3|EFC68C,3|3|EFC68C,4|3|EFC68C,5|3|D49D62,0|4|FFD8A3,1|4|EFC08A,0|5|FFD19F,1|5|EFBA87,-4|6|EEB383,-3|6|EFB484,-2|6|EFB484,-1|6|EFB484,0|6|FFCA9C,1|6|FDC699,2|6|EFB484,3|6|EFB484,4|6|EFB484,5|6|EBAF7F,-4|7|FFC299,-3|7|FFC399,-2|7|FFC399,-1|7|FFC399,0|7|FFC399,1|7|FFC399,2|7|FFC399,3|7|FFC399,4|7|FFC399,5|7|FABD93,-2|8|C2713F,-1|8|FFBB96,0|8|C77847,-3|9|B15B26,-2|9|FDB290,-1|9|FAAF8C,2|9|F2A681,3|9|F9AD8A,-4|10|A0470E,-3|10|F6A484,1|10|973F00,2|10|D07B4F,3|10|FFAD90,4|10|E5926D,-4|11|DE8561,-3|11|FFA68D,3|11|FBA288,4|11|FFA68D,5|11|BB6131,-4|12|FF9F89,-3|12|FF9F89,-2|12|F3947A,-1|12|F4957B,0|12|FC9C86,1|12|FF9F89,2|12|FF9F89,3|12|FF9F89,4|12|FF9F89,5|12|F09175,-4|13|E48063,-3|13|FD9683,-2|13|FD9784,-1|13|F9937E,0|13|F18B74,1|13|E58165,2|13|D67452,3|13|C26338,4|13|F08B73,5|13|FF9886,5|14|D46E4D", 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
Gosub 验证
If x>0
Gosub 人物按键
Gosub 精确找怪
Delay 1000
Gosub 宠物操作
EndIf
//下面这句在屏幕区域范围内查找多点颜色,返回左上角第2点颜色位置坐标
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
//下面这句用于分割字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
//判断是否结束战斗
If x>0
Gosub 加雪蓝
Delay 300
Goto 开始
EndIf
EndWhile
EndIf
Return 判断进入战斗
东西给你了，如果还不懂的话我也没办法
4. 求按键精灵3D游戏自动打怪脚本制作教程。。。。
首先，3D当2D处理=不准动鼠标滑轮
然后，根据血条判断怪物存在，找怪通常是TAB键：在野外按下TAB键，当屏幕出现怪物血条按下攻击快捷键打怪，其间血条消失则重新判断另外一只怪重复动作即可
总结：要结合判断依据才行。建议用颜色判断
5. 请问按键精灵在网络游戏中是如何使用的..例如自动打怪的
按键精灵
最简单的用法就是：打开按键精灵，选择左上角的”增加”，那是做一个新脚本时用的．
进入脚本
编辑器
后，先看你的顶上，选一个脚本名字（这个名字就会成为脚本在
硬盘
上的文件名），选好启动热键和中止热键．
然后你看到左边有一个”鼠标动作”了吗？在这个里面有一个鼠标动作的选择，你把它选到”右键按下”，后面的”执行次数”不要动它，再按一下后面的”插入”，好现在这一行命令就进入你的程序了！
最后就是按右上角的保存脚本，再退出来就完成啦！现在你一按你自己设定的启动热键，按键精灵就会自动帮你按下右键了，多方便呀！把你贴在鼠标右键上的胶带撕下来吧！你的鼠标会哭泣的！
其它更复杂一点的脚本的制作方法呢？请看一下
精灵
中有几个示范脚本。你已经学会了做脚本的基本方法，再学下去就不难啦！
6. 如何使用按键精灵快速制作自动打怪脚本
打开按键精灵的新建选项，选择键盘命令，输入以下数值，按插入键。
7. 诛仙简单自动打怪脚本，我只要能自动打怪的就行了！！哪位高手给个
诛仙 自动打怪 外挂 按键精灵 脚本代码
实现诛仙里面类似法宝天人和一 自动喝药打怪练级的
F4 大红 f5 大蓝 f6 拣东西 设置好后
简单代码如下 :
[General]
Description=自动练级
BeginHotkey=122
BeginHotkeyMod=0
RunOnce=0
Enable=1
[Repeat]
Type=1
Number=9699696
[Script]
KeyPress 9 1
Delay 1000
KeyPress 49 1
Delay 1000
KeyPress 49 1
Delay 10000
KeyPress 115 1
KeyPress 116 1
KeyPress 117 1
ScriptOption]
Description=诛仙自动打怪
BeginHotkey= 122
BeginHotkeyMod= 0
EndHotKey= 123
EndHotKeyMod= 0
RunOnce= 0
Enable= 1
Type= 1
Number= 1
ScriptFormat= 0
[Comment]
诛仙
[InitVar]
UserVar=基址|VarName=Var19|Type=String|Value=8ec0f4
UserVar=精灵工作方式|VarName=Var30|Type=DownList|Value= 0|Enum=挂机;辅助
UserVar=拾物时间(毫秒)|VarName=Var32|Type=Long|Value= 500
UserVar=红瓶|VarName=Var6|Type=DownList|Value= 8|Enum=自定义
UserVar=加红百分比(1-100)|VarName=Var13|Type=Long|Value= 60
UserVar=蓝瓶|VarName=Var7|Type=DownList|Value= 9|Enum=自定义
UserVar=加蓝百分比(1-100)|VarName=Var14|Type=Long|Value= 30
UserVar=运气|VarName=Var9|Type=DownList|Value= 7|Enum=自定义
UserVar=是否运气回血，1=是，0=否|VarName=Var12|Type=DownList|Value= 0|Enum=否;是
UserVar=拾取|VarName=Var8|Type=DownList|Value= 10|Enum=自定义
UserVar=普通攻击|VarName=Var1|Type=DownList|Value= 0|Enum=自定义
UserVar=技能一|VarName=Var2|Type=DownList|Value= 17|Enum=自定义
UserVar=技能二|VarName=Var3|Type=DownList|Value= 17|Enum=自定义
UserVar=技能三|VarName=Var50|Type=DownList|Value= 17|Enum=自定义
UserVar=辅助一|VarName=Var11|Type=DownList|Value= 17|Enum=自定义
UserVar=辅助一施放间隔(毫秒)|VarName=Var24|Type=Long|Value= 1800000
UserVar=辅助二|VarName=Var4|Type=DownList|Value= 16|Enum=自定义
UserVar=辅助二施放间隔(毫秒)|VarName=Var25|Type=Long|Value= 1800000
UserVar=辅助三|VarName=Var5|Type=DownList|Value= 17|Enum=自定义
UserVar=辅助三施放间隔(毫秒)|VarName=Var26|Type=Long|Value= 1800000
[VBSScriptCode]
[Main]
Dim HPSetup
Dim MPSetup
Dim fzjnSetup1
Dim fzjnSetup2
Dim fzjnSetup3
Dim hxSetup
Dim hpTime 'HP药的延迟
Dim mpTime 'MP药的延迟
Dim fzjn1 '辅助技能延迟
Dim fzjn2 '辅助技能延迟
Dim fzjn3 '辅助技能延迟
Dim nowTime '当前时间
Dim i
Dim NewLoop '新循环
Dim chucktime '扔东西再拣东西的间隔时间
Dim guaicode '怪的代码
Dim gxfs
Dim neicun,base_3,base_2,base_1,base_0,base
Dim dxue,dlan,mxue,mlan,bug,tmph
Dim hwnd,CTime,CTK,CTB,JTime,Bug_CDX,Bug_CDY,CDX_Ptr,CDY_Ptr,CDX_Base,CDY_Base
Dim mxue1,mlan1,dxue1,dlan1,gwid1,gwid2
Sub Main()
Call GetSetup
chucktime=0
hptime=GetTime
mptime=GetTime
fzjn1=GetTime-fzjnSetup1
fzjn2=GetTime-fzjnSetup2
fzjn3=GetTime-fzjnSetup3
newloop=0
hwnd=HWindow.getForeground
Call SetupMEM
gwid1=HMEM.ReadMEMEX(hwnd,bug,3)
gwid2=gwid1
Do While 1=1
Call UseAssistSkill '使用辅助技能
If gxfs="挂机" Then
Call FindObject '找怪
js=0
'----------------打怪----------------
CTK = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)<>0 And GetTime - CTK < 180000
'-------------先砍怪一下-------------
If js=0 Then
HApp.SendKeyPress hwnd,Var1 '第一技能按键，我的是按键<1>
Delay 400
js=1
End If
'------------------------------------
'--------------施放技能1-------------
HApp.SendKeyPress hwnd,Var2 '第一技能按键，我的是按键<F4>
Delay 400
'------------------------------------
'--------------施放技能2-------------
HApp.SendKeyPress hwnd,Var3 '第二技能按键，我的是按键<F5>
Delay 400
'------------------------------------
'--------------施放技能3-------------
HApp.SendKeyPress hwnd,Var50 '第三技能按键，我的是按键<F6>
Delay 200
Call SupplyHP '补血
Call SupplyMP '补蓝
Delay 200
'------------------------------------
Loop
gwid1=gwid2
'-----------------------------------
Delay 200
Call CullArticle '拣东西
End If
If gxfs="辅助" Then
Call SupplyHP '补血
Call SupplyMP '补蓝
End If
If newloop=0 Then
Call RenewVitality '运气回复
End If
Delay 200
Loop
End Sub
Sub GetSetup() '设置变量初始值
HPSetup = Var13 '加红设置，单位为百分比，但请不要设置为22至68之间，该区域被有可能被文字遮挡，无法取血条颜色
MPSetup = Var14 '加蓝设置，单位为百分比，但请不要设置为22至68之间，该区域被有可能被文字遮挡，无法取蓝条颜色
fzjnSetup1 = Var24 '辅助技能施放间隔，单位为毫秒，1秒=1000毫秒
fzjnSetup2 = Var25 '辅助技能施放间隔，单位为毫秒，1秒=1000毫秒
fzjnSetup3 = Var26 '辅助技能施放间隔，单位为毫秒，1秒=1000毫秒
hxSetup = Var12 '是否运气回血，1=是，0=否
gxfs=Var30
End Sub
Sub UseAssistSkill() '使用辅助技能
nowtime=GetTime
If nowtime-fzjn1>fzjnSetup1 Then
For j=1 To 2
HApp.SendKeyPress hwnd,Var11 '
Delay 300
Next
fzjn1=GetTime
End If
nowtime=GetTime
If nowtime-fzjn2>fzjnSetup2 Then
For j=1 To 2
HApp.SendKeyPress hwnd,Var4 '
Delay 300
Next
fzjn2=GetTime
End If
nowtime=GetTime
If nowtime-fzjn3>fzjnSetup3 Then
For j=1 To 2
HApp.SendKeyPress hwnd,Var5 '
Delay 300
Next
fzjn3=GetTime
End If
End Sub
Sub FindObject() '找怪
CTime = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)=0 And gwid1=gwid2
HApp.SendKeyPress hwnd,"Tab" '找怪
Delay 300
gwid2=HMEM.ReadMEMEX(hwnd,bug,3)
Loop
End Sub
Sub SupplyHP() '补血
nowtime=GetTime
If nowtime-hptime>3000 Then
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
If dxue1<(mxue1*HPSetup/100)-1 Then
hptime=GetTime
HApp.SendKeyPress hwnd,Var6 '
Delay 100
End If
End If
End Sub
Sub SupplyMP() '补蓝
nowtime=GetTime
If nowtime-mptime>3000 Then
dlan1 = HMEM.ReadMEMEX(hwnd,dlan,3)
If dlan1<(mlan1*MPSetup/100)-1 Then
mptime=GetTime
HApp.SendKeyPress hwnd,Var7 '
Delay 100
End If
End If
End Sub
Sub CullArticle() '拣东西
CTB = GetTime
Do While HMEM.ReadMEMEX(hwnd,bug,3)=0 And GetTime - CTB < Var32 '用1000MS拣东西
HApp.sendKeyPress hwnd,Var8
Delay 100
Loop
End Sub
Sub RenewVitality() '运气回复
If hxSetup="是" Then
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
If dxue1<(mxue1*70/100)-1 Then
HApp.SendKeyPress hwnd,Var9 '气功回血，我的是按键<0>
Do While dxue1<(mxue1*90/100)-1
Delay 500
'假如回复过程中被攻击则中断回血
If HMEM.ReadMEMEX(hwnd,bug,3)<>0 Then
newloop=1
Exit Do
End If
'------------------------------
dxue1 = HMEM.ReadMEMEX(hwnd,dxue,3)
Loop
End If
End If
End Sub
Sub SetupMEM()
Dim memstr
memstr=Var19
memstr = CLng("&h" & memstr)
memstr = gethex(hex(memstr))
base = HMEM.ReadMEMEX(Hwnd,memstr,3)
base = base + 40
base = gethex(hex(base))
base = HMEM.ReadMEMEX(Hwnd,base,3)
base = base + 596
dxue = gethex(hex(base))
dlan = gethex(hex(base + 4))
mxue = gethex(hex(base + 24))
mlan = gethex(hex(base + 28))
bug = gethex(hex(base + 1376))
mxue1 = HMEM.ReadMEMEX(hwnd,mxue,3) '最大化xue值
mlan1 = HMEM.ReadMEMEX(hwnd,mlan,3) '最大化lan值
End Sub
Function gethex(hexstr)
Dim tempstr
tempstr=string(8-len(hexstr),"0")
gethex="&H"& tempstr & hexstr
End Function
[MainEnd]
[VBSLib]
\MyLib\Default.Txt
[EndVBSLib]
[PublicVar]
[EndPublicVar]
8. 按键精灵自动打怪脚本如何设置
[Script]
Plugin hwnd=Window.Foreground()
Import window.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
Dim red,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
UserVar fqg=DropList{防抢怪:0|不防抢怪:1}=0 防抢怪设置
UserVar jb=DropList{不捡包:0|自动捡包:1}=0 是否捡物
UserVar s1=2 门派普攻F1间隔(秒)
UserVar s2=20 单体攻击F2间隔(秒)
UserVar s3=20 单体攻击F3间隔(秒)
UserVar s4=25 怒气攻击F4间隔(秒)
UserVar s5=80 自定技能F5间隔(秒)
UserVar s6=60 BB技能F6间隔(秒)
UserVar s7=10 状态技能F7间隔(分)
UserVar red=DropList{30%:30|50%:50|70%:70}=1 血少于%加血F8
UserVar blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9
UserVar bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10
UserVar redwait=1 红药冷却时间(秒)
UserVar bluewait=1 蓝药冷却时间(秒)
UserVar monwait=100 寻怪延时(毫秒)
PutAttachment .\plugin *.dll
Rem 开始
Delay monwait
Gosub 验证码
Gosub 找怪
If fqg=0
IfColor dx+369,dy+31,1E252A,2
Goto 开始
EndIf
EndIf
Rem 继续杀怪
Gosub 判断血蓝状态
Gosub BB血状态
Gosub 杀怪
Rem End
EndScript
Sub 验证码
Rem 再次报警
VBSCall FindPic(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
If x>0 and y>0
Plugin SimPlayer.ring(19)
//使用了声音插件，需要自己去官网下载
Delay 2000
EndIf
While x>0
VBSCall FindPic(0,300,600,550,"Attachment:\20S.bmp",0.9,x,y)
If x>=0 and y>=0
IfColor x+17,y+9-k,FFFFFF,0
KeyPress 27 1
Delay 1000
MoveTo dx+446,dy+315
Delay 1000
LeftClick 1
Goto End
EndIf
Else
Goto 再次报警
EndIf
EndWhile
Return 验证码
Sub 判断血蓝状态
IfColor red/100*120+66+dx,dy+31,222222,2
a=a+1
Else
EndIf
IfColor blue/100*120+66+dx dy+37 222222 2
b=b+1
Else
EndIf
Return 判断血蓝状态
Sub BB血状态
If bbred>0
IfColor bbred+91+dx dy+69 111111 2
c=c+1
EndIf
EndIf
Return BB血状态
Sub 找怪
KeyDown 1,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 1,1
Delay 10
Return 找怪
Sub 杀怪
IfColor dx+247,dy+31,0019FF,2
IfColor dx+261,dy+31,0011ff,2
Gosub 技能
Else
KeyPress 12 1
Delay 1000
EndIf
Goto 继续杀怪
Else
If jb=1
Gosub 捡包
Else
Goto 开始
EndIf
EndIf
Return 杀怪
Sub 怒气判断
IfColor qx+126,qy+43,00ffff,2
q=1
EndIf
IfColor qx+188,qy+43,00ffff,2
q=2
EndIf
Return 怒气判断
Sub 技能
Goto 开始
If DateDiff("s",t1,now)>=s1
KeyPress 12 1
t1=now
Delay 100
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t2,now)>=s2
Delay 500
KeyPress 113 1
t2=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t3,now)>=s3
Delay 500
KeyPress 114 1
t3=now
Delay 500
EndIf
Else
EndIf
Gosub 怒气判断
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t4,now)>=s4 and q>=1
Delay 500
KeyPress 115 1
t4=now:q=q-1
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t5,now)>=s5
Delay 500
KeyPress 116 1
t5=now
Delay 500
EndIf
Else
EndIf
IfColor dx+261,dy+31,0011ff,2
If DateDiff("s",t6,now)>=s6
KeyPress 117 1
t6=now
Delay 100
EndIf
EndIf
If DateDiff("n",t7,now)>=s7
MoveTo dx+36,dy+35
LeftClick 1
Delay 100
KeyPress 118 1
t7=now
Delay 100
KeyDown 17,1
Delay 10
KeyPress 9,1
Delay 10
KeyUp 17,1
Delay 10
EndIf
If DateDiff("s",t8,now)>=redwait and a>=1
KeyPress 119 1
t8=now:a=0
Delay 500
EndIf
If DateDiff("s",t9,now)>=bluewait and b>=1
KeyPress 120 1
t9=now:b=0
Delay 500
EndIf
If DateDiff("s",t10,now)>=1 and c>=1
KeyPress 121 1
t10=now
c=0
Delay 500
EndIf
Return 技能
Sub 捡包
Dim v,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
If x0-a1>=a2-x0
n=a1
Else
n=x0-(a2-x0)
EndIf
Rem 开始搜索
v=l
i=m
x1=x0:y1=y0-v
While x1>=n
k1=0:k2=v
For 2
For i
x1=x1+k1:y1=y1+k2
If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2
MoveTo x1,y1
Delay 2
VBSCall shape=GetCursorShape(0)
If shape=d
Delay 50
RightClick 1
Delay 400
Goto 开始
EndIf
EndIf
EndFor
k1=v:k2=0
EndFor
i=i+1:v=v*(-1)
EndWhile
Goto 开始
Return 捡包