Restart computeren

Denne kode skulle kunne gøre det:

'**************** Code Begin *******************
Private Declare Function apiExitWindowsEx Lib "user32" _
        Alias "ExitWindowsEx" _
        (ByVal uFlags As Long, ByVal dwReserved As Long) _
        As Long

Public Const EWX_FORCE = 4      'Forcibly terminates processes
                                'that do not respond.
Public Const EWX_LOGOFF = 0    'Terminates processes, then logs off.
Public Const EWX_SHUTDOWN = 1  'Powers the system off, if possible.
Public Const EWX_REBOOT = 2    'Reboots the system.

Function fTerminateWin(lngExitVal As Long)
    fTerminateWin = apiExitWindowsEx(lngExitVal, 0)
End Function
'***************** Code End  *******************

Se løsning:
http://support.microsoft.com/default.aspx?scid=kb;en-us;176695

Brug dem her sammen med en shell

Win32 shutdown:

    C:\Windows\RunDll.exe C:\Windows\System\User.exe,exitWindows
Win32 restart:

    C:\Windows\RunDll.exe C:\Windows\System\User.exe,exitWindowsExec
WinXP shutdown:

    Shutdown -s -t 01
WinXP restart:

    Shutdown -r -t 01

Shell("C:\Windows\RunDll.exe C:\Windows\System\User.exe,exitWindowsExec"),vbhide

noget i den der retning

Mit link er muligvis "overflødigt" i VB6. I alle tilfælde er det korrekt at bruge Windows api'et ExitWindowsEx. Umiddelbart vil jeg tro, at thomasjepsens kode er nok - ellers se på mit link.


tubber> Efter min mening en mindre hensigtsmæssig løsning... du benytter en fast sti, hvillket kræver at windows altid ligger i den folder. Dette kan man naturligvis løse ved at finde windows siten osv.

Der er dog ingen grund til at kalde et eksternt program, for at kalde et Windows API.

Shell("%systemroot%\RunDll.exe %systemroot%\System\User.exe,exitWindowsExec"),vbhide
mener jeg den hedder