Sluk, genstart, log af

Du kan bruge dette simple kode:

  Const EWX_LogOff As Long = 0
      Const EWX_SHUTDOWN = 1
      Const EWX_REBOOT = 2
      Const EWX_FORCE = 4
      Private Declare Function ExitWindows _
              Lib "User32" Alias "ExitWindowsEx" _
              (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
     
    Private Sub Command1_Click()

          'Shut down windows
          ExitWindows EWX_SHUTDOWN, &HFFFFFFFF
     
     
    End Sub
     
    Private Sub Command2_Click()
   
         
          ExitWindows EWX_REBOOT, &HFFFFFFFF
     
     
    End Sub

som er hentet fra: http://code.dreamincode.net/snippet90.htm

Der er også denne her:

shell "shutdown.exe - l" logoff
eller
shell "shutdown.exe - r" Restart