天刀曲谱按键精灵_按键精灵 热血江湖群刀的挂机脚本

按键精灵 写脚本 高手进! 热血江湖

　　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
　　//相关配置文件定义
　　KeyPress 13 1
　　VBS Dim strIniFile,strDotFile,strRecFile,strMySetFile
　　VBS strDotFile="ScanDot.ini":strIniFile="Fight.ini":strMySetFile="Set.ini"
　　VBS PreTime=Now
　　//读写用户自定义配置
　　VBSCall ReadMySet()@
　　VBSCall ReadWriteMySet()@
　　//全局变量定义
　　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)@
　　//记录设置信息到日志文件
　　VBSCall RecordUserSet()@
　　//血条预处理函数
　　VBSCall InitHpMp()@
　　//判断一下血值
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//获取扫描点
　　VBSCall GetDotFromTXT(strDotFile)@
　　//判断一下当前血值
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//图像判断变量定义
　　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 x=0:y=0:CurX=0:CurY=0
　　VBS blnzSay=0:TargetX=0:TargetY=0
　　VBS picRed=0:picBlue=0:picQG=0:IsDead=0
　　VBS DirectSIN=0:DirectCOS=1
　　//调整为俯视并拖聊天栏
　　Gosub DragChat
　　Gosub LookDown
　　//判断一下当前血值
　　VBSCall GetCurHP()@
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//判断玩家位置，记录当前战斗点
　　VBSCall JudgeInCity()@
　　If InCity=0 And FightHere=1
　　VBS FightX=CurX
　　VBS FightY=CurY
　　Else
　　VBSCall GetFightDot(strIniFile)@
　　EndIf
　　//获取脚本运行信息
　　VBSCall GetScriptStatus()@
　　Delay 32
　　SayExpression BackSay
　　Delay 32
　　KeyPress 145 1
　　Delay 32
　　//判断一下当前血值
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　//***************************************************************挂机主程序开始
　　//***************************************************************挂机主程序开始
　　//***************************************************************挂机主程序开始
　　Rem Begin
　　If InCity=0
　　KeyPress 145 1
　　Delay 16
　　VBSCall FindMonIsDie(0.9)@
　　If MonFound>0
　　If MonFound<WgCount
　　KeyPress lngFirstJN 1
　　ElseIf WgLatter=1
　　KeyPress lngF2JN 1
　　EndIf
　　Delay 64
　　EndIf
　　If BlueCheckIgnore=0
　　Gosub CheckMP
　　EndIf
　　If MonFound>MaxFightCount
　　Gosub WalkRandom
　　EndIf
　　KeyPress 145 1
　　Delay 16
　　While MonFound=0 And nNotFound<=MaxFindCount
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 256
　　EndIf
　　If AutoPick=1 And nNotFound<3
　　KeyPress lngF3JQ 1
　　EndIf
　　Delay 256
　　VBSCall JudgeCurDistance()@
　　VBSCall FindMonster(CurMapID)@
　　If MonFound=1
　　LeftClick 1
　　Delay 32
　　VBSCall FindMonBeClicked(0.9)@
　　If MonFound=1
　　KeyPress lngFirstJN 1
　　Delay 64
　　EndIf
　　EndIf
　　VBSCall JudgeCurState()@
　　EndWhile
　　VBSCall GetCurAll()@
　　If zT=1 Or IsDead>0
　　KeyPress lngF8HC 1
　　Gosub StopWait
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 432
　　ElseIf zB=1
　　KeyPress lngF6BL 1
　　Delay 320
　　EndIf
　　If lngEatOrGF=1
　　Gosub EatOrGf
　　EndIf
　　Delay 32
　　If nNotFound>MaxFindCount
　　Gosub NoMonProcess
　　EndIf
　　Else
　　Gosub InCityProcess
　　EndIf
　　Goto Begin
　　EndScript
　　//***************************************************************挂机主程序结束
　　//***************************************************************挂机主程序结束
　　//***************************************************************挂机主程序结束
　　//*
　　//*
　　//************************************************************
　　//*************判断血蓝、轻功、药品剩余子程序*****************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub JudgeAll
　　VBSCall GetCurAll()@
　　If zT=1 Or IsDead>0
　　KeyPress lngF8HC 1
　　Gosub StopWait
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 256
　　ElseIf zB=1
　　KeyPress lngF6BL 1
　　Delay 256
　　EndIf
　　If lngEatOrGF=1
　　Gosub EatOrGf
　　EndIf
　　If picQG<0
　　KeyPress lngF9QG 1
　　Delay 128
　　VBS picQG=1
　　EndIf
　　Return JudgeAll
　　//************************************************************
　　//********************停止所有攻击并等待**********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub StopWait
　　VBS blnBack=1
　　Delay 128
　　If IsDead=1
　　MoveTo CenterX+60 245
　　Delay 64
　　LeftClick 1
　　Delay 640
　　EndIf
　　For 20
　　KeyDown 17 1
　　Delay 64
　　KeyPress 67 1
　　Delay 64
　　KeyUp 17 1
　　Delay 640
　　EndFor
　　If InCity=1
　　VBS BackSay=TransBackCode(BackCode)
　　VBS BackSay=BackSay+"回城..."
　　VBSCall RecordINI(BackSay)@
　　Delay 64
　　VBS vfText=strRndSay(Int(10*Rnd))
　　SayExpression vfText
　　KeyPress 13 1
　　Delay 128
　　EndIf
　　VBSCall JudgeInCity()@
　　If CurX=0 And CurY=0
　　InCity=1
　　EndIf
　　MoveTo 23 13
　　Delay 64
　　LeftClick 1
　　Delay 256
　　MoveTo CenterX CenterY+12
　　Delay 64
　　For 6
　　KeyPress lngFirstJN 1
　　Delay 512
　　EndFor
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 256
　　EndIf
　　For 3
　　VBS MonX=0:MonY=0
　　While MonX<=0 Or MonY<=0
　　VBSCall WalkLittleInCity()@
　　If MonX>0 And MonY>0
　　MoveTo MonX MonY
　　Delay 64
　　LeftDoubleClick 1
　　Delay 500
　　EndIf
　　EndWhile
　　VBSCall FindPic(320,580,390,610,"Images\_User关闭.bmp",0.9,MonX,MonY)@
　　If MonX>0 And MonY>0
　　MoveTo MonX+8 MonY+6
　　Delay 96
　　LeftClick 1
　　Delay 900
　　EndIf
　　EndFor
　　Return StopWait
　　//************************************************************
　　//******************自动五色、GF、糖子程序********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub EatOrGf
　　If picWS<-4
　　MoveTo 270 ScreenHeight-22
　　Delay 64
　　LeftClick 1
　　Delay 320
　　KeyPress lngF5BH 1
　　Delay 320
　　VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User五色0.bmp",0.9,x,y)@
　　If x>0 And y>0
　　MoveTo x+10 y+6
　　Delay 64
　　RightClick 1
　　Delay 256
　　VBS picWS=1
　　Else
　　VBS AutoWS=0
　　If NoWsNoSupply=1
　　VBS IsDead=2
　　VBS BackToSupply=0
　　EndIf
　　EndIf
　　KeyPress 27 1
　　Delay 256
　　EndIf
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If picPlus<-4
　　MoveTo 270 ScreenHeight-22
　　Delay 64
　　LeftClick 1
　　Delay 320
　　KeyPress lngF5BH 1
　　Delay 320
　　VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User辅助0.bmp",0.9,x,y)@
　　If x>0 And y>0
　　MoveTo x+10 y+10
　　Delay 64
　　RightClick 1
　　Delay 256
　　VBS picPlus=1
　　Else
　　VBS AutoPlus=0
　　EndIf
　　KeyPress 27 1
　　Delay 256
　　EndIf
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If picFY=0
　　KeyPress lngF5BH 1
　　Delay 128
　　MoveTo 23 13
　　Delay 64
　　LeftClick 1
　　Delay 128
　　KeyPress lngF4JF 1
　　Delay 512
　　VBS picFY=1
　　Delay 384
　　KeyPress lngF5BH 1
　　Delay 128
　　ElseIf picGJ=0
　　KeyPress lngF5BH 1
　　Delay 128
　　MoveTo 23 13
　　Delay 64
　　LeftClick 1
　　Delay 128
　　KeyPress lngF1CJ 1
　　Delay 512
　　VBS picGJ=1
　　Delay 384
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　If PicGF<1
　　VBS vfText=strSay512(Int(10*Rnd))
　　SayExpression vfText
　　Delay 64
　　KeyPress 13 1
　　Delay 256
　　KeyPress lngF5BH 1
　　Delay 128
　　EndIf
　　Return EatOrGf
　　//************************************************************
　　//**********************坐标行走子程序************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub WalkToXY
　　Gosub JudgeAll
　　VBS lngPreX=0:lngPreY=0:lngHold=0
　　VBS MouseX=0:MouseY=0:lngErr=0
　　VBSCall GetCurXY(CurX,CurY)@
　　VBSCall SetWalkClick()@
　　If blnzSay=1
　　Gosub ExtSay
　　EndIf
　　While blnWalk=1 And IsDead=0
　　VBSCall FindPic(320,580,390,610,"Images\_User关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　MoveTo x+8 y+6
　　Delay 64
　　LeftClick 1
　　Delay 900
　　EndIf
　　If InCity=1
　　VBSCall FindPic(CenterX+70,CenterY-220,CenterX+105,CenterY-190,"Images\_NPC对话.bmp",0.9,x,y)@
　　If x>0 And y>0
　　Delay 64
　　KeyPress 27 1
　　Delay 900
　　EndIf
　　If lngRunBack=0
　　VBSCall JudgeInCity()@
　　EndIf
　　If InCity=0
　　VBS lngErr=lngErr+1
　　VBS InCity=1
　　Else
　　VBS lngErr=0
　　EndIf
　　If lngErr>5
　　KeyPress lngF8HC 1
　　Delay 128
　　VBS BackSay="22491549"
　　VBSCall RecordINI(BackSay)@
　　VBS BackCode="000000"
　　Gosub StopWait
　　VBS blnBack=0
　　EndIf
　　EndIf
　　MoveTo MonX MonY
　　Delay 64
　　LeftClick 1
　　Delay 384
　　If InCity=1
　　Delay 128
　　VBS TempCurX=0:TempCurY=0
　　While TempCurXCurX Or TempCurYCurY
　　VBS TempCurX=CurX
　　VBS TempCurY=CurY
　　Delay 192
　　VBSCall GetCurXY(CurX,CurY)@
　　EndWhile
　　EndIf
　　Gosub JudgeAll
　　VBSCall GetCurXY(CurX,CurY)@
　　VBSCall SetWalkClick()@
　　EndWhile
　　VBSCall GetCurHP()@
　　If zT=1
　　KeyPress lngF5BH 1
　　Delay 100
　　EndIf
　　If zR=1
　　KeyPress lngF5BH 1
　　Delay 100
　　EndIf
　　VBS nNotFound=0
　　Return WalkToXY
　　//************************************************************
　　//************************随机移动子程序**********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub WalkRandom
　　VBSCall GetCurXY(CurX,CurY)@
　　VBS TempCurX=CurX
　　VBS TempCurY=CurY
　　While TempCurX=CurX And TempCurY=CurY
　　VBSCall WalkLittle()@
　　MoveTo MonX MonY
　　Delay 64
　　LeftClick 1
　　Delay 384
　　Gosub JudgeAll
　　VBSCall GetCurXY(CurX,CurY)@
　　EndWhile
　　VBS MonFound=0
　　Return WalkRandom
　　//************************************************************
　　//**********************内力检测防卡子程序********************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub CheckMP
　　VBSCall CurBluePos=GetCurBluePos()@
　　If CurBluePos>=PreBluePos And zB=0
　　VBS blnBlock=blnBlock+1
　　Else
　　VBS blnBlock=0
　　EndIf
　　If blnBlock>1
　　SayExpression "卡"
　　VBSCall GetCurXY(CurX,CurY)@
　　VBS lngPreX=CurX
　　VBS lngPreY=CurY
　　While lngPreX=CurX And lngPreY=CurY And CurBluePos>=PreBluePos
　　VBS PreBluePos=CurBluePos
　　VBSCall WalkLittle()@
　　MoveTo MonX MonY
　　Delay 64
　　LeftDoubleClick 1
　　Delay 256
　　KeyPress lngFirstJN 1
　　Delay 256
　　Gosub JudgeAll
　　VBSCall GetCurXY(CurX,CurY)@
　　VBSCall CurBluePos=GetCurBluePos()@
　　EndWhile
　　VBS blnBlock=0:MonFound=0
　　EndIf
　　VBS PreBluePos=CurBluePos
　　Return CheckMP
　　//************************************************************
　　//************************引怪子程序**************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub NoMonProcess
　　If nNotFound<999
　　Gosub WalkRandom
　　EndIf
　　If nNotFound0
　　If AutoRun=1
　　Gosub RunWithMon01
　　EndIf
　　If AutoRun=2
　　Gosub RunWithMon02
　　EndIf
　　VBS blnRunWithMon=1
　　VBS nNotFound=0:MonFound=0
　　VBS TargetX=FightX:TargetY=FightY
　　Gosub WalkToXY
　　Else
　　VBS blnRunWithMon=0
　　VBS nNotFound=0:MonFound=0
　　VBS TargetX=FightX:TargetY=FightY
　　Gosub WalkToXY
　　EndIf
　　VBS blnRunWithMon=0
　　Return NoMonProcess
　　//************************************************************
　　//***********************引怪子01程序*************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub RunWithMon01
　　MoveTo CenterX+300 0
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 0
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX-300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY+300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　MoveTo CenterX+300 CenterY-300
　　Delay 64
　　LeftClick 1
　　Delay 600
　　Gosub JudgeAll
　　Return RunWithMon01
　　//************************************************************
　　//***********************引怪子02程序*************************
　　//************************************************************
　　//自由猎手之打手全自动挂机脚本，免费发布
　　//官方地址：http://fhok.spaces.msn.com
　　Sub RunWithMon02
　　VBS mN=0:MonX=0:MonY=0:MonFound=0
　　VBS Set vfso=CreateObject("Scripting.FileSystemObject")
　　VBS Set vfile=vfso.OpenTextFile(strIniFile, 1)
　　VBS vfText="00000000"
　　While vfText"[Run]"
　　VBS vfText=vfile.ReadLine
　　EndWhile
　　VBS vfText=vfile.ReadLine
　　While blnBack=0 And vfText"[Over]"
　　VBS vfi=InStr(vfText, ".")
　　VBS TargetX=CLng(Left(vfText, vfi - 1))
　　VBS TargetY=CLng(Mid(vfText, vfi + 1))
　　Gosub WalkToXY
　　VBS vfText=vfile.ReadLine
　　EndWhile
　　VBS vfile.Close
　　VBS Set vfile=Nothing
　　VBS Set vfso=Nothing
　　Return RunWithMon02
　　//************************************************************
　　//*********************清理包裹中的盒子***********************
　　//************************************************************
　　Sub ClearBag
　　VBS BackSay="开饭盒..."
　　VBSCall RecordINI(BackSay)@
　　MoveTo 270 ScreenHeight-22
　　Delay 100
　　LeftClick 1
　　Delay 900
　　Delay 900
　　Delay 900
　　VBSCall GetBoxOfBag()@
　　VBS BagN=StartSN-1
　　VBS BagX=0:BagY=0
　　While BagN<36
　　VBS BagX=(BagN Mod 6)*33+(ScreenWidth-210)
　　VBS BagY=(BagN\6)*33+366
　　MoveTo BagX BagY
　　Delay 64
　　If picBag(BagN)=1
　　Delay 128
　　RightClick 1
　　Delay 512
　　EndIf
　　VBS BagN=BagN+1
　　EndWhile
　　MoveTo CenterX CenterY
　　Delay 500
　　VBSCall FindPic(ScreenWidth-50,173,ScreenWidth-5,191,"Images\_Bag关闭.bmp",0.9,x,y)@
　　If x>0 And y>0
　　KeyPress 27 1
　　Delay 500
　　EndIf
　　Delay 900
　　Return ClearBag
　　Sub ExtS

谁教我自己做热血江湖群刀的按键精灵脚本?

不会封的..
你第一次设按下F2键(攻击)的时间为7500毫秒。。。。。。。。。。剩下的我加你再教你。。

跪求稳定热血江湖群刀挂机按键精灵脚本！

挂是绝对不能用的啊 会封号的
不过可以用简单游,那个没事 因为我在用哈哈
在百度搜简单游就可以了
是一个简单游工具平台

求个热血江湖群刀自动刷怪的按键精灵脚本给100分

群刀定点单刷无药回城
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 打怪
第2个脚本
[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 无药回城

谁给我个热血江湖按键精灵全自动群刀脚本（72级）

　　[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:jhcc951@163.com)
　　// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