写了个禁止关闭计算机的模块（原创：唐细刚 2005-5-29）

最新推荐文章于 2025-01-23 23:04:19 发布

原创最新推荐文章于 2025-01-23 23:04:19 发布 · 3.6k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

>> VB6

作者在CSDN看到问题后，编写了一个方便调用的模块，用于阻止Windows系统关机。文中给出了模块代码和主窗体代码，还提及该文已被其他网站引用，要求保留原创说明。

CSDN上看到这个问题，顺便写了个模块，方便大家调用：

http://community.csdn.net/Expert/topic/4041/4041955.xml?temp=.7912561

主　　题：

如何阻止windows关机？

'mStopShutDown.bas
模块代码：

Private Const GWL_WNDPROC = (-4)
Private Const WM_ENDSESSION = &H16
Private Const WM_QUERYENDSESSION = &H11

Private WndProc As Long

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc

As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As

Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long,

ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Sub HookShutDown(ByVal hWnd As Long)
    If WndProc = 0 Then
       WndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
    End If
End Sub

Public Sub UnHookShutDown(ByVal hWnd As Long)
    If WndProc <> 0 Then
       Call SetWindowLong(hWnd, GWL_WNDPROC, WndProc)
       WndProc = 0
    End If
End Sub

Private Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal

lParam As Long) As Long
    If uMsg = WM_QUERYENDSESSION Then
       WindowProc = False '为0
       Exit Function
    ElseIf uMsg = WM_ENDSESSION Then
       WindowProc = False '为0
       Exit Function
    End If
    WindowProc = CallWindowProc(WndProc, hw, uMsg, wParam, lParam)
End Function

主窗体代码：

Private Sub Form_Load()
Call HookShutDown(Me.hWnd)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call UnHookShutDown(Me.hWnd)
End Sub

本文已经被其他的网站引用，比如：

http://www.i0562.com/default.asp?cat=3

请保留我的原创说明．

标签

#function #integer #user #windows