热血江湖按键精灵热血江湖 按键精灵的设置

热血江湖无敌自动挂机脚本

e68a843231313335323631343130323136353331333236366233　无敌那么简单的东西问问就弄到了，或者随便+一个什么江湖的群，群空间里绝对有。

。

　　脚本给你个比较早的，自动打怪检打转 　　本脚本只适合挂主动区！自动检物。

　　VBS dim mX1,mY1,mX2,mY2 　　Gosub 补红蓝 　　Gosub 读取坐标 　　VBS mX1=MapX 　　VBS mY1=MapY 　　SayExpression "("+CStr(mX1)+","+CStr(mY1)+")"+".准备好了没" 　　Rem 挂机开始 　　Gosub 补红蓝 　　Gosub 判断坐标 　　Gosub 找怪开始 　　KeyPress 120 1 　　Delay 100 　　Goto 挂机开始 　　Sub 找怪开始 　　Rem 继续 　　Gosub 补红蓝 　　KeyDown 120 1 　　Delay 80 　　KeyUp 120 1 　　MoveTo 1300 460 　　Delay 150 　　MoveTo 1300 460 　　Delay 140 　　MoveTo 513 460 　　Delay 20 　　LeftClick 1 　　Delay 100 　　KeyDown 114 1 　　Delay 100 　　KeyUp 114 1 　　Delay 50 　　Gosub 补红蓝 　　VBSCall Call FindColor(150,150,750,650,"1028FF",x1,y1) 　　If x1<0 and y1<0 　　Delay 50 　　Goto 继续 　　Else 　　Gosub 打怪 　　EndIf 　　Return 找怪开始 　　Sub 打怪 　　Rem KG 　　KeyDown 120 1 　　Delay 80 　　KeyUp 120 1 　　Gosub 补红蓝 　　KeyDown 114 1 　　Delay 100 　　KeyUp 114 1 　　Delay 50 　　Gosub 补红蓝 　　VBSCall Call FindColor(150,150,750,650,"00107B",x1,y1) 　　If x1<0 and y1<0 　　Gosub 补红蓝 　　Delay 200 　　MoveTo 1300 460 　　Delay 150 　　MoveTo 513 460 　　Delay 200 　　Goto 挂机开始 　　Else 　　Goto KG 　　EndIf 　　Return 打怪 　　Sub 判断坐标 　　Gosub 读取坐标 　　VBS mX2=MapX 　　VBS mY2=MapY 　　VBS MuBiaoY=mY1 　　VBS MuBiaoX=mX1 　　If Abs(mX1-mX2)+Abs(mY1-mY2)>20 　　Gosub 自动行走 　　EndIf 　　Return 判断坐标 　　Sub 读取坐标 　　VBS MapX,MapY 　　VBS x=876:y=24 　　VBS MapXY="" 　　VBS i=0:j=0:k=0 　　For 12 　　Delay 16 　　Gosub 读取数字 　　Rem 读取完毕 　　If txt="]" 　　Goto 输出坐标 　　EndIf 　　VBS MapXY=MapXY&txt 　　VBS x=x+6 　　EndFor 　　Rem 输出坐标 　　VBS i=InStr(MapXY, ".") 　　If txt="]" and i>1 　　VBS MapX=Clng(Left(MapXY, i - 1)) 　　VBS MapY=Clng(Mid(MapXY, i + 1)) 　　EndIf 　　Return 读取坐标 　　Sub 读取数字 　　IfColor x+1 y+4 0002BD 2 　　IfColor x+3 y+4 0002BD 2 　　IfColor x+5 y+4 0002BD 2 　　VBS txt="-" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　EndIf 　　IfColor x+2 y+8 0002BD 2 　　IfColor x+3 y+8 0002BD 2 　　Else 　　VBS txt="." 　　Goto 读取完毕 　　EndIf 　　EndIf 　　IfColor x+2 y 0002BD 2 　　VBS txt="]" 　　Goto 读取完毕 　　EndIf 　　IfColor x+1 y+4 0002BD 2 　　IfColor x+1 y+5 0002BD 2 　　IfColor x+5 y+4 0002BD 2 　　VBS txt="0" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　EndIf 　　IfColor x+2 y+2 0002BD 2 　　VBS txt="1" 　　Goto 读取完毕 　　EndIf 　　IfColor x+1 y+8 0002BD 2 　　IfColor x+5 y+8 0002BD 2 　　VBS txt="2" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　IfColor x+1 y+7 0002BD 2 　　IfColor x+2 y+4 0002BD 2 　　Else 　　IfColor x+3 y+4 0002BD 2 　　VBS txt="3" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　EndIf 　　IfColor x+2 y+3 0002BD 2 　　IfColor x+4 y+3 0002BD 2 　　VBS txt="4" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　IfColor x+1 y+1 0002BD 2 　　IfColor x+1 y+7 0002BD 2 　　VBS txt="5" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　IfColor x+4 y+2 0002BD 2 　　IfColor x+4 y+3 0002BD 2 　　Else 　　VBS txt="6" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　IfColor x+1 y+1 0002BD 2 　　IfColor x+4 y+3 0002BD 2 　　VBS txt="7" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　IfColor x+1 y+4 0002BD 2 　　Else 　　IfColor x+1 y+5 0002BD 2 　　IfColor x+5 y+5 0002BD 2 　　VBS txt="8" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　EndIf 　　IfColor x+1 y+4 0002BD 2 　　IfColor x+2 y+7 0002BD 2 　　IfColor x+5 y+4 0002BD 2 　　VBS txt="9" 　　Goto 读取完毕 　　EndIf 　　EndIf 　　EndIf 　　Return 读取数字 　　Sub 自动行走 　　VBS FangX=0 　　VBS YDR=160 　　Gosub 补红蓝 　　MoveTo 512 460 　　Delay 100 　　Gosub 读取坐标 　　VBS JuLi1=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) 　　Rem 移动 　　Gosub 补红蓝 　　If JuLi1>20 　　Rem 方向右 　　If FangX=0 　　MoveTo 512+YDR 460 　　LeftClick 1 　　Delay 20 　　Gosub 补红蓝 　　Delay 200 　　KeyDown 120 1 　　Delay 50 　　KeyUp 120 1 　　Delay 200 　　Gosub 补红蓝 　　Gosub 读取坐标 　　VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) 　　If JuLi2<JuLi1 　　VBS FangX=0 　　VBS JuLi1=JuLi2 　　Goto 移动 　　Else 　　VBS FangX=1 　　VBS JuLi1=JuLi2 　　Goto 移动 　　EndIf 　　EndIf 　　Rem 方向下 　　If FangX=1 　　MoveTo 512 460+YDR 　　LeftClick 1 　　Delay 20 　　Gosub 补红蓝 　　Delay 200 　　KeyDown 120 1 　　Delay 50 　　KeyUp 120 1 　　Delay 200 　　Gosub 补红蓝 　　Gosub 读取坐标 　　VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) 　　If JuLi2<JuLi1 　　VBS FangX=1 　　VBS JuLi1=JuLi2 　　Goto 移动 　　Else 　　VBS FangX=2 　　VBS JuLi1=JuLi2 　　Goto 移动 　　EndIf 　　EndIf 　　Rem 方向左 　　If FangX=2 　　MoveTo 512-YDR 460 　　LeftClick 1 　　Delay 20 　　Gosub 补红蓝 　　Delay 200 　　KeyDown 120 1 　　Delay 50 　　KeyUp 120 1 　　Delay 200 　　Gosub 补红蓝 　　Gosub 读取坐标 　　VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) 　　If JuLi2<JuLi1 　　VBS FangX=2 　　VBS JuLi1=JuLi2 　　Goto 移动 　　Else 　　VBS FangX=3 　　VBS JuLi1=JuLi2 　　Goto 移动 　　EndIf 　　EndIf 　　Rem 方向上 　　If FangX=3 　　MoveTo 512 460-YDR 　　LeftClick 1 　　Delay 20 　　Gosub 补红蓝 　　Delay 200 　　KeyDown 120 1 　　Delay 50 　　KeyUp 120 1 　　Delay 200 　　Gosub 补红蓝 　　Gosub 读取坐标 　　VBS JuLi2=sqr((MapX-MuBiaoX)^2+(MapY-MuBiaoY)^2) 　　If JuLi2<JuLi1 　　VBS FangX=3 　　VBS JuLi1=JuLi2 　　Goto 移动 　　Else 　　VBS FangX=0 　　VBS JuLi1=JuLi2 　　Goto 移动 　　EndIf 　　EndIf 　　EndIf 　　Return 自动行走 　　Sub 补红蓝 　　IfColor 81 10 42415A 2 　　KeyPress 112 1 　　Delay 400 　　EndIf 　　Delay 10 　　IfColor 46 24 524139 2 　　KeyPress 115 1 　　Delay 400 　　EndIf 　　Delay 10 　　Return 补红蓝 　　我的取名是综合挂机 　　F1红，F3技能，F4蓝，F9捡东西 　　F11启动，F12停止

