热血江湖按键精灵挂机(脚本高手)进
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
脚本是这个,按键就要自己去下载了随便下载个就可以了主要的是脚本的问题拉
群刀定点单刷无药回城
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分辨率状态下,视图适当倾斜一定角度以长时间挂机人物不(或少)移动并且刷怪效率为最佳.建议关闭查看,关闭交易,单刷时关闭组队功能,游戏中部分特效也可关闭.
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 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:seven_wave@163.com)
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
复制这个脚本到按键里 推荐用按键
脚本就是按键的程序,固定的脚本,会让你的人物根据脚本程序来执行,比如:打怪,捡东西,吃药,无血回程等等。
你说的自动打怪很容易实现,但是寻找地点就要读取内存,会封号,建议不要想了,你说你是普通攻击,不用技能,基本上按键是需要技能攻击才可以完成挂机的整个过程,不然没办法流畅挂机,所以你必须要了解:
按键只能完成:用技能刷主动怪(打被动怪人物会走动),自动喝血、喝蓝、无药回程(某些能完成吃动吃五色,自动卖东西,自动开箱子等等)。
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是蓝 启动热键自己可以设置的
你说那种挂100块钱一个月 有挺多工作室都在用 听说还不封号
我的是自己做的按键精灵...到现在都不会被封号 好好用哦
请问使用按键精灵玩热血江湖封号吗??
会的,属于间接外挂,你去官网上看封号记录,有直接使用外挂的,有刷屏的 ,有用间接外挂的,都被封了,劝你别用了
跪求热血江湖剑用按键精灵脚本
有钱用热血智辅啊,开始3天免费,以后20元\/月,是全自动的,不错的哦这个是脚本 你自己弄吧 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 ...
热血江湖按键精灵打手简单脚本
VBS lan=40 \/\/蓝少于百分之多少(可自行设定)时,脚本自动吃蓝。Rem start Delay 250 \/\/如果启动脚本后有点卡,则视情况调整此延时。Rem 补红 IfColor hong\/100*(146-12)+12 5 2021 2 \/\/如果设定位置处的颜色大约等于没血时的颜色 KeyPress 114 1 \/\/按键F3 Delay 300 EndIf Rem 补蓝 If...
...江湖群刀自动引怪,打怪,无药回城补充自动返回刷怪点按键精灵...
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...
急求热血江湖按键精灵(剑)脚本 教我怎么用
笨的可以 你收到按键后点解压 然后上面有按键的一个图标 然后你建立一个快捷方式 放在桌面上 在解压文件中有个按键的用法 你都点一下 有一个是 上面有F1 F2= 说明 然后按说明放在 电脑快捷键上就能用了 上江湖时先点开挂 最小化 再进入江湖 OK 了 ...
求哪位大侠给个热血江湖群挂机脚本啊[按键精灵]
我的打手脚本总共分为三部分 是为了手动挂机 自动挂机 和人在挂机三种 你可以根据你的实际情况决定是否要执行全部挂机 F5红 F6蓝F3技能 F9拣物 脚本1:自动红蓝技能 捡物 [General]Description=推广号254932自制红蓝脚本 BeginHotkey=116 beginHotkeyMod=0 RunOnce=0 Enable=0 [Repeat]Type=1 Number...
热血江湖按键精灵挂机(脚本高手)进
游戏:在1024*768分辨率状态下,视图适当倾斜一定角度以长时间挂机人物不(或少)移动并且刷怪效率为最佳.建议关闭查看,关闭交易,单刷时关闭组队功能,游戏中部分特效也可关闭.2>>>按键精灵生成的脚本源文件 这是按键精灵生成的脚本源文件 在理解各条命令的基础上,您可以修改这个文件的内容 您修改的结果...
《热血江湖》热血江湖辅助工具详解心得
一个不小心就中毒然后被盗号了。当然最保险的要数热血小助手了,热血江湖自带的辅助工具。功能不够全,但胜在安全保险热血江湖辅助工具自动加血加蓝自动加血加蓝你可以自己用《按键精灵》来编个脚本,如果不会你也可以用《简单游》里现成的脚本。 热血江湖里打怪是用鼠标点的,没键盘...
热血江湖按键精灵的脚本怎么做啊?
给你一个简单的脚本你看看吧。这是自动技能,血到一半吃血,血少于25%回城的。[General]Description=f3技能,f5吃血,血少25%自动回城f8 BeginHotkey=52 BeginHotkeyMod=0 RunOnce=0 Enable=1 [Repeat]Type=1 Number=3718784 [Comment]Content= [Script]KeyPress 114 1 Delay 200 IfColor 89 12...
毛晏天方: 用小小全职辅助V1.69版本 可以在百度直接搜索“小小全职辅助”或“心意城市”下载 自动补红END键启动 自动补蓝HOME键启动 自动技能F12键启动 具体方法是 在游戏前打开小小全职辅助 然后调好高级选项中红 蓝 技能对应在游戏中下方快捷栏的位置(例如:红F3 蓝F4 技能F2)之后调节红和蓝在多少数值以下自动补给(例如;红500以下 蓝400以下)这样在你的血和蓝降低到你所设定的数值之下时就会自动补给 技能方法和上面蓝红补给差不多 是你设定每次技能使用的间隔时间 现在还可以开启自动物品拾取 血量保护 没蓝回城 详细操作简单易学 祝你玩的开心
吉林省13478387400: 按键精灵V3.0 热血江湖喊话脚本谁能给兄弟发下!谢谢! - ?
毛晏天方: 教你写一、打开按精灵,点左上角的“新建”二、进入写脚本界面,在左边的“其它命令”下面,“延时”选“秒”,“时间”下面写入你的喊话间隔.比如3,然后点过来...
吉林省13478387400: 玩热血江湖怎么用按键精灵? - ?
毛晏天方: 首先下载一个按键精灵安装好,在把脚本导入
吉林省13478387400: 寻找按键灵高手帮我弄个热血江湖打手自动旋转点怪打怪脚本!?
毛晏天方: 按键精灵不可能智能加血,只能设置延时加血,也就是隔段时间加一次 鼠标也只能抓点而不能自动拣东西 旋转点怪到是可以,但是有可能一个怪没打死就点到另一个怪,总之不推荐使用
吉林省13478387400: 我需要热血江湖2007年医生或QD可以用的容易一点的外挂~如果按键精灵~请提供使用方法和脚本之类的~ - ?
毛晏天方: Rem 打怪 KeyPress 114 1 Delay 50 Rem 补血兰 IfColor 125 12 424563 2 KeyPress 118 1 Delay 300 EndIf IfColor 93...
吉林省13478387400: 谁帮莪做个热血江湖按键精灵的脚本?
毛晏天方: KeyPress 114 1 Delay 50 IfColor 50 20 393031 0 KeyPress 115 1 Delay 500 EndIf IfColor 119 10 42455a 0 KeyPress 112 1 Delay 300 EndIf
吉林省13478387400: 求 - --热血江湖---定点打主动怪 按键精灵脚本!! - ?
毛晏天方: 你想要让你的人物离开江湖的话请慢慢享受按键精灵脚本吧.到目前为止 医生用按键精灵自动群的才是最安全的挂.
吉林省13478387400: 热血江湖如何挂机,或者是用精灵键? - ?
毛晏天方: 医生可以挂,其它职业要有专业的挂机软件,我只听说过有技能枪的挂机软件,其它的没听说过,医生想挂机用简单游或按键精灵,但只限群医挂机.
吉林省13478387400: 热血江湖,按键精灵弄好了,可不知道怎么用? - ?
毛晏天方: 按键精灵下载后要解压安装在热血江湖的文件夹里.打开装热血江湖的文件夹,找到按键精灵的使用程序,点击打开,然后进入游戏,F11开始,F12停止,具体使用方法,按键精灵应该有说明.
吉林省13478387400: 热血江湖 按键精灵~~ - ?
毛晏天方: KeyDown 112 1 Delay 50 KeyUp 112 1 Delay 50 IfColor 113 63 52556b 0 KeyDown 112 1 Delay 50 KeyUp 112 1 Delay 50 KeyDown 112 1 Delay 50 KeyUp 112 1 Delay 50 Else EndIf IfColor 42 23 5a4542 0 KeyDown 113 1 Delay 50 KeyUp 113 1 Else EndIf