一、热血江湖按键精灵挂机(脚本高手)进
1>>热血江湖打手挂机外挂 V170
按键：只循环一次,启动键自己任意设
快捷键：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个怪不是问题，轻松+愉快啊
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓
//血量少于百分之多少（可自行设定）时，脚本自动吃红。
//血量少于百分之多少（可自行设定）时，脚本自动回城打坐。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//第一击为单攻技能,江湖中出连续技能了，怕发不出来就循环3次吧
VBSCall Call FindCenterColor(350,220,674,460,"1028ff",x1,y1)
//无怪，怪卡住或死亡，重新开始下一轮循环
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
IfColor dihui*1.28+21 5 4a5173 2
SayString晕，差点挂了，我闪。。。
IfColor hongBF*1.28+21 5 4a5173 2
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//【脚本作者】逆风之帆(Email:seven_wave@163.com)
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
复制这个脚本到按键里推荐用按键
二、热血江湖按键精灵
1、按键：只循环一次,启动键自己任意设
2、快捷键：F1-15轻功 F2-60轻功 F3-主技能 F4-捡物 F5-单攻或次技能 F6-兰 F7-红 F8-回城符 F11(或F10,F9)-启动 F12-中止
3、游戏：在1024*768分辨率状态下,视图适当倾斜一定角度以长时间挂机人物不(或少)移动并且刷怪效率为最佳.建议关闭查看,关闭交易,单刷时关闭组队功能,游戏中部分特效也可关闭.
三、按键精灵 写脚本 高手进! 热血江湖
VBS Dim zRedPos,zBluePos,zRunPos,MaxFightCount,MaxFindCount,BlueCheckDC,AutoCheckMp
VBS Dim CurMapID,FightHere,DoctorDistance,AutoRun,GroupMembers,mGrayValue,mBlackValue
VBS Dim TakeRedNum,TakeBlueNum,TakeCharmNum,TakeArrowNum,StartSN,AutoShutOff
VBS Dim RunToFightType,BackToSupply,AutoSale,AutoPick,RecPlaceNum,BackSay,BackCode
VBS Dim DeadNoSupply,WgFirst,WgLatter,FullToBack,AutoWS,AutoGF,AutoPlus
VBS Dim MapMaxRed,MapMaxGreen,MapMaxBlue,MapMinRed,MapMinGreen,MapMinBlue
VBS Dim lngF1CJ,lngF2JN,lngF3JQ,lngF4JF,lngF5BH,NoWsNoSupply,PreTime
VBS Dim lngF6BL,lngF7TF,lngF8HC,lngF9QG,lngF10Z,MinFightTime,CharmBforRun
VBS Dim strIniFile,strDotFile,strRecFile,strMySetFile
VBS strDotFile="ScanDot.ini":strIniFile="Fight.ini":strMySetFile="Set.ini"
VBSCall ReadMySet()@<FindMon.vbs>
VBSCall ReadWriteMySet()@<FindMon.vbs>
VBS Dim objFM,lngCount,lngScanDots,lngMonFile,strMonFile1,strMonFile2
VBS Dim lngFirstJN,CurMapName,zSay,blnzSay,zR,zB,zT,zY,strTagKey,WgCount
VBS Dim PreBluePos,CurBluePos,BlueCheckIgnore,blnBlock,lngFull,lngInitPick
VBS Dim ActionFlag,lngOffsetX,lngOffsetY,FightX,FightY,strUserJN1,strUserJN2
VBS Dim ScreenWidth,ScreenHeight,CenterX,CenterY,lngBhBlX(35),lngHold,blnBack
VBS Dim strRndSay(10),strSay512(10),lngTakeNum(5),lngShortTimes,IsClickSale
VBS Dim MonX,MonY,MonFound,x,y,mN,IsDead,nNotFound,InCity,lngErr,lngTotalMons
VBS Dim DotX(1000),DotY(1000),MonPreColor(1000),MonColor(1000)
VBS Set objFM=CreateObject("QMDispatch.QMFunction")
VBS CurMapName="未知":FightX=0:FightY=0
VBS blnBack=0:blnzSay=0:zR=0:zB=0:zT=0:zY=0
VBS blnBlock=0:PreBluePos=0:CurBluePos=0:BlueCheckIgnore=1
VBS lngOffsetX=0:lngOffsetY=0:mN=0:WgCount=0
VBSCall GetScreenResolution(ScreenWidth,ScreenHeight)@<FindMon.vbs>
VBSCall RecordUserSet()@<FindMon.vbs>
VBSCall InitHpMp()@<FindMon.vbs>
VBSCall GetCurHP()@<FindMon.vbs>
VBSCall GetDotFromTXT(strDotFile)@<FindMon.vbs>
VBSCall GetCurHP()@<FindMon.vbs>
VBS Dim picRED,picBlue,picQG,picWS,picPlus,picFY,picGJ,picGF,lngEatOrGF
VBS Dim picBag(36),blnStoreFull,BagN,BagX,BagY,lngEmpty
VBS Dim WgColor(3),WgPreColor(3)
VBS Dim TargetX,TargetY,DirectSIN,DirectCOS,MouseX,MouseY
VBS Dim CurX,CurY,lngPreX,lngPreY,blnWalk,blnRunWithMon
VBS Dim WalkNpcX,WalkNpcY,TempCurX,TempCurY
VBS Dim ToNpcStoreX(4),ToNpcStoreY(4),ToNpcSaleX(4),ToNpcSaleY(4)
VBS Dim NpcSaleX,NpcSaleY,NpcStoreX,NpcStoreY
VBS Dim lngCurNum,lngLen,lngI,lngChar,lngMaxBuJi,lngRunBack
VBS Dim vfso,vfile,vfText,vfi,vfTemp
VBS lngLen=0:lngI=0:lngCurNum=0:lngChar=0
VBS InCity=0:ActionFlag="FightOrSupply":lngRunBack=0
VBS MonX=0:MonY=0:mFound=0:nNotFound=0:mN=0
VBS blnzSay=0:TargetX=0:TargetY=0
VBS picRed=0:picBlue=0:picQG=0:IsDead=0
VBSCall GetCurHP()@<FindMon.vbs>
//判断玩家位置，记录当前战斗点
VBSCall JudgeInCity()@<FindMon.vbs>
VBSCall GetFightDot(strIniFile)@<FindMon.vbs>
VBSCall GetScriptStatus()@<FindMon.vbs>
VBSCall GetCurHP()@<FindMon.vbs>
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
//***************************************************************挂机主程序开始
//***************************************************************挂机主程序开始
//***************************************************************挂机主程序开始
VBSCall FindMonIsDie(0.9)@<FindMon.vbs>
While MonFound=0 And nNotFound<=MaxFindCount
If AutoPick=1 And nNotFound<3
VBSCall JudgeCurDistance()@<FindMon.vbs>
VBSCall FindMonster(CurMapID)@<FindMon.vbs>
VBSCall FindMonBeClicked(0.9)@<FindMon.vbs>
VBSCall JudgeCurState()@<FindMon.vbs>
VBSCall GetCurAll()@<FindMon.vbs>
//***************************************************************挂机主程序结束
//***************************************************************挂机主程序结束
//***************************************************************挂机主程序结束
//************************************************************
//*************判断血蓝、轻功、药品剩余子程序*****************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBSCall GetCurAll()@<FindMon.vbs>
//************************************************************
//********************停止所有攻击并等待**********************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBS BackSay=TransbackCode(BackCode)
VBSCall RecordINI(BackSay)@<FindMon.vbs>
VBS vfText=strRndSay(Int(10*Rnd))
VBSCall JudgeInCity()@<FindMon.vbs>
VBSCall GetCurHP()@<FindMon.vbs>
While MonX<=0 Or MonY<=0
VBSCall WalkLittleInCity()@<FindMon.vbs>
VBSCall FindPic(320,580,390,610,"Images\_User关闭.bmp",0.9,MonX,MonY)@<FindMon.vbs>
//************************************************************
//******************自动五色、GF、糖子程序********************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@<FindMon.vbs>
VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User五色0.bmp",0.9,x,y)@<FindMon.vbs>
VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@<FindMon.vbs>
VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User辅助0.bmp",0.9,x,y)@<FindMon.vbs>
VBS vfText=strSay512(Int(10*Rnd))
//************************************************************
//**********************坐标行走子程序************************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBS lngPreX=0:lngPreY=0:lngHold=0
VBS MouseX=0:MouseY=0:lngErr=0
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBSCall SetWalkClick()@<FindMon.vbs>
VBSCall FindPic(320,580,390,610,"Images\_User关闭.bmp",0.9,x,y)@<FindMon.vbs>
VBSCall FindPic(CenterX+70,CenterY-220,CenterX+105,CenterY-190,"Images\_NPC对话.bmp",0.9,x,y)@<FindMon.vbs>
VBSCall JudgeInCity()@<FindMon.vbs>
VBSCall RecordINI(BackSay)@<FindMon.vbs>
While TempCurX<>CurX Or TempCurY<>CurY
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBSCall SetWalkClick()@<FindMon.vbs>
VBSCall GetCurHP()@<FindMon.vbs>
//************************************************************
//************************随机移动子程序**********************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
While TempCurX=CurX And TempCurY=CurY
VBSCall WalkLittle()@<FindMon.vbs>
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
//************************************************************
//**********************内力检测防卡子程序********************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBSCall CurBluePos=GetCurBluePos()@<FindMon.vbs>
If CurBluePos>=PreBluePos And zB=0
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
While lngPreX=CurX And lngPreY=CurY And CurBluePos>=PreBluePos
VBSCall WalkLittle()@<FindMon.vbs>
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBSCall CurBluePos=GetCurBluePos()@<FindMon.vbs>
//************************************************************
//************************引怪子程序**************************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
If nNotFound<999 And AutoRun>0
VBS TargetX=FightX:TargetY=FightY
VBS TargetX=FightX:TargetY=FightY
//************************************************************
//***********************引怪子01程序*************************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
MoveTo CenterX-300 CenterY-300
MoveTo CenterX-300 CenterY-300
MoveTo CenterX-300 CenterY+300
MoveTo CenterX-300 CenterY+300
MoveTo CenterX+300 CenterY+300
MoveTo CenterX+300 CenterY+300
MoveTo CenterX+300 CenterY-300
MoveTo CenterX+300 CenterY-300
//************************************************************
//***********************引怪子02程序*************************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
VBS mN=0:MonX=0:MonY=0:MonFound=0
VBS Set vfso=CreateObject("Scripting.FileSystemObject")
VBS Set vfile=vfso.OpenTextFile(strIniFile, 1)
While blnBack=0 And vfText<>"[Over]"
VBS TargetX=CLng(Left(vfText, vfi- 1))
VBS TargetY=CLng(Mid(vfText, vfi+ 1))
//************************************************************
//*********************清理包裹中的盒子***********************
//************************************************************
VBSCall RecordINI(BackSay)@<FindMon.vbs>
VBSCall GetBoxOfBag()@<FindMon.vbs>
VBS BagX=(BagN Mod 6)*33+(ScreenWidth-210)
VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@<FindMon.vbs>
文章到此结束，如果本次分享的热血江湖 按键精灵和热血江湖 按键精灵 截图的问题解决了您的问题，那么我们由衷的感到高兴！
