sicher nur über die API.
Gruß
Micha
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
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
Viele Grüsse
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen