我想用模拟按下键盘按键的方式打开设备管理器,但是没打开。以下是代码
Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command3_Click()
keybd_event 91, 0, 0, 0
keybd_event 19, 0, 0, 0
keybd_event 91, 0, 2, 0
keybd_event 19, 0, 2, 0
AppActivate "系统属性"
keybd_event vbKeyRight, 0, 0, 0
keybd_event vbKeyRight, 0, 2, 0
keybd_event vbKeyRight, 0, 0, 0
keybd_event vbKeyRight, 0, 2, 0
keybd_event vbKeyTab, 0, 0, 0
keybd_event vbKeyTab, 0, 2, 0
keybd_event vbKeyReturn, 0, 0, 0
keybd_event vbKeyReturn, 0, 2, 0
'91是Windows徽标键,19是PauseBreak,同时按下徽标键与Break键可打开系统属性窗口
End Sub
请问我的代码有什么问题?
|