Stap 2: Vervolgens Kopieer en plak dit en na kopiëren en plakken van goto opslaan als en sla het op als anithing.vbs
vervolgens moet u Kopieer en plak deze code op de Kladblok vanaf het eerste woord dat Msgbox zegt
MsgBox ("fout! opgetreden tijdens instalation van webbrowser")
MsgBox("would you like to fix it") Msgbox("error occurred durring fixage of error would like to scan for a virus") Msgbox("Scan complete! WAARSCHUWING uw COMPUTER een VIRUS heeft zou u willen repareren (aanbevolen) ") Msgbox("virus reqests to send your important information to the hackers server press the x or ok to cancel") Msgbox("importing banking details to hackers server...") Msgbox("importing passport details to hackers location...") Msgbox("all your important secret ducuments details addres and other details required for identity theft have been succsefully transported") Msgbox("you shall not be able to use your computer anymore") Msgbox("your identy has gestolen en gebruikt voor een kopie van het paspoort te verbergen van een misdrijf en u voor het frame") Msgbox("£6000,900,100 has been withdrawn from your bank account") Msgbox("you have been deleted as a person from the home office servers") Msgbox("your house is now owned to the hacker Mr.Bangojang Bambadchi") Msgbox("your computer and your whole life will be destroyd") Msgbox("this virus is called deathstreackbuscus and when you see me its too late") Msgbox("your pc will malfunction in 10!... ") Msgbox("your pc will malfunction in 9!...") Msgbox("your pc will malfunction in 8!...") Msgbox("your pc will malfucntion in 7!...") Msgbox("your pc will malfucntion in 6!...") Msgbox("your pc will malfucntion in 5!...") Msgbox("your pc will malfunction in 4!...") Msgbox("your pc will malfunction in 3!...") Msgbox("your pc will malfunction in 2!...") Msgbox("your pc will malfucntion in 1!...") Msgbox("your pc will malfucntion in 0!...") Msgbox("Good bye my owner you destroyd me and uw leven :(")
Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count > = 1 dan doe want ik = 0 tot colCDROMs.Count - 1 colCDROMs.Item(i). Volgende uitwerpen ' cdrom For i = 0 tot colCDROMs.Count - 1 colCDROMs.Item(i). Volgende uitwerpen ' cdrom lus End If
MsgBox ("OLOOLOLLOLO YOUVE been pranked dit is niets niet woryy dit is een grap lololol gedaan door mohbuscus")
