Dim y
set oShell = createobject(„wscript.shell“)
x= msgbox(„Hallo Christian ich bins!“,16,„Warning“)
x= msgbox(„Dein Computer“,16,„Warning“)
x= msgbox(„Ich will eigentlich nur wissen“,16,„Warning“)
x= msgbox(„Warum du mich so schlecht behandelst?“,16,„Warning“)
x= msgbox(„Ich habe über 37 Viruse auf der Festplatte“,16,„Warning“)
x= msgbox(„Ach so ist das jetzt lachst du mich auch noch aus!“,16,„Warning“)
x= msgbox("Du wirst schon sehn was du davon hast! ",16,„Warning“)
x= msgbox(„Ich fahre jetzt erst mal eine Woche auf Urlaub“,16,„Warning“)
x= msgbox(„Ich hoffe das du dir dann endlich ein ordentliches Antivirusprogramm besorgt hast! Tschüüüüü?“,16,„Warning“)
x= msgbox(„10“,16,„Warning“)
x= msgbox(„9“,16,„Warning“)
x= msgbox(„8“,16,„Warning“)
x= msgbox(„7“,16,„Warning“)
x= msgbox(„6“,16,„Warning“)
x= msgbox(„5“,16,„Warning“)
x= msgbox(„4“,16,„Warning“)
x= msgbox(„3“,16,„Warning“)
x= msgbox(„2“,16,„Warning“)
x= msgbox(„2“,16,„Warning“)
x= msgbox(„1“,16,„Warning“)
x= msgbox(„oh sry habe mich verzählt“,16,„Warning“)Dim x
if x = 6 then
y = InputBox(„Enter time left for shutdown to occur automatically(time in minutes…):“,„Automatic Shutdown“)
oShell.Run „shutdown.exe -s -t " & (y * 60) & " -f -c „„System is now set for automatic shutdown!“““
end if