Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Tipp: Win runterfahen, ...
Autor: anfänger
Datum: 20.01.03 16:08
ich finde den tipp klasse, nur leider funktionniert er nicht. hier mein code: ____________________________________________________________________ Option Explicit Private Declare Function ExitWindowsEx Lib "user32" _ (ByVal uFlags As Long, ByVal dwReserved As Long) As Long Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 ____________________________________________________________________ Private Sub Combo1_Click() Dim Result As Long Select Case cmoWin.ListIndex Case 0 Result = ExitWindowsEx(EWX_SHUTDOWN, 0) Case 1 Result = ExitWindowsEx(EWX_REBOOT, 0) End Select

Tipp: Win runterfahen, ...	71	anfänger	20.01.03 16:08
Re: Tipp: Win runterfahen, ...	181	Marcus W	20.01.03 16:53
Re: Tipp: Win runterfahen, ...	40	anfänger	20.01.03 16:57

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen