大家好，今天来为大家分享热血江湖按键精灵的一些知识点，和按键精灵 写脚本 高手进! 热血江湖的问题解析，大家要是都明白，那么可以忽略，如果不太清楚的话可以看看本篇文章，相信很大概率可以解决您的问题，接下来我们就一起来看看吧！
求热血江湖挂机的按键精灵脚本
分类:游戏>>网络游戏
问题描述:
求热血江湖挂机的按键精灵脚本(群刀)
要求可以自动补红,蓝,自动拣东西
要求稳定的
或者直接发到我的邮箱super.xi@yahoo
或者daaxi@
只要脚本,别给我发软件,谢谢各位了
解析:
下面是我朋友做的群刀脚本，超级好用，现在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:jhcc951@163)
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓结束〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
热血江湖按键精灵打手简单脚本
[Script]
//F3红，F4蓝
VBS hong=65
//血量少于百分之多少（可自行设定）时，脚本自动吃红。
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补蓝
IfColor lan/100*(146-12)+12 19 1418 2
//如果设定位置处的颜色大约等于没蓝时的颜色
KeyPress 115 1
//按键F4
Delay 400
EndIf
按键精灵 写脚本 高手进! 热血江湖
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()@<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>
If zT=1
KeyPress lngF5BH 1
Delay 128
EndIf
If zR=1
KeyPress lngF5BH 1
Delay 128
EndIf
//获取扫描点
VBSCall GetDotFromTXT(strDotFile)@<FindMon.vbs>
//判断一下当前血值
VBSCall GetCurHP()@<FindMon.vbs>
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()@<FindMon.vbs>
If zR=1
KeyPress lngF5BH 1
Delay 128
EndIf
If zT=1
KeyPress lngF5BH 1
Delay 128
EndIf
//判断玩家位置，记录当前战斗点
VBSCall JudgeInCity()@<FindMon.vbs>
If InCity=0 And FightHere=1
VBS FightX=CurX
VBS FightY=CurY
Else
VBSCall GetFightDot(strIniFile)@<FindMon.vbs>
EndIf
//获取脚本运行信息
VBSCall GetScriptStatus()@<FindMon.vbs>
Delay 32
SayExpression BackSay
Delay 32
KeyPress 145 1
Delay 32
//判断一下当前血值
VBSCall GetCurHP()@<FindMon.vbs>
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)@<FindMon.vbs>
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()@<FindMon.vbs>
VBSCall FindMonster(CurMapID)@<FindMon.vbs>
If MonFound=1
LeftClick 1
Delay 32
VBSCall FindMonBeClicked(0.9)@<FindMon.vbs>
If MonFound=1
KeyPress lngFirstJN 1
Delay 64
EndIf
EndIf
VBSCall JudgeCurState()@<FindMon.vbs>
EndWhile
VBSCall GetCurAll()@<FindMon.vbs>
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()@<FindMon.vbs>
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)@<FindMon.vbs>
Delay 64
VBS vfText=strRndSay(Int(10*Rnd))
SayExpression vfText
KeyPress 13 1
Delay 128
EndIf
VBSCall JudgeInCity()@<FindMon.vbs>
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()@<FindMon.vbs>
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()@<FindMon.vbs>
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)@<FindMon.vbs>
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)@<FindMon.vbs>
If x>0 And y>0
VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User五色0.bmp",0.9,x,y)@<FindMon.vbs>
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)@<FindMon.vbs>
If x>0 And y>0
VBSCall FindPic(ScreenWidth-233,350,ScreenWidth-25,555,"Images\_User辅助0.bmp",0.9,x,y)@<FindMon.vbs>
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)@<FindMon.vbs>
VBSCall SetWalkClick()@<FindMon.vbs>
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)@<FindMon.vbs>
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)@<FindMon.vbs>
If x>0 And y>0
Delay 64
KeyPress 27 1
Delay 900
EndIf
If lngRunBack=0
VBSCall JudgeInCity()@<FindMon.vbs>
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)@<FindMon.vbs>
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 TempCurX<>CurX Or TempCurY<>CurY
VBS TempCurX=CurX
VBS TempCurY=CurY
Delay 192
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
EndWhile
EndIf
Gosub JudgeAll
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBSCall SetWalkClick()@<FindMon.vbs>
EndWhile
VBSCall GetCurHP()@<FindMon.vbs>
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)@<FindMon.vbs>
VBS TempCurX=CurX
VBS TempCurY=CurY
While TempCurX=CurX And TempCurY=CurY
VBSCall WalkLittle()@<FindMon.vbs>
MoveTo MonX MonY
Delay 64
LeftClick 1
Delay 384
Gosub JudgeAll
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
EndWhile
VBS MonFound=0
Return WalkRandom
//************************************************************
//**********************内力检测防卡子程序********************
//************************************************************
//自由猎手之打手全自动挂机脚本，免费发布
//官方地址：http://fhok.spaces.msn.com
Sub CheckMP
VBSCall CurBluePos=GetCurBluePos()@<FindMon.vbs>
If CurBluePos>=PreBluePos And zB=0
VBS blnBlock=blnBlock+1
Else
VBS blnBlock=0
EndIf
If blnBlock>1
SayExpression"卡"
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBS lngPreX=CurX
VBS lngPreY=CurY
While lngPreX=CurX And lngPreY=CurY And CurBluePos>=PreBluePos
VBS PreBluePos=CurBluePos
VBSCall WalkLittle()@<FindMon.vbs>
MoveTo MonX MonY
Delay 64
LeftDoubleClick 1
Delay 256
KeyPress lngFirstJN 1
Delay 256
Gosub JudgeAll
VBSCall GetCurXY(CurX,CurY)@<FindMon.vbs>
VBSCall CurBluePos=GetCurBluePos()@<FindMon.vbs>
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 nNotFound<999 And AutoRun>0
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)@<FindMon.vbs>
MoveTo 270 ScreenHeight-22
Delay 100
LeftClick 1
Delay 900
Delay 900
Delay 900
VBSCall GetBoxOfBag()@<FindMon.vbs>
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)@<FindMon.vbs>
If x>0 And y>0
KeyPress 27 1
Delay 500
EndIf
Delay 900
Return ClearBag
Sub ExtS
感谢您的阅读！希望本文对解决您关于热血江湖按键精灵和按键精灵 写脚本 高手进! 热血江湖的问题有所帮助。如果您还有其他疑问，欢迎随时向我们提问。