PC runterfahren

[Brainscan]

Ich möchte ein kleines progi schreiben(VB), das wenn die passes dafür 3 mal falsch eingetragen wurden der Rechner runterfährt und wieder hoch fährt. wie könnte ich das schreiben, also den Befehl zum neu starten?

Brainscan

 

[Mr.Bit]

Mahlzeit Brainscan,

die gesuchte WinAPI-Funktion nennt sich ExitWindowsEx

' Deklaration (dwReserved immer 0, wird nur bei XP ausgewertet)
Private Declare Function ExitWindowsEx Lib \"user32\" _
         (ByVal dwOptions As Long, _
          ByVal dwReserved As Long) As Long

' Flags für Parameter dwOptions
Private Const EWX_LogOff As Long = 0
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Const EWX_FORCE As Long = 4
Private Const EWX_POWEROFF As Long = 8

Auf Win9x sollte obige Funktion einwandfrei arbeiten.
Unter NT/2000 muß, laut Hilfe, vorher die Sicherheitseinstellung SE_SHUTDOWN_NAME gesetzt werden (natürlich nur wenn man keine Admin-Rechte hat).

CU,
- Bit'chen