Stap 1: Het maken van het "virus"
____________________________________________________________________________
MsgBox "uw computer is geïnfecteerd door een virus", 16 "Warning!"
Dim x, ja, nee
x = Msgbox ("Virus is geïnfecteerd door harde schijf (C:). Verwijdering van het virus zal vereisen volledige opmaak van harde schijf (C:). U wil formatteren harde schijf (C:)?", 52,"Warning!")
Als x = 6 then
Dim vak
vak = Msgbox ("harde schijf (C:) volledige opmaak. Om te kunnen functioneren correct uw computer opnieuw moet opstarten, would you like to nu opnieuw opstarten?", 36,"opmaak is voltooid")
als vak = 6 then
MsgBox "Fatal error, code 08 x 48631643. B-7 ", 16"FOUT"
MsgBox "Just kidding, dit was al een grap, maar ik schrikken u niet? Héhé... ", 64,"Made by GillesM95"
eind als
als vak = 7 then
MsgBox "Fatal error, code 08 x 48631643. B-7 ", 16"FOUT"
MsgBox "Just kidding, dit was al een grap, maar ik schrikken u niet? Héhé... ", 64,"Made by GillesM95"
eind als
eind als
Als x = 7 then
MsgBox "Fatal error, code 08 x 48631643. B-7 ", 16"FOUT"
MsgBox "Just kidding, dit was al een grap, maar ik schrikken u niet? Héhé... ", 64,"Made by GillesM95"
eind als
___________________________________________________________________________
Sla dit bestand ergens waar je "slachtoffer" niet zien
u moet het opslaan als een .vbs bestand, niet .txt
Bijvoorbeeld: Klik op Bestand -> opslaan als -> Ga naar uw omslag van keus -> naam
example.vbs
onder dat, het zal zeggen: opslaan als: tekstbestand (.txt).
hebt u om dat te veranderen op alle bestanden (*. *)
Sla uw bestand
Als u niet volledig begrijpt kijk maar naar de foto hieronder en je zult begrijpen.
