mfg Robert
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