热血江湖挂机软件用什么语言写（热血江湖挂机职业）

2023-01-14 8:06:21 游戏资讯 lvseyouxi
已被浏览1031次

热血江湖挂机脚本

家等了好久````

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

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

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

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

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

脚本给你个比较早的，自动打怪检打转

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

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

热血江湖挂机软件用什么语言写（热血江湖挂机职业） 第1张

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

1热血江湖打手挂机外挂 V170

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 200

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分辨率状态下,视图适当倾斜一定角度以长时间挂机人物不(或少)移动并且刷怪效率为更佳.建议关闭查看,关闭交易,单刷时关闭组队功能,游戏中部分特效也可关闭.

2按键精灵生成的脚本源文件

#这是按键精灵生成的脚本源文件

#在理解各条命令的基础上，您可以修改这个文件的内容

#您修改的结果将会在普通视图上有所反映

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓

//*循环设为循环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 x10 and y10

//有血条，怪存在

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:seven_wave@163.com)

// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓

复制这个脚本到按键里 推荐用按键

Yulgang Global热血江湖全球版用的辅助挂机软件哪种更好？

用过好几个软件，我现在用的是鸟人助手，这个辅助挂机软件相对来说会更好，因为是免费的，而且功能一点都不少，还特别齐全，可以支持iOS越狱和iOS免越狱不同苹果系统使用，安卓手机也可以用，值得用一用。 有不明白的可以继续追问或者百度搜索。

如何编写脚本，知道的详细告诉下，我要挂热血江湖用

你可以根据别人的脚本复制到自己的按键里面，分析他是什么思路，怎么能达到这种效果，举1反3，对自己很有帮助。

我做的脚本基本上就是，当某一坐标的颜色大约等于什么的时候执行什么命令。回程，喝红，喝蓝，都能这样设置，你还可以根据按键的录制功能来精简脚本，就能得到你想要的功能了```

热血江湖手游怎么玩 新手挂机攻略

挂机：紧接着就是游戏挂机。挂机尽量找比自己等级高5-10级的刷挂点，怪物普遍分两类，一类是普通怪，挂机尽量找这样的怪点【因为这样的怪最多2-4下搞定】尽量找到4-6个集中一点的刷怪点，刀起头落，经验刷刷刷;另外一类就是级别和普通怪差不多，但是半天打不死的怪物，效率低下，故不多说。【大概推荐挂机点如下：南林湖(山贼、食人花、金刚)神武门(女刺客、剑齿虎、狂狼)北海冻原(雪狼、小雪人、雪虎)焦土(渔匪、女匪)】。

攻略信息

MORE>

绿色游戏 © Copyright Your WebSite.Some Rights Reserved.

Powered by Themes by 琼ICP备2022011613号

联系我们| 留言建议| 网站管理