UC知道VB模拟铵键 关机
来源：百度知道 编辑：UC知道 时间：2024/05/25 15:18:39
代码如下,为什么不会弹出"开始"菜单呢?
Private Sub Command1_Click()
SendKeys "^{ESC}"
End Sub
Private Sub Command1_Click()
SendKeys "^{ESC}"
End Sub
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 Command1_Click()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(&H5B, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub