热血江湖挂机脚本

1. 热血江湖挂机脚本

家等了好久````

很多人都想要这个脚本！今天我发布出来与大家分享```希望大家能用的习惯

本脚本只适合挂主动区！自动检物。

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停止

2. 热血江湖按键精灵挂机(脚本高手)进

KeyPress 114 1
Delay 50
IfColor 58 24 5a4542 0
KeyPress 117 1
Delay 800
EndIf
IfColor 76 10 393852 0
KeyPress 115 1
Delay 800
EndIf
这个是QE的群脚本 网上下个按键精灵 然后把脚本添加进去
F3是技能 F6是蓝 启动热键自己可以设置的

3. 求热血江湖挂机的按键精灵脚本

下面是我朋友做的群刀脚本，超级好用，现在n多人都在用这个脚本：

[General]
Description=群刀半自动练级
BeginHotkey=121
beginHotkeyMod=4
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[Comment]
Content=

[Script]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*循环设为循环1次.F11开始，F12中止.
//*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.
//*F1为60级轻功，F2技能，F3红，F4蓝，F5捡东西，F6回城符，F7单攻技能,F8为15轻功.
//*群刀手动引怪时也能轻松了，点远处怪，则使用单攻技能，点身旁怪，则群攻。
//*动动鼠标，一直打6、7个怪不是问题，轻松+愉快啊
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
VBS hongBF=70
//血量少于百分之多少（可自行设定）时，脚本自动吃红。
VBS dihui=25
//血量少于百分之多少（可自行设定）时，脚本自动回城打坐。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Rem 开始打怪
KeyPress 119
Delay 32
Gosub 补红蓝
Gosub 无药回城
For 3
KeyPress 118 1
//第一击为单攻技能,江湖中出连续技能了，怕发不出来就循环3次吧
Delay 128
EndFor
Rem 技能攻击
VBSCall Call FindCenterColor(350,220,674,460,"1028ff",x1,y1)
//检测怪的血条
If x1>0 and y1>0
//有血条，怪存在
For 3
KeyPress 113 1
//使用技能攻击，同理循环3次
Delay 128
EndFor
//技能延时
Gosub 补红蓝
For 3
KeyPress 116 1
Delay 128
EndFor
Gosub 无药回城
Goto 技能攻击
//循环技能攻击
EndIf
Goto 开始打怪
//无怪，怪卡住或死亡，重新开始下一轮循环
Rem 停止挂机
MoveTo 512 468
LeftClick 1
Delay 3000
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 3000
EndScript
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 补红蓝
Rem 低血回城
IfColor dihui*1.28+21 5 4a5173 2
SayString 晕，差点挂了，我闪。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress 117 1
Delay 5000
Delay 5000
Goto 停止挂机
EndIf
Rem 补红
IfColor hongBF*1.28+21 5 4a5173 2
KeyPress 114 1
Delay 128
EndIf
Rem 补蓝
IfColor 57 22 4a3c39 2
KeyPress 115 1
Delay 256
EndIf
Return 补红蓝
Sub 无药回城
IfColor 706 749 b5ffe7 2
SayString 没红了，我再闪。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress 117 1
Delay 5000
Delay 5000
Goto 停止挂机
EndIf
IfColor 744 749 b5ffe7 2
SayString 没蓝了，我也闪。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress 117 1
Delay 5000
Delay 5000
Goto 停止挂机
EndIf
Return 无药回城
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//【脚本经过修改、测试】
//【创作日期】2006.7
//【脚本作者】逆风之帆(Email:[email protected])
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓

4. 热血江湖挂机脚本

简单游

5. 热血江湖暗键精灵挂机的一个脚本

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*循环设为循环1次.F11开始，F12中止.
//*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.
//*F1为60级轻功，F2技能，F3红，F4蓝，F5捡东西，F6回城符，F7单攻技能,F8为15轻功.
//*群刀手动引怪时也能轻松了，点远处怪，则使用单攻技能，点身旁怪，则群攻。
//*动动鼠标，一直打6、7个怪不是问题，轻松+愉快啊

最好把循环那里改成按终止键再停止循环吧。

纯脚本不会有马。放心使用。

6. 关于热血江湖的脚本的

按键精灵是打手挂机用的，医生不用这么复杂，随便一个小挂就可以了，比如说无奈主页的一个辅助工具，挂群不用把窗口缩小的，想看电影可以设置播放器“播放时置于最上”这样就可以挂群看电影了，至于玩其他的游戏，恐怕不行啊，会占用你的网速和内存，而且同时开两个网游官方会认为你的另一个网游是非法软件，而对你采取一些
“措施”

7. 热血江湖按键精灵打手挂机脚本

脚本是这个，按键就要自己去下载了随便下载个就可以了主要的是脚本的问题拉
群刀定点单刷无药回城

Rem 打怪
KeyPress 114 1
Delay 50
Rem 补血兰
IfColor 125 12 424563 2
KeyPress 118 1
Delay 300
EndIf
IfColor 93 12 424563 2
KeyPress 118 1
Delay 300
EndIf
IfColor 70 18 634542 2
KeyPress 117 1
Delay 300
EndIf
Rem 捡物
KeyPress 115 1
Delay 300
Rem 找怪
MoveTo 0 300
Delay 300
MoveTo 525 435
Delay 300
LeftClick 1
Delay 5
Rem 无药回城
IfColor 856 736 000000 2
KeyPress 119 1
Delay 300
EndIf
IfColor 825 738 000000 2
KeyPress 119 1
Delay 300
EndIf
Goto 打怪

脚本说明

按键：只循环一次,启动键自己任意设
快捷键：F1-15轻功 F2-60轻功 F3-主技能 F4-捡物 F5-单攻或次技能 F6-兰 F7-红 F8-回城符 F11(或F10,F9)-启动 F12-中止
游戏：在1024*768分辨率状态下,视图适当倾斜一定角度以长时间挂机人物不(或少)移动并且刷怪效率为最佳.建议关闭查看,关闭交易,单刷时关闭组队功能,游戏中部分特效也可关闭.

8. 热血江湖怎么挂机

在挂机地图上选择三X，然后手动跑到你刷怪的位置，在本地挂机上打上勾。（一定是先跑到地方再打钩）然后设置好挂机半径。如果是刀的话你也可以选择群刀引怪。在回补地图里选择三X，在上面的框框里修改你要买的药和药的数量，如“露小凤金疮药（中）100”只改字，不要去掉“”。在本地挂机中，可以设置药低于多少数量回程，然后角色会自动去NPC回补，再跑回挂机地点````

9. 关于热血江湖脚本

MoveTo 1023 312
Delay 400
MoveTo 468 435
Delay 400
LeftDoubleClick 1
Delay 800
IfColor 75 5 001cff 2
Else
KeyPress 114 1
Delay 300
EndIf
IfColor 55 18 734d4a 2
KeyPress 115 1
Delay 400
EndIf
KeyPress 120 1
Delay 100
Rem 程序开始
KeyPress 120 1
hhjg=hhjg+1
VBSCall Call ReadMemory(&h144BDCC,1,redmax)
VBSCall Call ReadMemory(&h144BDC0,1,red)
VBSCall Call ReadMemory(&h144BDD0,1,bluemax)
VBSCall Call ReadMemory(&h144BDC4,1,blue)
redb1=redmax/100*16
redb0=redmax/100*23
redbj=redmax/100*60
blueba=bluemax/100*60
bluebb=bluemax/100*80
bluebj=bluemax/100*30
If red<redb0
KeyPress 118 1
Delay 90000
EndIf
If red<redb1
KeyPress 118 1
Delay 90000
EndIf
If blue<blueba
KeyPress 116 1
Delay 400
EndIf
If blue<bluebb
KeyPress 116 1
Delay 400
EndIf
VBSCall Call Delay(ys)
Goto 程序开始
EndFor

Home--启动

F12---关闭

F3红、F4蓝、F5拿东西小手、F7回城符、F9打怪技能！

10. 谁能给我热血江湖 群刀全自动挂机脚本

群刀定点单刷挂机捡物无药回城1.52006-12-16 17:36Rem 打怪
KeyPress 114 1
Delay 50
Rem 补血兰
IfColor 125 12 424563 2
KeyPress 118 1
Delay 300
EndIf
IfColor 93 12 424563 2
KeyPress 118 1
Delay 300
EndIf
IfColor 70 18 634542 2
KeyPress 117 1
Delay 300
EndIf
Rem 捡物
KeyPress 115 1
Delay 300
Rem 找怪
MoveTo 0 300
Delay 300
MoveTo 525 435
Delay 300
LeftClick 1
Delay 5
Rem 无药回城
IfColor 856 736 000000 2
KeyPress 119 1
Delay 300
EndIf
IfColor 825 738 000000 2
KeyPress 119 1
Delay 300
EndIf
Goto 打怪

脚本说明
按键：只循环一次,启动键自己任意设
快捷键：F1-15轻功 F2-60轻功 F3-主技能 F4-捡物 F5-单攻或次技能 F6-兰 F7-红 F8-回城符 F11(或F10,F9)-启动 F12-中止
游戏：在1024*768分辨率状态下,视图适当倾斜一定角度以长时间挂机人物不(或少)移动并且刷怪效率为最佳.建议关闭查看,关闭交易,单刷时关闭组队功能,游戏中部分特效也可关闭.
小兔信箱：[email protected]