Windos bzw PC abschalten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Windos bzw PC abschalten
von: Robert
Geschrieben am: 05.06.2002 - 11:38:40

Wie kann ich aus Excel Xp meinen PC mit Windows 2000 abschalten(herunterfahren)
mfg Robert

nach oben   nach unten

Re: Windos bzw PC abschalten
von: MKichael Scheffler
Geschrieben am: 05.06.2002 - 12:56:16

Hallo,

sicher nur über die API.

Gruß

Micha


nach oben   nach unten

Und warum verrätst Du ihm nicht den Code?
von: Woww - tolle Antwort
Geschrieben am: 05.06.2002 - 18:29:01

'

nach oben   nach unten

Hey - was soll das, kein Klarname und dann noch...
von: Michael Scheffler
Geschrieben am: 06.06.2002 - 09:50:20

...meckern. Ich denke, dass es mit API geht. Und den Code habe ich nicht.

Nun wäre der normale Gang, das man ins Internet schaut, z.B. Google. Und dann sucht. Ich habe das gerade eben mal gemacht und schauen wir mal bei "VB API Shutdown" z.B.:
http://www.vbsquare.com/api/tip385.html
http://www.vbsquare.com/api/tip179.html

Solche Besserwisser wie Du gehen mir auf den...

Gruß

Micha

nach oben   nach unten

Wem es interessiert der Code:
von: Robert
Geschrieben am: 06.06.2002 - 10:18:14

Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal wReserved&)

Sub abschalten()
Const abmelden = 0
Const herunterfahren = 1
Const neustart = 2
Const forciert = 4
Const abschalten = 8
Const kill = 16 ' (nur Windows 2000)

ok = LocalShutdown(abschalten + forciert)
If Not ok Then
MsgBox "Aktion misslungen"
End If
End Sub

Function LocalShutdown(modus)
Set instances = GetObject("winmgmts:{(Shutdown)}").InstancesOf("win32_operatingsystem")
For Each instance In instances
On Error Resume Next
resultat = -1
resultat = instance.Win32Shutdown(modus, 0)
On Error GoTo 0
' ergibt wahr, wenn alles ok lief
LocalShutdown = (resultat = 0)
Exit For
Next
End Function

mfg Robert

nach oben   nach unten

@ MIcha -Wenn Du keine Antwort hast,
von: ist das kein Problem
Geschrieben am: 06.06.2002 - 19:14:32


Dann fülle aber den Thread auch nicht mit Pseudoantworten.
Ich denke, Du liest Deinen Namen hier im Forum nur sehr gern und führst eine Statistik, wie oft er erscheint.
Aber meistens, das muss ich zugeben, gibst Du Dir ja richtig Mühe.

Viele Grüsse


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Belegte Zeilen Zählen"