Exiting Windows

[Nide_Elves]

Hi,
could anyone give me code for shutting down, restarting and logging off windows. This is the code I have at the moment but it only works when I load it from the project. It doesn't work as an application:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Private Sub Command1_Click()
Dim X As Long
If Combo1.ListIndex = 0 Then ' If restart option is selected
X = ExitWindowsEx(EWX_RESET, dwReserved)
ElseIf Combo1.ListIndex = 1 Then 'If Log off option is selected
X = ExitWindowsEx(EWX_LOGOFF, dwReserved)
ElseIf Combo1.ListIndex = 2 Then 'If Shut down option is selected
X = ExitWindowsEx(EWX_SHUTDOWN, dwReserved)
Else 'If Else
End If
End Sub

Thanks a million to anyone who replys

[RobDog888]

Try this. I think your last parameter is not populated with a value, dwReserved.

'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
    If msg = vbCancel Then End
    'reboot the computer
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

[Nide_Elves]

Thanks RobDogg, but this only reboots. I want to have it so you have three options of logout, shutdown and restart from a combo box. This is what i have for the command button:

Private Sub Command1_Click()
Dim X As Long
If Combo1.ListIndex = 0 Then ' If restart option is selected
X = ExitWindowsEx(EWX_RESET, dwReserved)
ElseIf Combo1.ListIndex = 1 Then 'If Log off option is selected
X = ExitWindowsEx(EWX_LOGOFF, dwReserved)
ElseIf Combo1.ListIndex = 2 Then 'If Shut down option is selected
X = ExitWindowsEx(EWX_SHUTDOWN, dwReserved)
Else 'If Else
End If
End Sub

Should i have code for the combo box?
This is the code i have by itself;its not attached to anything:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Im only new to VB and im only 14
Thanks again

Nide_Elves

[RobDog888]

Welcome to the world of programming.

The problem is the last parameter dwReserved. It is not used or
declared. Try this code. Works for me.

Option Explicit
'Change the combo1 style property to "2 - Dropdown list" from 
'the properties window manually.
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT
 
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
 
Private Sub Command1_Click()
    If Combo1.ListIndex = 0 Then ' If restart option is selected
        ExitWindowsEx EWX_RESET, 0&
    ElseIf Combo1.ListIndex = 1 Then 'If Log off option is selected
        ExitWindowsEx EWX_LOGOFF, 0&
    ElseIf Combo1.ListIndex = 2 Then 'If Shut down option is selected
        ExitWindowsEx EWX_SHUTDOWN, 0&
    End If
End Sub
 
Private Sub Form_Load()
    Combo1.AddItem "Restart Windows"
    Combo1.AddItem "Log off Windows"
    Combo1.AddItem "Shut down Windows"
    Combo1.ListIndex = 0
End Sub

HTH

[Nide_Elves]

Now, there's 2 problems:

No.1: It doesn't shutdown
No.2: It doesn't restart

Could this have anything to do with what windows i'm using?

This is making me REALLY angry

[RobDog888]

Try clearing the combo first and check out the requirements for the API.
allapi.net

Private Sub Form_Load()
    Combo1.ListItems.Clear
    Combo1.AddItem "Restart Windows"
    Combo1.AddItem "Log off Windows"
    Combo1.AddItem "Shut down Windows"
    Combo1.ListIndex = 0
End Sub

[RobDog888]

Here is a better way.
Show the actual Windows Shutdown dialog box and let the user
make the choice.

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
 
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    SHShutDownDialog 0
End Sub

[Nide_Elves]

Yes, yes, yes. Thanks, but I actually wanted to have the program customed, not the Shutdown dialog come up.

And so that the user has the choice of command.

Thanks for putting up with me

Nide

[manavo11]

http://www.jaredshelp.com/article65.htm