求按键精灵热血江湖刀全自动挂机脚本

按键精灵 热血江湖群刀的挂机脚本~

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 400
EndIf
KeyPress 120 1
Delay 100
Rem 程序开始
KeyPress 120 1
hhjg=hhjg+1
VBSCall Call ReadMemory(&h144BDCC,1,redmax)
VBSCall Call ReadMemory(&h144BDC0,1,red)
VBSCall Call ReadMemory(&h144BDD0,1,bluemax)
VBSCall Call ReadMemory(&h144BDC4,1,blue)
redb1=redmax/100*16
redb0=redmax/100*23
redbj=redmax/100*60
blueba=bluemax/100*60
bluebb=bluemax/100*80
bluebj=bluemax/100*30
If red<redb0
KeyPress 118 1
Delay 90000
EndIf
If red<redb1
KeyPress 118 1
Delay 90000
EndIf
If blue<blueba
KeyPress 116 1
Delay 400
EndIf
If blue<bluebb
KeyPress 116 1
Delay 400
EndIf
VBSCall Call Delay(ys)
Goto 程序开始
EndFor

Home--启动

F12---关闭

F3红、F4蓝、F5拿东西小手、F7回城符、F9打怪技能！

1>>热血江湖打手挂机外挂 V170


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)
// 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓

复制这个脚本到按键里 推荐用按键

[General]
Description=中间渐开垂直打怪
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
UserVar hongBF=70 血量少于百分之多少时，自动吃红。
UserVar lanBF=30 蓝少于百分之多少时，自动吃蓝。
UserVar dihui=15 血量少于百分之多少时，自动回城。
UserVar hongyanshi=128 补红延时，1000=1秒
UserVar lanyanshi=128 补蓝延时，1000=1秒
UserVar wuguaiT=600 无怪时间，超过多少秒时间找不到怪自动报警。
UserVar fhong=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=0 红位置
UserVar flan=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=1 蓝位置
UserVar fdanJN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=2 第一击JN位置
UserVar fqunJN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=3 群JN位置
UserVar fjianqu=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=4 捡东西小手
UserVar f15JN=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=7 15级跑JN
UserVar fhuicheng=DropList{F1:0|F2:1|F3:2|F4:3|F5:4|F6:5|F7:6|F8:7|F9:8|F10:9}=8 回城F
UserVar beidong=DropList{是:0|否:1}=0 直接群攻
UserVar fightT=30 技能防卡时间，为打死一只怪的最大时间(秒)。
UserVar Fanwei=40 战斗范围，请大于20
UserVar quanshu=3 搜索圈数
UserVar StepX=82 左右搜索距离
UserVar StepY=66 上下搜索距离
UserVar SearchT=32 搜索时间间隔,越小搜怪越快,1000=1秒
UserVar baojing=DropList{回城打坐:0|回城报警:1|回城关机:2}=0 回城后
VBS dim NumA,NumB,NumC,NumK,NumN,CenterX,CenterY,GBX,GBY,color
VBS Dim objFM
VBS Set objFM=CreateObject("QMDispatch.QMFunction")
VBS Dim ScreenWidth,ScreenHeight
VBSCall GetScreenResolution(ScreenWidth,ScreenHeight)
CenterX = (ScreenWidth \ 2) - 1
CenterY = (ScreenHeight \ 2) - 1
VBS Dim MonX,MonY,TargetX,TargetY,DirectSIN,DirectCOS,MouseX,MouseY,lngHold
VBS MonX=0:MonY=0:DirectSIN=0:DirectCOS=1
Gosub 快捷键设置
Gosub LookDown
Gosub 补红蓝
VBSCall GetCurXY(CurX,CurY)@<find.vbs>
VBS TargetX=CurX
VBS TargetY=CurY
SayString CurX
SayString "."
SayString CurY
Delay 64
KeyPress 13 1
Delay 64
VBS t=now
Rem 开始
VBSCall GetCurXY(CurX,CurY)@<find.vbs>
Juli=sqr((CurX-TargerX)^2+(CurY-TargetY)^2)
If Juli>Fanwei
Gosub WalkToXY
EndIf
If DateDiff("s",t,now)>=wuguaiT
hcyy=4
KeyPress khuicheng 1
Delay 3000
Goto 停止挂机
EndIf
Rem 找怪
VBS NumA=0:NumB=0:NumC=0
MoveTo 0 384
Delay 200
MoveTo CenterX CenterY
Delay 32
VBSCall Shape=GetCursorShape(0)
If Shape=553575064
LeftClick 1
Delay 32
VBS youguai=1
Goto 打怪
EndIf
While NumC<quanshu
VBS NumN=NumC*8:NumK=0
While NumK<NumN
If NumK>0 and NumK<(NumN/4)
VBS NumB=NumB+1
ElseIf NumK>=(NumN/4) and NumK<(NumN/2)
VBS NumA=NumA-1
ElseIf NumK>=(NumN/2) and NumK<(NumN/4)*3
VBS NumB=NumB-1
ElseIf NumK>=(NumN/4)*3 and NumK<NumN
VBS NumA=NumA+1
EndIf
Gosub 补红
Gosub 无红回城
VBS GBX=CenterX+StepX*NumA
VBS GBY=CenterY+StepY*NumB
MoveTo GBX GBY
Delay SearchT
VBSCall Shape=GetCursorShape(0)
If Shape=553575064
LeftClick 1
Delay 32
VBS youguai=1
Goto 打怪
EndIf
VBS NumK=NumK+1
EndWhile
VBS NumA=NumA+1:NumC=NumC+1
EndWhile
VBS youguai=0
Rem 打怪
If youguai=1
VBS t=now
Gosub 补红蓝
Gosub 无药回城
If beidong=1
For 2
KeyPress kdanJN 1
Delay 256
EndFor
Else
For 3
KeyPress kqunJN 1
Delay 128
EndFor
EndIf
KeyPress k15JN 1
Delay 32
Gosub 补红蓝
Gosub 无药回城
VBS t1=now
Rem 技能攻击
VBSCall FindPic(250,180,780,580,"nf\血条L.bmp",0.8,x3,y3)
Delay 32
VBSCall FindPic(250,180,780,580,"nf\血条R.bmp",0.8,x4,y4)
Delay 32
VBSCall FindPic(250,180,780,580,"nf\_MonJ血条L.bmp",0.8,x5,y5)
Delay 32
VBSCall FindPic(250,180,780,580,"nf\_MonJ血条R.bmp",0.8,x6,y6)
Delay 32
If x3>0 or x4>0 or x5>0 or x6>0
VBS t=now
For 3
KeyPress kqunJN 1
Delay 64
EndFor
Gosub 补红蓝
KeyPress k15JN 1
Delay 32
Gosub 捡取
Gosub 无药回城
If DateDiff("s",t1,now)>=fightT
VBS t1=time
MoveTo CenterX CenterY+25
Delay 32
LeftClick 1
Delay 32
MoveTo CenterX CenterY-25
Delay 32
LeftClick 1
Delay 32
Goto 开始
EndIf
Goto 技能攻击
EndIf
EndIf
Goto 开始
Rem 停止挂机
Delay 3000
KeyDown 17 1
KeyPress 67 1
KeyUp 17 1
Delay 3000
If hcyy=1
SayString 低血回城
ElseIf hcyy=2
SayString 无红回城
ElseIf hcyy=3
SayString 无蓝回城
ElseIf hcyy=4
SayString 超时间无怪，回城
EndIf
If baojing=1
For 60
Beep
Delay 1000
EndFor
ElseIf baojing=2
KeyPress 27 1
Delay 3000
VBSCall FindPic(50,50,ScreenHeight-50,ScreenWidth-50,"nf\_User选项.bmp",0.9,x,y)
If x>0 And y>0
MoveTo x+10 y+5
Delay 64
LeftClick 1
Delay 64
EndIf
Delay 3000
VBSCall FindPic(50,50,ScreenHeight-50,ScreenWidth-50,"nf\确认退出.bmp",0.9,x,y)
If x>0 And y>0
MoveTo x+10 y+5
Delay 64
LeftClick 1
Delay 64
EndIf
Delay 30000
VBSCall Call RunApp("Shutdown.exe -s -t 30")
EndIf
EndScript
//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓〓〓〓
Sub 补红蓝
IfColor dihui*1.28+21 5 041618 2
KeyPress khuicheng 1
Delay 3000
hcyy=1
Goto 停止挂机
EndIf
IfColor hongBF*1.28+21 5 041618 2
KeyPress khong 1
Delay hongyanshi
EndIf
IfColor lanBF*1.28+21 19 041618 2
KeyPress klan 1
Delay lanyanshi
EndIf
Return 补红蓝
Sub 无药回城
IfColor xh ScreenHeight-34 colorhong 2
Goto 查蓝颜色
EndIf
Rem 无红
KeyPress khuicheng 1
Delay 3000
hcyy=2
Goto 停止挂机
Rem 查蓝颜色
IfColor xl ScreenHeight-34 colorlan 2
Return 无药回城
EndIf
Rem 无蓝
KeyPress khuicheng 1
Delay 3000
hcyy=3
Goto 停止挂机
Return 无药回城
Sub 捡取
For 2
KeyPress kjianqu 1
Delay 64
EndFor
Return 捡取
Sub 快捷键设置
khong=112+fhong
klan=112+flan
kdanJN=112+fdanJN
kqunJN=112+fqunJN
kjianqu=112+fjianqu
k15JN=112+f15JN
khuicheng=112+fhuicheng
xh=ScreenWidth-351+fhong*37
colorhong=GetPixelColor(xh,ScreenHeight-34)
xl=ScreenWidth-351+flan*37
colorlan=GetPixelColor(xl,ScreenHeight-34)
Return 快捷键设置
Sub WalkToXY
VBS t1=now
VBS lngPreX=0:lngPreY=0:lngHold=0
VBS MouseX=0:MouseY=0
VBSCall GetCurXY(CurX,CurY)@<find.vbs>
VBSCall SetWalkClick()@<find.vbs>
While blnWalk=1
MoveTo MonX MonY
Delay 64
Gosub 补红蓝
Gosub 无药回城
KeyPress K15JN 1
Delay 32
LeftClick 1
Delay 512
VBSCall GetCurXY(CurX,CurY)@<find.vbs>
VBSCall SetWalkClick()@<find.vbs>
If DateDiff("s",t1,now)>=30
Goto 找怪
EndIf
EndWhile
Return WalkToXY
//********************调整为俯视子程序************************
Sub LookDown
MoveTo CenterX 30
Delay 100
RightDown 1
Delay 300
MoveR 0 620
Delay 200
RightUp 1
Delay 300
MoveTo CenterX CenterY
Delay 100
Return LookDown
//=================================
Sub 补红
IfColor hongBF*1.28+21 5 041618 2
KeyPress khong 1
Delay hongyanshi
EndIf
Return 补红
Sub 无红回城
IfColor xh ScreenHeight-34 colorhong 2
Else
KeyPress khuicheng 1
Delay 3000
hcyy=2
Goto 停止挂机
EndIf
Return 无红回城

