按键精灵加血脚本

1. 天翼之链按键精灵自动加血，蓝，用技能脚本！！

下面是源代码
//下面是自定义内容不要改
UserVar T1 请输入图片1路径
UserVar T2 请输入图片2路径
UserVar T3 请输入图片3路径
UserVar T4 请输入图片4路径
//上面是自定义内容不要改
Rem huei
Delay 200*2
VBSCall Call FindPic(0,0,1023,767,T1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200*2
LeftClick 1
Delay 200*2
Goto huei
Else
VBSCall Call FindPic(0,0,1023,767,T2,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200*2
LeftClick 1
Goto huei
Else
VBSCall Call FindPic(0,0,1023,767,T3,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200*2
LeftClick 1
Delay 200*2
Goto huei
Else
VBSCall Call FindPic(0,0,1023,767,T4,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200*2
LeftClick 1
Delay 200*2
Goto huei
Else
Delay 200*2
Goto huei
EndIf
EndIf
EndIf
EndIf
Delay 200*2
Goto huei

2. 按键精灵后台加血脚本

修改后代码如下（按键精灵8或9）：
UserVar hong=50 "血量<hong%时，自动吃红。"
UserVar lan=30 "蓝量<lan%时，自动吃蓝。"
UserVar hongT=100 "补血延时时间（毫秒）"
UserVar lanT=100 "补蓝延时时间（毫秒）"
Hwnd = Plugin.Window.MousePoint()
Rem 开始
//循环开始标记
Delay 200
//循环小延时，防止出现CPU使用率过高，脚本卡
Rem 补红
MyColor = Plugin.BkgndColor.GetPixelColor(Hwnd, 207, 72)
If MyColor = "000000" Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 49)
Delay 700
Else
//
End If

Rem 补蓝
MyColor = Plugin.BkgndColor.GetPixelColor(Hwnd, 152, 92)
If MyColor = "000000" Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 50)
Delay 700
Else
//
End If

Goto 开始
//跳转到循环开始

P.S.你的代码里面用户自定义变量完全没用上=。=

3. 怎么用按键精灵做自动加血加蓝脚本

按键精灵自带有这个脚本。。VBS dim hong,lan,hongT,lanT//F3红，F4蓝//在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。UserVar hong=70 血量<hong%时，自动吃红。UserVar lan=30 蓝量<lan%时，自动吃蓝。UserVar hongT=256 补血延时时间（毫秒）UserVar lanT=256 补蓝延时时间（毫秒）Rem 开始//循环开始标记Delay 32//循环小延时，防止出现CPU使用率过高，脚本卡Rem 补红IfColor hong/100*(x2-x1)+x1 y color 2 //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标， //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。 KeyPress 114 1 //按下补血快捷键 Delay hongT //补血延时EndIf Rem 补蓝IfColor lan/100*(x2-x1)+x1 y color 2 //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标， //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。 KeyPress 115 1 //按下补蓝快捷键 Delay lanT //补蓝延时EndIf Goto 开始//跳转到循环开始