by Waty Thierry (60 Submissions)
Category: Windows System Services
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 30th March 1999
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Exit / Shutdowns Windows
API Declarations
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 13/10/98
' * Time : 10:24
' * Module Name : Windows_Module
' * Module Filename : Windows.bas
' **********************************************************************
' * Comments :
' * Exit Windows
' **********************************************************************
' *** Exit windows with one of the following results. dwReserved = 0
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EXIT_LOGOFF = 0
Public Const EXIT_SHUTDOWN = 1
Public Const EXIT_REBOOT = 2
VBcoders
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 13/10/98
' * Time : 10:24
' * Module Name : Windows_Module
' * Module Filename : Windows.bas
' **********************************************************************
' * Comments :
' * Exit Windows
' **********************************************************************
Public Sub ShutDownWindows(ByVal uFlags As Long)
' * Programmer Name : Waty Thierry
' * Web Site : www.geocities.com/ResearchTriangle/6311/
' * E-Mail : [email protected]
' * Date : 26/11/98
' * Time : 15:05
' * Module Name : Lib_Module
' * Module Filename : Lib.bas
' * Procedure Name : ShutDownWindows
' * Parameters :
' * ByVal uFlags As Long
' **********************************************************************
' * Comments : Exit the Windows
' *
' *
' **********************************************************************
Call ExitWindowsEx(uFlags, 0)
End Sub
