杭州交通信息网佛教对人类起源的观点:如何用VB做屏幕锁定的程序？我用了API的EnableWindow函数，可是没有反应啊
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/09 18:37:32
最好有程序例子，急。
我的程序如下：
在模块中声明：Public Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
在程序中：
Dim i As Long
i = IsWindowEnabled(GetDesktopWindow)
If i <> 0 Then
i = EnableWindow(GetDesktopWindow, 0)
End If
到底哪里有问题啊？
我的程序如下：
在模块中声明：Public Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
在程序中：
Dim i As Long
i = IsWindowEnabled(GetDesktopWindow)
If i <> 0 Then
i = EnableWindow(GetDesktopWindow, 0)
End If
到底哪里有问题啊？
EnableWindow对DesktopWindow无效
建议使用键盘+鼠标钩子锁定