---

海珠区15285459510： 热血江湖懂全能按键的进来打手用的 按键精灵脚本 1.自动找怪 2.技能刷怪 3.自动喝红蓝(最好50%以上) 4.自动捡物 请高手帮忙,附带说明,如: ？
山姜哥台： 用小小全职辅助V1.69版本 可以在百度直接搜索“小小全职辅助”或“心意城市”下载 自动补红END键启动 自动补蓝HOME键启动 自动技能F12键启动 具体方法是 在游戏前打开小小全职辅助 然后调好高级选项中红 蓝 技能对应在游戏中下方快捷栏的位置(例如:红F3 蓝F4 技能F2)之后调节红和蓝在多少数值以下自动补给(例如;红500以下 蓝400以下)这样在你的血和蓝降低到你所设定的数值之下时就会自动补给 技能方法和上面蓝红补给差不多 是你设定每次技能使用的间隔时间 现在还可以开启自动物品拾取 血量保护 没蓝回城 详细操作简单易学 祝你玩的开心

海珠区15285459510： 热血江湖自动打怪 - ？
山姜哥台： 我发给你,以下是介绍 热血江湖挂机小兔版V1.5 ∷软件简介∷ 本软件为按键精灵5.92未注册版本,共含有9个热血江湖挂机脚本,下载后杀毒解压即可使用.按键精灵5.92未注册版本是不存在木马或其他病毒的,放心使用!有问题请联系本网站.热血江湖挂机小兔版的最新版本,修正了部分脚本运行不正常错误之处.含挂机脚本:1、群刀定点单刷挂机捡物无药回城1.52、群刀组队挂机无兰回城1.53、群刀定点单刷挂机1.44、打手组队半自动挂机1.55、打手组队挂机无兰回城1.56、医生自动群疗补红兰1.57、医生群疗挂机无兰回城1.58、打手单刷挂机1.59、补血补兰1.5

