27 | 05 | 2017

Shut Down Computer

    Private Const EWX_SHUTDOWN As Long = 1
    Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

    Sub ShutDownPC()

        '***************************************
        '**** Code from VisibleVisual.com ******
        '***************************************
        ExitWindowsEx(EWX_SHUTDOWN, 0&)
    End Sub
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2262531
Latest Articles