本文目录一览：
逆风早期的QD辅助脚本就可以
[General]
Description=热血江湖之打手组队单刷全自动挂机5.0版
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=0
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★功能说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*挂机时可以聊天，找怪时不能动鼠标，打怪时可以动。
//*自动打怪补红蓝,无药自动回城补充,有土符自动回保存练级点,不支持跑步回练级点.
//*为保存回城时的安全快速，所有回城均先使用回城符，再使用土符到仓库。
//*采用边旋转边点脚下找怪，怪多怪少都不会偏离练级点,经比较,等怪时间少，效率高.
//*无药回城,无怪回城,包满回城,死亡回城,总回城次数达到设定会自动停止挂机。
//*组队时自动要GF，人数少于设定值（包括自己）自动回城。
//*队散回城后，可改为单刷模式继续挂机（没吃金银符无此功能）。
//*回城物品自动存仓库,且先存剩余pos再取药；个人仓库满则自动停止挂机。
//*停止挂机后可选择自动关电脑（限为XP系统，1024X768分辩率）
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★使用说明★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//*由于采用了图形分辨，请使用按键5.7以上版本。
//*循环设为循环1次.Alt+F11开始，F12中止.
//*单人挂机时建议关闭组队和查看功能，关闭所有特效，在1024×768下使用.
//*回城点:玄勃，柳正(直接回城符)，柳善，三邪（土符定点）。
//*回城点为柳善，必须先用土符在柳善仓库NPC面前保存为保存点4。
//*F1为60级轻功,F2技能,F3红,F4蓝,F5捡东西,F6回城符,F7单攻,F8为15级轻功(回城找NPC必须)
//*非群刀F2放单技能，beidong设为0后F7任意放其它。
//*挂机时必须调整角度，以开挂找怪时鼠标点脚下人物不会移动为准，此角度才能找到仓库NPC。
//*仓库：1格红,2格蓝,3格符；最后一排最后一格不能放东西。
//*包裹：1格红,2格蓝,3格符，4格宠物书，5格宠物肉，6格土符，其它地方切勿放回城符。
//*五色放包裹2 ，3排。存东西从第二排开始，五色不会存。
//*包裹右靠屏幕右侧,上靠小地图下侧,再小退一下游戏,以后的默认位置即为挂机正确位置
//*退出游戏的设定窗口要右靠小地图，上靠屏幕顶边，才能正确退出游戏。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓★快捷键自定义★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
//数字1-8分别代表快捷键F1-F8，请不要设成其它的，也不要有重复设置。
VBS kjF1=1
//60级轻功，默认设1即为F1
VBS kjF2=2
//群技能或单技能（其它职业）或普砍图标（小号），默认设2即为F2
VBS kjF3=3
//红位置，默认设3即为F3
VBS kjF4=4
//蓝位置，默认设4即为F4
VBS kjF5=5
//捡取小手位置，默认设5即为F5
VBS kjF6=6
//回城符，默认设6即为F6
VBS kjF7=7
//单技能位置（只打第一下，可空），默认设7即为F7
VBS kjF8=8
//15级轻功，默认设8即为F8
//〓〓〓〓〓〓〓〓〓〓〓〓〓★玩家自定义变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓
VBS huichengD=3
//补充回城点:1为玄勃韦大宝，2为柳正红凤凰
VBS beidong=0
//打怪第一击技能，1为（群攻/单攻/普砍），0为单攻，可空着。
VBS gjfs=1
//技能挂机设为1，平砍挂机设为0（F7空）。
VBS jianqu=1
//捡东西开关，1开，2关。
VBS fightT=30
//防卡设定，打某只怪超过fightT秒（平均打死一只怪的时间，非群刀则留一点余量即设为打死一只怪（包括WF怪）的最大时间）则判为发技能卡住了，会自动纠错。
VBS wuguPOS机办理网T=300
//找怪时旋转达到设定秒数还没找到，则自动回城。
VBS zudui=0
//组队时设为1，单反时设为0
VBS duiyuanN=2
//组队时，队员人数少于此值（包括自己）则自动回城（2-8）
VBS duisanH=0
//设1为队散后继续挂机单刷，0为队散后回城打坐，停止挂机。
VBS wuse=0
//自动吃五色，1为激活，0为关闭。
VBS hongBF0=85:hongBF1=40
//血量少于百分之多少时吃红设定，hongBF0为单刷情况，hongBF1为组队情况
VBS lanBF=30
//蓝少于百分之多少（可自行设定）时，脚本自动吃蓝。
VBS dihui=10
//低血回城%设置,不想要此功能就把它尽量设低点吧~
VBS hongN0=600:hongN1=600
//回城补充红药数量(N0和N1分别对应单刷和组队，红蓝差不多同时吃完为最好，无红自动回城)
VBS lanN0=185:lanN1=185
//回城补充蓝药数量(N0和N1分别对应单刷和组队，红蓝差不多同时吃完为最好，无蓝自动回城)
VBS fuN=10
//回城补充回城符数量,必须大于设定的停挂总回城次数。
VBS baoman=0
//包裹满则自动回城，1为激活，0为关闭。
VBS hcN=10
//总回城次数(应为设定挂机时间内正常的回城补充次数,出现异常提早达到则自动停止挂机)
VBS jyF=1
//吃了金银F或玄武F的请设为1，没吃的（无队散回城改单刷功能）请设为0。
VBS tufu=2
//有土符，且吃了金银F的设为2，没吃的设为1；无土符，设为0。
VBS baocunD0=1:baocunD1=4
//有土符时,1为回到保存的第1个练级点,2为第2个,依此类推,(D0为单刷时，D1为有组时).
VBS guanji=0
//自动停止挂机时，1为回城后自动退出游戏关闭电脑（XP系统）,0为待在城里打坐。
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★主程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Rem 开始挂机
Gosub 快捷键设置
VBS dim savestring,filename
VBS filename="打手全自动挂机日志.txt"
VBS savestring="开始挂机。。。
Gosub 写入日志
VBS huicheng=0
//回城次数初始化
VBS fx=516:fy=465
//既容易打怪，又能找到仓库NPC的挂机角度下，人物脚下的坐标。
Delay 32
Rem 开始战斗
VBS savestring="开始战斗。。。"
Gosub 写入日志
VBS t1=time
//找怪时间记时
Rem 旋转找怪
VBS attack=0
//攻击次数清零
Gosub 补红蓝
KeyPress kjjF8 1
Delay 32
If baoman=1
Gosub 包满回城
EndIf
If jyF=1
Gosub 死亡回城
EndIf
Gosub 无药回城
For 9
MoveTo fx fy
SaveMousePos
MoveTo 0 384
Delay 224
RestoreMousePos
Delay 16
LeftClick 1
KeyPress 116,1
Delay 10
Gosub 补红蓝
Gosub 无药回城
Delay 16
VBSCall Call FindCenterColor(350,200,674,450,"1028ff",x1,y1)
If x10 and y10
VBS youguPOS机办理网=1
Goto 停转打怪
EndIf
EndFor
VBS youguPOS机办理网=0
Rem 停转打怪
If youguPOS机办理网=1
//有怪
VBS t1=time
//找怪时间重新记时
Gosub 补红蓝
If beidong=1
For 2
KeyPress kjjF7 1
//第一击为单攻技能,江湖中出连续技能了，怕发不出来就多按几次吧
KeyPress 116,1
Delay 64
EndFor
Else
For 2
KeyPress kjjF2 1
//第一击为群攻技能,江湖中出连续技能了，怕发不出来就多按几次吧
KeyPress 116,1
Delay 64
EndFor
EndIf
VBS t2=time
//技能攻击记时
Rem 技能攻击
Delay 32
VBSCall FindPic(200,100,850,650,"nf\血条L.bmp",0.8,x1,y1)
Delay 32
VBSCall FindPic(350,200,674,450,"nf\血条R.bmp",0.9,x2,y2)
//检测怪的血条
If (x10 and y10) or (x20 and y20)
//有血条，怪存在
For 2
KeyPress kjjF2 1
//使用技能攻击
Delay 64
//技能延时
EndFor
Gosub 补红蓝
KeyPress kjjF8 1
Delay 64
//打怪时每3秒捡一次东西
Rem 捡东西
For 5
KeyPressH 116,1
Delay 10
KeyPress 116,1
Delay 10
KeyDown 116,1
Delay 10
KeyUp 116,1
Delay 10
KeyPress kjjF5 1
//捡东西，循环遍数越大，捡取距离越长（2-5足够了）。
Delay 10
EndFor
Gosub 无药回城
If wuse=1
Gosub 自动五色
EndIf
If DateDiff("s",t2,time)=fightT
//攻击超过时间，发技能卡住了
SayString 卡...
KeyPress 13 1
Delay 128
VBS t2=time
//技能攻击重新记时
Gosub 补红蓝
If gjfs=0
MoveTo fx fy+15
Delay 16
LeftClick 1
Delay 16
MoveTo fx fy-15
Delay 16
LeftClick 1
//移动鼠标到脚下来回点一下,主要用于平砍挂机的。
Delay 128
EndIf
Goto 旋转找怪
EndIf
Goto 技能攻击
//循环技能攻击
EndIf
For 2
KeyPress kjjF2 1
//在这里加按F2，可在最后打一下空血怪
Gosub 补红蓝
Delay 256
//加个循环延时可解决77，88技能打怪后的走动问题。可根据情况自行调整循环遍数
EndFor
Goto 旋转找怪
ElseIf youguPOS机办理网=0
If DateDiff("s",t1,time)=wuguPOS机办理网T
//如果连续找不到怪超过设定时间（被引离练级点或回练级点失败或死亡自动回城）
SayString 米怪了...
KeyPress 13 1
Delay 128
VBS t1=time
//无怪时间重新记时
KeyPress kjjF6 1
Delay 6000
VBS savestring="出现异常，设定时间内搜索无怪，回城纠错。。。"
Gosub 写入日志
Delay 6000
Gosub 回城补充
EndIf
Goto 旋转找怪
EndIf
Goto 旋转找怪
//无怪，怪卡住或死亡，重新开始下一轮循环
Rem 停止挂机
Delay 3000
VBS savestring="停止挂机。。。"
Gosub 写入日志
SayString ...
KeyPress 13 1
Delay 128
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 3000
If guanji=1
For 3
KeyPress 27 1
Delay 128
EndFor
MoveTo 799 386
Delay 128
LeftClick 1
//结束游戏
Delay 1000
MoveTo 481 181
Delay 128
LeftClick 1
//确认
Delay 30000
VBS savestring="退出游戏，关闭电脑。。。"
Gosub 写入日志
VBSCall Call RunApp("Shutdown.exe -s -t 30")
EndIf
EndScript
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 补红蓝
Rem 低血回城
IfColor dihui*1.28+21 5 4a5373 2
KeyPress kjjF6 1
//保命要紧，先按回城再说
Delay 3000
If jyF=1
Gosub 死亡回城
EndIf
Delay 6000
VBS savestring="低血回城。。。"
Gosub 写入日志
Delay 6000
Gosub 回城补充
EndIf
Rem 补红
If zudui=0
IfColor hongBF0*1.28+21 5 4a5373 2
KeyPress kjjF3 1
Delay 128
EndIf
Else
IfColor hongBF1*1.28+21 5 4a5373 2
KeyPress kjjF3 1
Delay 128
EndIf
EndIf
Rem 补蓝
IfColor lanBF*1.28+21 18 734b4a 2
//吃蓝也改为百分比设置
KeyPress kjjF4 1
Delay 128
EndIf
Return 补红蓝
Sub 自动五色
VBSCall FindPic(950,410,1015,710,"nf\五色1.bmp",0.9,wsx1,wsy1)
VBSCall FindPic(950,410,1015,710,"nf\五色2.bmp",0.9,wsx2,wsy2)
VBSCall FindPic(950,410,1015,710,"nf\五色3.bmp",0.9,wsx3,wsy3)
VBSCall FindPic(950,410,1015,710,"nf\五色4.bmp",0.9,wsx4,wsy4)
VBSCall FindPic(950,410,1015,710,"nf\五色5.bmp",0.9,wsx5,wsy5)
If wsx10 and wsy10 and wsx20 and wsy20 and wsx30 and wsy30 and wsx40 and wsy40 and wsx50 and wsy50
KeyPress 9 1
Delay 128
Gosub 补红蓝
VBSCall FindPic(780,370,1010,455,"nf\五色0.bmp",0.9,wsX,wsY)
If wsX0 and wsY0
MoveTo wsX wsY
Delay 64
RightClick 1
Delay 64
VBS savestring="吃五色。。。"
Gosub 写入日志
EndIf
Gosub 补红蓝
KeyPress 9 1
Delay 64
EndIf
EndIf
Return 自动五色
Sub 无药回城
If kjF30 and kjF35
VBS kjF_hx=596
For kjF3
VBS kjF_hx=kjF_hx+37
EndFor
ElseIf kjF34 and kjF39
VBS kjF_hx=753
For kjF3
VBS kjF_hx=kjF_hx+37
EndFor
EndIf
If kjF40 and kjF45
VBS kjF_lx=596
For kjF4
VBS kjF_lx=kjF_lx+37
EndFor
ElseIf kjF44 and kjF49
VBS kjF_lx=753
For kjF4
VBS kjF_lx=kjF_lx+37
EndFor
EndIf
IfColor kjF_hx 746 b5ffe7 2
SayString 买红。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress kjjF6 1
Delay 6000
VBS savestring="无红回城。。。"
Gosub 写入日志
Gosub 回城补充
Delay 6000
EndIf
IfColor kjF_lx 746 b5ffe7 2
SayString 买蓝。。。
Delay 32
KeyPress 13 1
Delay 512
KeyPress kjjF6 1
Delay 6000
VBS savestring="无蓝回城。。。"
Gosub 写入日志
Delay 6000
Gosub 回城补充
EndIf
Return 无药回城
Sub 包满回城
KeyPress 9 1
Delay 256
IfColor 977 537 000000 2
KeyPress 9 1
Delay 32
Else
SayString 存。。。
Delay 64
KeyPress 13 1
Delay 512
KeyPress kjjF6 1
Delay 6000
VBS savestring="包满回城。。。"
Gosub 写入日志
Delay 6000
KeyPress 9 1
Delay 128
Gosub 回城补充
EndIf
Return 包满回城
Sub 死亡回城
VBSCall FindPic(515,230,630,260,"nf\取消.bmp",0.9,sihuiX,sihuiY)
If sihuiX0 and sihuiY0
MoveTo sihuiX+10 sihuiY+5
LeftClick 1
Delay 6000
VBS savestring="角色死亡，选择回城。。。"
Gosub 写入日志
Delay 6000
KeyPress kjjF6 1
Delay 8000
Gosub 回城补充
EndIf
Return 死亡回城
Sub 回城补充
SayString ""回LS
Delay 100
Gosub 写入日志
Rem 回柳善
Delay 128
KeyPress 9 1
IfColor 812,565,73AAC6,2
Delay 512
MoveTo 977 369
Delay 128
RightClick 1
Delay 256
MoveTo 555 460
Delay 128
LeftClick 1
Delay 5000
Else
Goto 回柳善
Delay 128
EndIf
Goto 寻找仓库
Delay 1000
EndFor
Rem 寻找仓库
For 12
MoveTo 514 465
SaveMousePos
MoveTo 0 384
Delay 200
RestoreMousePos
Delay 100
LeftClick 1
EndFor
IfColor 424,561,73b6d6,2
Goto 开始补充
Delay 64
Else
Goto 寻找仓库
EndIf
EndIf
Delay 128
Delay 64
Rem 开始补充
Gosub 写入日志
VBS dki=0
Delay 128
Delay 512
VBS ge=0:pPOS机办理网=0
Rem 存物品
VBS savestring="存入物品。。。"
Gosub 写入日志
For 5
VBS ge=0
For 6
VBS wu_x=33*ge+812
VBS wu_y=33*pPOS机办理网+402
IfColor 600 543 081810 2
If pPOS机办理网0
IfColor wu_x wu_y 081410 2
//第3排开始检查，如果该格无物品，去取药
Goto 取药
EndIf
EndIf
VBSCall FindPic(wu_x-17,wu_y-17,wu_x+17,wu_y+17,"nf\五色0.bmp",0.9,ws_x,ws_y)
If ws_x0 and ws_y0
//如果该格物品为五色,跳过
VBS ge=ge+1
//横格依次加1
Else
MoveTo wu_x wu_y
Delay 128
LeftClick 1
Delay 512
MoveTo 600 543
Delay 512
LeftClick 1
Delay 512
MoveTo 700 390
Delay 512
VBS ge=ge+1
//下一格
EndIf
Else
VBS savestring="个人仓库满，停止挂机。。。"
Gosub 写入日志
Goto 停止挂机
EndIf
EndFor
VBS pPOS机办理网=pPOS机办理网+1
//下一排
EndFor
//存完，去取药
Delay 1000
Rem 取药
VBS cunyao=0
//先把剩余pos存入仓库，防止因超重而取不了药
VBS savestring="存入剩余pos。。。"
Gosub 写入日志
For 3
MoveTo 812+33*cunyao 369
Delay 128
LeftClick 1
Delay 512
MoveTo 600 543
Delay 512
LeftClick 1
Delay 512
SayString 1000
Delay 128
KeyPress 13 1
Delay 512
VBS cunyao=cunyao+1
EndFor
VBS quyao=0
//仓库第1排第1格红，第2格蓝，第3格符，先买了放好
VBS savestring="取出pos。。。"
Gosub 写入日志
If zudui=0
VBS hongN=hongN0
VBS lanN=lanN0
Else
VBS hongN=hongN1
VBS lanN=lanN1
EndIf
For 3
VBS yao_x=429+33*quyao
VBS yao_y=241
MoveTo yao_x yao_y
Delay 128
LeftClick 1
Delay 512
MoveTo 812 369
Delay 512
LeftClick 1
Delay 512
If quyao=0
//取红
SayString hongN
VBS backsay=hongN
Delay 256
KeyPress 13 1
Delay 512
VBS quyao=quyao+1
ElseIf quyao=1
//取蓝
SayString lanN
VBS backsay=lanN
Delay 256
KeyPress 13 1
Delay 512
VBS quyao=quyao+1
Else
//取符
SayString fuN
VBS backsay=fuN
Delay 256
KeyPress 13 1
Delay 512
EndIf
EndFor
Rem 补充结束
VBS savestring="补充结束。。。"
Gosub 写入日志
MoveTo 510 584
Delay 256
LeftClick 1
//关闭仓库
Delay 512
If tufu=0
//无土符
KeyPress 9 1
Delay 128
VBS savestring="无土符，停止挂机。。。"
Gosub 写入日志
Goto 停止挂机
ElseIf tufu=1
VBS savestring="有土符,使用土符返回练级地点。。。"
Gosub 写入日志
MoveTo 977 369
Delay 128
RightClick 1
Delay 256
MoveTo 513 407
Delay 128
LeftClick 1
Delay 3000
For 8
KeyPress kjjF3 1
Delay 800
EndFor
KeyPress 9 1
Delay 128
Goto 开始战斗
Else
//使用土符移动到保存的第baocunD个练级点
VBS savestring="有土符,使用土符返回练级地点。。。"
Gosub 写入日志
MoveTo 977 369
Delay 128
RightClick 1
Delay 256
If zudui=0
VBS baocunD=baocunD0
Else
VBS baocunD=baocunD1
EndIf
VBS baocun=-1
For baocunD
VBS baocun=baocun+1
EndFor
MoveTo 516 349+38*baocun
Delay 128
LeftClick 1
Delay 3000
For 6
KeyPress kjjF3 1
Delay 800
EndFor
KeyPress 9 1
Delay 128
Goto 开始战斗
EndIf
Return 回城补充
Sub 快捷键设置
VBS kjjF1=111
For kjF1
VBS kjjF1=kjjF1+1
EndFor
VBS kjjF2=111
For kjF2
VBS kjjF2=kjjF2+1
EndFor
VBS kjjF3=111
For kjF3
VBS kjjF3=kjjF3+1
EndFor
VBS kjjF4=111
For kjF4
VBS kjjF4=kjjF4+1
EndFor
VBS kjjF5=111
For kjF5
VBS kjjF5=kjjF5+1
EndFor
VBS kjjF6=111
For kjF6
VBS kjjF6=kjjF6+1
EndFor
VBS kjjF7=111
For kjF7
VBS kjjF7=kjjF7+1
EndFor
VBS kjjF8=111
For kjF8
VBS kjjF8=kjjF8+1
EndFor
Return 快捷键设置
Sub 写入日志
VBS dim file,f1,fileexist,savestring,filename
VBS Const ForWriting=2
VBS Const ForAppending=8
VBS set file = CreateObject("Scripting.FileSystemObject")
VBS fileexist=file.FileExists(filename)
If fileexist=-1
Goto append
EndIf
VBS Set f1 =file.CreateTextFile(filename,ForWriting)
VBS f1.Close
Rem append
VBS Set f1 =file.OpenTextFile(filename,ForAppending)
VBS savestring=Cstr(Year(Now))+"年"+Cstr(Month(Now))+"月"+Cstr(Day(Now))+"日"+Cstr(Hour(Now))+"时"+Cstr(Minute(Now))+"分"+Cstr(Second(Now))+"秒 "+savestring
VBS f1.WriteLine(savestring)
VBS f1.Close
Return 写入日志
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
//【脚本经过修改、测试】
//【创作日期】//
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
老板手机一年只充三次电，699元就能买一部是假的。
除非老板手机关机，否则根据能量守恒定律，能量从来不是源源不断的，因此即使手机不使用也不能一年只充三次电。
手机，全称为移动电话或无线电话，通常称为手机。
[img]我从06年就开始玩江湖了你说的小助手我知道.是官网退出的一种在游戏里面找仓库管理员领取但是每七天领取一次因为七天够就会失效.到时候再去领就好了.新手在韦大宝那里就能领取.反正不太好用.我一直用的就是智辅从来没有被使用过20元包用一个月.分给我吧
热血江湖手游全部寻宝天蚕鼓首先要有足够的线索，也就是度任务材料。如果没有的话可以去泫勃派韦大宝那里获衟取（花金币买），买够足够的线索就可以探宝了。
扩展资料：
想玩这款手游BT福利版或类似福利版本的可以上风林手游（14294.com）找下，还有礼包码和大额抵扣劵可以领取。
