使用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

原文轉自：http://www.anti-gravitydesign.com