如何在关机时执行一程序？

Question

开机时运行可以用代码改注册表，关机时运行在2000/XP等中可以通过控制面板中的某个管理工具来手动实现，怎么能用代码实现呢？

Answer 1

''模块代码
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 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  Public Const GWL_WNDPROC = (-4)
  Public Const WM_ENDSESSION = &H16
  Public Const WM_QUERYENDSESSION = &H11  Public preWinProc As Long  Public Function wndproc(ByVal hwnd As Long, ByVal Msg As Long, _
                          ByVal wParam As Long, ByVal lParam As Long) As Long
  If Msg = WM_QUERYENDSESSION Then
     Debug.Print "QryEnd", wParam, lParam
  Else
      If Msg = WM_ENDSESSION Then
         If wParam <> 0 Then '
            '正在关机.
            '在这里执行
         End If
      End If
  End If
  wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
  End Function
'窗体代码.
Private Sub Form_Load()
  Dim ret As Long
  '记录原本的Window Procedure的位址
  preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
  '设定form的window Procedure到wndproc
  ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
End SubPrivate Sub Form_Unload(Cancel As Integer)
  Dim ret As Long
  '取消Message的截取，而使之又只送往原来的Window Procedure
  ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
End Sub

Answer 2

关机时,Windows会传依序送出WM_QUERYENDSESSION的讯息给每个进程,只要捕捉WM_QUERYENDSESSION消息就知道关机

Answer 3

如果我们关机或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中则CheckwParam = 0 菜单False ，0菜单True)，说到这里大概就知道该如何做啦，程序如下：’以下在Form
Private Sub Form_Load()
Dim ret As Long
’记录原来的Window Procedure的位址
preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
’设定form的window Procedure到wndproc
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf wndproc)
End SubPrivate Sub Form_Unload(Cancel As Integer)
　Dim ret As Long
　’取消Message的截取，而使之又只送往原来的Window Procedure
　ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
　’这里只是要看看用关机的方式结束程序时，会不会执行到这里
　Dim fno As Long
　fno = FreeFile
　Open "c:\tt2" For Append As fno
　Print #fno, "ccc" + vbCrLf
　Close #fno
End Sub’以下在.BasOption ExplicitDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 LongPublic Const GWL_WNDPROC = (-4)
Public Const WM_ENDSESSION = &H16
Public 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 Long
If Msg = WM_QUERYENDSESSION Then
　Debug.Print "QryEnd", wParam, lParam
Else
　If Msg = WM_ENDSESSION Then
　　If wParam 0 Then ’代表将顺利关机或LogOff，这时便得做正常结束程序的操作
　　　　Dim fno As Long
　　　　Open "c:\ttt" For Output As #1
　　　　Print #1, "hahcccc5"
　　　　Close #1
　　End If
　End If
End If
’将之送往原来的Window Procedure
wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
End Function

Answer 4

哎，如果要始终开个程序在那里检测是否关机。VB的标准控件SysInfo的PowerQuerySuspend可以直接实现。我想楼主要的不是这个，而是系统自动启动某个程序吧。
顶下，期待高手。

Answer 5

开机执行一个程序，这个程序用来安装全局钩子，然后就退出。用全局钩子监视消息循环即可
------------
/这个应该比运行个程序还占系统吧？全局钩子又不是VB这一种语言可以写的。
消耗资源时肯定的，除非不监视系统，把关机函数改了，用apihook,晕了

Answer 6

个人认为用捕捉WM_QUERYENDSESSION的方法不太保险，因为如果有其他程序使用指定了EXW_FORCE的ExitWindowEx来关闭计算机，那么上面所说的方法就失效了。
但不能开机执行，因为若是由于系统非法退出或断电，这些信息还是用的着的。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
按楼主的要求，我想在开机时运行或许也可以的，关键是如何判断电脑是正常退出还是“非法退出或断电”，由于不清楚楼主的实际情况，所以也不好说