使用kb_event函数模拟键盘操作

  kb_event函数的使用　
　　　　　
下面的函数可以利用kb_event实行一些系统操作

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 VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_APPS = &H5D
Private Const VK_PLAY = &HFA

Private Sub DoAction(Index As Integer)
　Dim VK_ACTION As Long

　Select Case Index
　　Case 0: ''打开资源管理器
　　　VK_ACTION = &H45
　　Case 1: ''查找文件
　　　VK_ACTION = &H46
　　Case 2: ''最小化所有窗口
　　　VK_ACTION = &H4D
　　Case 3: ''运行程序
　　　VK_ACTION = &H52
　　Case 4: ''弹出Win菜单
　　　VK_ACTION = &H5B
　　Case 5: ''将计算机转入睡眠状态
　　　VK_ACTION = &H5E
　　Case 6: ''执行Windows帮助
　　　VK_ACTION = &H70
　End Select

　Call keybd_event(VK_LWIN, 0, 0, 0)
　Call keybd_event(VK_ACTION, 0, 0, 0)
　Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub