vb模拟按V键

来源：百度知道 编辑：UC知道 时间：2024/05/11 18:16:04
当按下程序界面中的“启动”按钮后，
程序就每隔10秒按一下V键，无限重复（如果不能无限重复，就重复1000次吧！）
当按下程序界面中的“停止”按钮后，重复按键停止。

各位高手，这怎么实现？？

建立2个按钮，1个Timer控件
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 10000
SendKeys "V"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

找API函数里的keybd_event.
keybd_event

VB声明
Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
说明
这个函数模拟了键盘行动
参数表
参数 类型及说明
bVk Byte，欲模拟的虚拟键码
bScan Byte，键的OEM扫描码
dwFlags Long，零；或设为下述两个标志之一
KEYEVENTF_EXTENDEDKEY 指出是一个扩展键，而且在前面冠以0xE0代码
KEYEVENTF_KEYUP 模拟松开一个键
dwExtraInfo Long，通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序

1.弄一个Timer控件
Enabled属性设为False ’意思是控件默认关闭
间隔时间设置（就是属性里In..忘了咋拼的了）为10000（10秒，单位是毫秒）
事件里写
SendKeys &q