[Script]
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 开始
//跳转到循环开始

用VB弄个这样功能的给我瞧瞧吧！

我们采用问答方式 （这样对你也是一个提高）

你来编写这个程序 什么功能不能实现 是“屏幕取色” 还是“键盘模拟” 或者是其他的 ？？

這個程序最麻煩是脚本解释

你先教我如何键盘模拟吧~
比如我要实现FORM LOAD时自动按某个键~

'以下程序实现窗体加载时模拟按下键盘上的"A"

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2

private sub Form_load()
keybd_event VbKeyA, 0, 0, 0 '按下"A"
keybd_event VbKeyA, 0, KEYEVENTF_KEYUP, 0 '松开"A"
end sub

Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
'Print the key on the form
Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
'Joforn 2007
'Blog:Http://Blog.163.com/Joforn/
'E-Mail: Joforn@sohu.com
'Clear the form
Me.Cls
keybd_event VK_H, 0, 0, 0 ' press H
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0 ' release H
keybd_event VK_E, 0, 0, 0 ' press E
keybd_event VK_E, 0, KEYEVENTF_KEYUP, 0 ' release E
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_O, 0, 0, 0 ' press O
keybd_event VK_O, 0, KEYEVENTF_KEYUP, 0 ' release O
End Sub

谢谢楼上2位拉，不过可惜啊，我上礼拜6被抓去工作了，没时间再弄这些东西了！现在放假7天，我想弄个数据录入的软件，方便我工作，还请论坛的大虾们教下，希望能在5天内做出来！不知道大家放假还泡论坛不啊！