VB屏蔽start键

来源：百度知道 编辑：UC知道 时间：2024/06/04 09:15:44
在VB中如何屏蔽start键（就是window那块旗）我要代码来参考，麻烦各位，谢谢各位。

'***************************

'把以下程序粘贴到模块中

'***************************

Option Explicit

Private Declare Function CallNextHookEx _
Lib "user32" (ByVal hHook As Long, _
ByVal nCode As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Declare Function SetWindowsHookEx _
Lib "user32" _
Alias "SetWindowsHookExA" (ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Sub CopyMemory _