Question

利用VB如何模拟键盘 按键

我的目的是
每间隔 10分钟就 运行一下cirl+alt+v
VB可以办到骂？？

按钮的代码哦~~~

谢谢大家帮忙了
代码有误!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'按下回车
Call keybd_event(13, 0, 0, 0)
'抬起回车
Call keybd_event(13, 0, 2, 0)

13是回车键的keycode，改成其他也一样
在vb里有一套key常量，比如vbKeyA 就是A键
keybd_event vbKeyA,0,0,0 就是按下A

完整代码：在窗体上放一个Timer，interval设成1000
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
dim delay as long
private sub form_load()
delay=600
end sub
Private sub Timer1_Timer()
if delay>0 then
delay=delay-1
else
keybd_event vbkeycontrol,0,0,0
keybd_event vbkeymenu,0,0,0
keybd_event vbkeyV,0,0,0

doevents
doevents

keybd_event vbkeyV,0,2,0
keybd_event vbkeymenu,0,2,0
keybd_event vbkeycontrol,0,2,0
delay=600
end if
end sub

Answer 2

用按键精灵好了。
VB的话，调用系统API的SendKey可以实现。