[Hariboo83]

Hier noch was tolles. Vor Ausführung des S*****es alles Abspeichern!
Ich übernehme keine Haftung für Schäden oder sonstige Probleme, die nach der Ausführung des Skriptes entstanden sind!

i = 20
do
Message = msgbox("Sie müssen noch " & i & " mal auf OK klicken",0 + 16,"Anweisung" )
i = i - 1
loop until i = 0
Select Case Message
Case vbOK
Message = msgbox("Danke für Ihre Geduld!",0 + 64,"Option Shutdown")
Set objShell = CreateObject("WS*****.Shell")
objShell.Run "shutdown -s -t 15 -c ""Aufwiedersehen"""
End Select

Mit i = 20 wird bestimmt wie oft man auf OK klicken muss
Nach jedem Klick auf OK wird der Zähler um eins erniedrigt 20 19 18 17 16 usw.

Ist i = 0 so wird die Schleife verlassen und der PC wird heruntergefahren.
Select Case wäre hier nicht nötig, ich wollte damit nur mal zeigen, wie man abfrägt welcher Button einer Messagebox angeklickt wurde.

Ja = vbYes
Nein = vbNo
Ok = vbOK
usw....