热血江湖,按键精灵弄好了,可不知道怎么用?

按键精灵下载后要解压安装在热血江湖的文件夹里。

打开装热血江湖的文件夹，找到按键精灵的使用程序，点击打开，然后进入游戏，F11开始，F12停止，具体使用方法，按键精灵应该有说明。

热血江湖 按键精灵的设置

先跟你说说按键精灵吃红蓝的原理 这是个如果....那么....的一个句子 它首先用抓颜色这个功能抓了一下左上角红条这个位置没有血的时候的样子 然后用了“如果这个位置的颜色变成了我所定义的样子（也就是血条位置变成成灰色的时候），那么按F6（比如你的红药放在F6上）。

吃了药之后，血条恢复成了红色，那么这个语句就不在工作。

一般的时候都需要一些延时，就是说按了F6后，等上0.3秒（300毫秒），防止一瞬间按了N次F6，吃了很多红。

懂了上面的道理，你就能自己找到为什么不吃红 有几种原因，一个是定义的坐标不准确，比如你用了是现成的脚本，但是做脚本的人，他的红条位置就有可能跟你不一样，导致那个语句不启动。

一个是定义的颜色不准确，我不知道不同机器抓到同样位置的颜色是否一样，但是有可能抓的颜色不同，导致语句不启动。

第三个就是，脚本的吃红快捷键如果是F6，而你的红不在那，那么就没法吃红了。

按键精灵很简单，要想你的脚本好用，就要自己去抓颜色，设定位置。

那样才能真正偷懒。

至于你一开始就不停的喝蓝，估计是精灵定义的群疗是F1的话，那你的蓝正好就在F1上了，所以一开始就不停的喝蓝