海珠区15285459510： 按键精灵V3.0 热血江湖喊话脚本谁能给兄弟发下!谢谢! - ？
山姜哥台： 教你写一、打开按精灵,点左上角的“新建”二、进入写脚本界面,在左边的“其它命令”下面,“延时”选“秒”,“时间”下面写入你的喊话间隔.比如3,然后点过来...

海珠区15285459510： 热血江湖 编辑脚本问题 - ？
山姜哥台： 1、抓点时要想保存按 ctrl+alt+0(或其他数字或字母,看抓点窗口的左边就知道了). 2、在抓点时抓点窗口右边会出现鼠标所在位置的坐标和颜色代码. 3、在使用抓点坐标时可以把刚刚保存的鼠标坐标插入脚本编辑框内.热血江湖挂机小兔...

海珠区15285459510： 我需要热血江湖2007年医生或QD可以用的容易一点的外挂~如果按键精灵~请提供使用方法和脚本之类的~ - ？
山姜哥台： Rem 打怪 KeyPress 114 1 Delay 50 Rem 补血兰 IfColor 125 12 424563 2 KeyPress 118 1 Delay 300 EndIf IfColor 93...

海珠区15285459510： 谁帮莪做个热血江湖按键精灵的脚本？
山姜哥台： 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

海珠区15285459510： 寻找按键灵高手帮我弄个热血江湖打手自动旋转点怪打怪脚本!？
山姜哥台： 按键精灵不可能智能加血,只能设置延时加血,也就是隔段时间加一次 鼠标也只能抓点而不能自动拣东西 旋转点怪到是可以,但是有可能一个怪没打死就点到另一个怪,总之不推荐使用

海珠区15285459510： 热血江湖如何挂机,或者是用精灵键? - ？
山姜哥台： 医生可以挂,其它职业要有专业的挂机软件,我只听说过有技能枪的挂机软件,其它的没听说过,医生想挂机用简单游或按键精灵,但只限群医挂机.

海珠区15285459510： 求一个按键精灵脚本,具体要求:在刀剑英雄一个指定位置,一直按左键,时间间隔是30分钟一次,高手帮帮忙 - ？
山姜哥台： For 100 //循环100次 MoveTo 000,000 //这里填需要移到位置的坐标 LeftClick 1 Delay 180000 //时间间隔30分钟 Next 1分钟=60000毫秒

海珠区15285459510： 求 - --热血江湖---定点打主动怪 按键精灵脚本!! - ？
山姜哥台： 你想要让你的人物离开江湖的话请慢慢享受按键精灵脚本吧.到目前为止 医生用按键精灵自动群的才是最安全的挂.