模拟键盘事件

以下为模拟键盘事件.比如模拟"r"键.
—————————————————————————————————————————-
'在模块中定义
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
在窗口中建立一timer.时间间隔随意.只要不是0就可以了哦.呵呵.
Private Sub Timer1_Timer()
Call keybd_event(82, 0, 0, 0) '模拟按下"R"键
End Sub

未经允许不得转载:Sleep's Blog » 模拟键盘事件

相关文章

评论 (0)

4 + 2 =

*