och tänkte att man kan väll starta en tråd med databus
Regler
inga filer som raderar peronliga filer eller ställer till skada på operativsystemet
och inga bus som är permanenta
som t.e.x skapa 100000 mappar som ligger kvar på skrivbordet
eller t.e.x nått script som trycker konstant alt f4 och ligger i autostart
skriv en beskrivning vad buset gör
fel medelande om att det är fel på cd´n sen åker cd ut
varning om skadade kluster sen div fel medelanden
varning för att datorn är överhettad och datorn måste stängas av
datorn stängs av
kopiera texten nedan till antekningar byt filändelse till .vbs
sen är det bara att dubbel klicka och köra
MsgBox "Varning! Det är ett problem med din cd spelare.", 16, "Warning"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
end if
MsgBox "Varning! Scandisk har hittat skadade kluster på din hårdisk.", 16, "Warning"
MsgBox "fel i C:\Program\Windows Media Player\mplayer 2", 64, "fel!"
MsgBox "fel i c:\windows\system 32", 64, "fel!"
MsgBox "fel i c:\windows\", 64, "fel!"
MsgBox "fel i C:\Program\Outlook Express", 64, "fel!"
MsgBox "fel i c:\C:\Program\Messenger\msmsgs.exe", 64, "fel!"
MsgBox "Din dator är överhettad.", 16, "Warning"
MsgBox "Varning! din dator stängs ner omedelbart, för att förebygga allvarlig skada.", 16, "Warning"
For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
objPC.Win32Shutdown 1 + 4
Next
