请教如何用 VB实现 检测关机动作并 msgbox "closeing.."

Question

想要 VB 实现如下功能：程序启动后，当按下 “关机”或 “重启”后，程序弹出一个 msgbox ："closeing.."就这么简单多谢大侠！！！

Answer 1

这段代码我还是不懂……
如果我们关机或Logoff时，我们的程序有时会因而无法按正常程序结束，一般我们会在Form的Unload中一段程序结束时要做什么事，但是，如果使用者直接用开始功能菜单的关机，会使UnLoad的部份没有做到，我们现在就想办法来拦截关机(或Logoff)时的信息。  
一般来说，关机或Logff后，Windows会传依序送出WM_QUERYENDSESSION的信息给每个Process，如果中间有一个Process不能顺利结束(例如：Word修改后未存档，而出现是否存档，但我们按取消)，这时该信息执行的结果会传回False(0)，这时Windows也就不再继续送WM_QUERYENDSESSION给下一个Proccess。反之，如果所有的Process都可以顺利结束(也就是每个送出的WM_QUERYENDSESSION都传回True)，那才代表以以顺利结束。
不管WM_QUERYENDSESSION最后的结果是可以顺利结束或不能顺利结束，Windows会再送一个WM_ENDSESSION的信息给所有的Process，而wParam的内容便是指出是否可以顺利结束(True菜单可以，False菜单不行，在vb中则Check wParam = 0 菜单False ， 0菜单True)，说到这里大概就知道该如何做啦，程序如下：
'以下在FormPrivate Sub Form_Load()Dim ret As Long'记录原来的Window Procedure的位址preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)'设定form的window Procedure到wndprocret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)End SubPrivate Sub Form_Unload(Cancel As Integer)Dim ret As Long'取消Message的截取，而使之又只送往原来的Window Procedureret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)'这里只是要看看用关机的方式结束程序时，会不会执行到这里Dim fno As Longfno = FreeFileOpen "c:\tt2" For Append As fnoPrint #fno, "ccc" + vbCrLfClose #fnoEnd Sub'以下在.BasOption ExplicitDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDeclare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _(ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare 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 LongPublic Const GWL_WNDPROC = (-4)Public Const WM_ENDSESSION = &H16Public Const WM_QUERYENDSESSION = &H11Public preWinProc As LongPublic Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _ByVal wParam As Long, ByVal lParam As Long) As LongIf Msg = WM_QUERYENDSESSION ThenDebug.Print "QryEnd", wParam, lParamElseIf Msg = WM_ENDSESSION ThenIf wParam 0 Then '代表将顺利关机或LogOff，这时便得做正常结束程序的操作Dim fno As LongOpen "c:\ttt" For Output As #1Print #1, "hahcccc5"Close #1End IfEnd IfEnd If'将之送往原来的Window Procedurewndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)End Function 

Answer 2

我不是要停止关机（或注销），而是让程序在关机是弹出一个MSGBOX，然后任WINDOWS处置。

Answer 3

你的这段代码已经实现了你说的功能，你把Debug.Print   "QryEnd",   wParam,   lParam 换成msgbox "closeing..."
就应该可以了，但没有实验

Answer 4

用不着子类化滴~
在Form的QueryUnload事件中，判断参数UnloadMode的值
如果值等于4的话，就是系统正在关闭了。

Answer 5

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbAppWindows Then '系统关机
        MsgBox "closeing.."
    End If
End Sub

Answer 6

而且MSG好像也没有定义
我不想用到FORM，只想用模块。

Answer 7

你的意思是不是说你的程序中没有Form????
消息处理函数必须要使用窗体，如果没有form的话，可以自己注册类，然后用类建立一个窗体，再用Do + GetMessage做消息循环
你搜索一下“RegisterClass”，应该有很多例子的

Answer 8

有现成的Form不用自己创建Window，的确有个性，但是不觉得麻烦吗？

Answer 9

老实说，我做的程序有80%就是注册类滴~~~
我不是嫌弃VB的窗体，只是对它的类名不感兴趣，改类名的话VB我试过，很麻烦。。