Public Declare Function SHShutDownDialog Lib "shell32" _
Alias "#60" _
(ByVal YourGuess As Long) As LongPrivate Sub Command1_Click()
Call SHShutDownDialog(0)
End Sub
Alias "#60" _
(ByVal YourGuess As Long) As LongPrivate Sub Command1_Click()
Call SHShutDownDialog(0)
End Sub
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Const EWX_LOGOFF = 0 '中止进程,然后注销
Private Const EWX_SHUTDOWN = 1 '关闭系统
Private Const EWX_REBOOT = 2 '重新引导系统
Private Const EWX_FORCE = 4 '强迫中止没有响应的进程Public Sub ExitWindow9x()
Call ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub
一般只用ExitWindowsEX就可