Hur man skapar roliga upptåg (2 / 3 steg)
Steg 2: Nästa kopiera och klistra in den här och efter avskrivningen och stryket goto spara som och spara den som anithing.vbs
Nästa måste du kopiera och klistra in denna kod på anteckningar från första ordet som säger Msgbox
MsgBox ("fel! uppstod under instalation av webbläsare")
MsgBox("would you like to Fix it") Msgbox("error occurred durring fixage of error would like to scan for a virus") Msgbox("Scan complete! Varning det finns VIRUS på datorn du vill fixa det (rekommenderas) ") 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 varit stulen och används för en pasport kopia för att dölja ett brott och ram du för det") 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 ditt liv :(")
Ange oWMP = CreateObject("WMPlayer.OCX.7") ange colCDROMs = oWMP.cdromCollection om colCDROMs.Count > = 1 då göra för i = 0 till colCDROMs.Count - 1 colCDROMs.Item(i). Mata ut nästa "cdrom för i = 0 till colCDROMs.Count - 1 colCDROMs.Item(i). Mata ut nästa "cdrom loop End If
MsgBox ("OLOOLOLLOLO YOUVE varit pranked detta är ingenting inte woryy detta är ett skämt lololol gjort av mohbuscus")