似乎用SendKeys.Send无法实现发送组合键“Windows+L”。
有一个替代的方法。如下
Imports System.Diagnostics
Public Class Form1
' 鼠标双击窗体后锁屏!
Private Sub Form1_DoubleClick(sender As Object, _
e As EventArgs) Handles Me.DoubleClick
Process.Start("rundll32.exe", "user32.dll, LockWorkStation")
End Sub
End Class