VB的一个小问题

2024-11-25 19:52:41

推荐回答（3个）

回答1：

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

Private Sub Command1_Click()

Call DoAction(0)
Call DoAction(1)
Call DoAction(2)
Call DoAction(3)
Call DoAction(4)
Call DoAction(5)
Call DoAction(6)

End Sub

sendkeys 也行。

回答2：

http://tieba.baidu.com/f?kz=130624520
参考一下这里

回答3：

keybd_event,sendkeys,但要注意需要获得焦点(激活状态)才行，全局钩子或驱动不受此限制。