Luk og genstart !

Brug følgende:

Const ESHUTDN = 1
Const EREBOOT = 2
Const EFORCE = 3

Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub LukNed()
  res = ExitWindowsEx(ESHUTDN, 0)
End Sub

Private Sub Genstart()
  res = ExitWindowsEx(EFORCE Or EREBOOT, 0)
End Sub

kaffe

her har jeg også til at genstarte i msdos:
lResult = FileExists(WinPath + \"\\Afslut, og gå til Dos.pif\") \'sikker på at filen findes

If lResult = False Then \'filen fandes ikke
  lResult = FileExists(WinPath + \"\\dosstart.bat\") \'filen findes, eller findes ikke?
If lResult = True Then \'filen blev fundet ;)
      lResult = Shell(WinPath + \"\\dosstart.bat\", 1) \'starter
  Else
      MsgBox \"Denne program kan ikke finde dos filerne.\" + Chr(10) + Chr(10) + \"Vær opmærksom på at du skal bruge dem\", vbCritical \'ERR, BLUEsCREEN..?
End If
Else                                                \'ellers
  lResult = Shell(WinPath + \"\\Exit To Dos.pif\", 1) \'1,2
End If