热血江湖 有什么好的挂机软件 (热血江湖官网有自动挂机的吗)
热血江湖 有什么好的挂机软件 (热血江湖官网有自动挂机的吗)
用按键，单刷湖
有人清湖的
要挂J
就去D挂
只要蓝红没问题挂一年都没问题，用按键的话自己先去官网弄个
在到论坛弄脚本
保证安全，如果直接用别人做好的
难免有木马。
热血江湖现在用鸟人助手免费挂机好。根据查询相关公开信息显示，鸟人助手辅助挂机软件可以支持iOS越狱和iOS免越狱不同苹果系统使用，安卓手机也可以用，功能齐全且免费。
出平十指领｛江湖小助手｝然后将需要的血放在F2 把魔放在F4 把技能放在F1
然后就可以开心的去挂机了。。呵呵
无敌那么简单的东西问问就弄到了，或者随便+一个什么江湖的群，群空间里绝对有。。
脚本给你个比较早的，自动打怪检打转
本脚本只适合挂主动区！自动检物。
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 x10 and y10
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 x10 and y10
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=MapXYtxt
VBS x=x+6
EndFor
Rem 输出坐标
VBS i=InStr(MapXY, ".")
If txt="]" and i1
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 JuLi120
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 JuLi2JuLi1
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 JuLi2JuLi1
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 JuLi2JuLi1
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 JuLi2JuLi1
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停止
