Private Sub Command10_Click()
If MsgBox("Wollen Sie den Computer wirklich Herunterfahren?", vbQuestion + vbYesNo, "Test fragt:") = vbYes Then
MsgBox "Aufwiedersehen!", vbExclamation, "Test meldet:"
Shell ("%windir%\system32\shutdown.exe /s /f /t 2")
End
Else
End If
End Sub
[b]Private Sub Command10_Click()
If MsgBox("Wollen Sie den Computer wirklich Herunterfahren?", vbQuestion + vbYesNo, "Test fragt:") = vbYes Then
MsgBox "Aufwiedersehen!", vbExclamation, "Test meldet:"
Shell ("shutdown -s -t 00")
End
End Sub[/b]
Visual Basic & Exel + Schleifen
Kennyger 08.03.2007 - 167 Hits - 8 Antworten
Probem bei Active Directory Replikation von Visual Basic aus
Bruno_Bayano 25.05.2007 - 84 Hits -
makros aktivieren
bangs 22.04.2008 - 90 Hits -
Wer kent sich im Visual Basic 2008 Express Edition aus
Black117 11.05.2008 - 80 Hits - 6 Antworten
visual basic minimieren
HugoHamburger 30.11.2009 - 123 Hits - 4 Antworten