VB winkey+L键

来源：百度知道 编辑：UC知道 时间：2024/05/17 08:51:09
怎样可以按一下command1按钮，就等于按winkey+L键，把电脑锁住。

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event &H5C, 0, 0, 0 ' 按下WINKEY
keybd_event &H4C, 0, 0, 0 ' 按下L
keybd_event &H4C, 0, 2, 0 ' 弹起L
keybd_event &H5C, 0, 2, 0 ' 弹起WINKEY
End Sub