谁能用keybd_event帮忙写个超简单得程序?

'在窗体上加入控件timer1,,然后复制下面代码，运行即可。
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
keybd_event vbKeyS, 0, KEYEVENTF_EXTENDEDKEY, 0 '按下S键
keybd_event vbKeyS, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0 '松开S键
End Sub

加一个timer,设置interval=100
interval单位是毫秒，按照题意就是这样

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) '这个是声明:D

Private Sub Timer1_Timer()
Call keybd_event(83, 0, 0, 0) '83就是S对应的键码，R是82. 这里模拟按s键就是这一步
End Sub

当然还有更简单的办法：
sendkeys &qu