熱血江湖掛機腳本

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]