Enkla men roliga upptåg med en VBScript (1 / 3 steg)
Steg 1: Att göra "virus"
____________________________________________________________________________
MsgBox "datorn har smittats av ett virus", 16, "varning!"
Dim x, ja, nej
x = Msgbox ("viruset har smittat hårddisk (C:). Borttagning av viruset kommer att kräva fullständig formatering av hårddisk (C:). Vill du formatera hårddisk (C:)?", 52,"varning!")
om x = 6 då
Dim låda
Box = Msgbox ("formatering av hårddisk (C:) komplett. För att fungera korrekt datorn måste startas om, vill du starta om nu?", 36,"formatering har slutförts")
Om rutan = 6 då
MsgBox "Fatal error, kod 08 x 48631643. B-7 ", 16,"FEL"
MsgBox "skojar bara, det var ett skämt, men jag skrämma dig inte jag? Héhé... ", 64,"Som GillesM95"
slut om
Om rutan = 7 då
MsgBox "Fatal error, kod 08 x 48631643. B-7 ", 16,"FEL"
MsgBox "skojar bara, det var ett skämt, men jag skrämma dig inte jag? Héhé... ", 64,"Som GillesM95"
slut om
slut om
om x = 7 då
MsgBox "Fatal error, kod 08 x 48631643. B-7 ", 16,"FEL"
MsgBox "skojar bara, det var ett skämt, men jag skrämma dig inte jag? Héhé... ", 64,"Som GillesM95"
slut om
___________________________________________________________________________
Spara filen någonstans där ditt "offer" inte kommer se det.
Du måste spara det som en .vbs fil, inte .txt
Till exempel: Klicka på Arkiv -> Spara som -> gå till din mapp Val -> namn det
example.vbs
under dessa, kommer det att säga: spara som: textfil (.txt).
Du måste ändra det till alla filer (*. *)
Spara din
Om du inte helt förstår titta bara på bilden nedan och du kommer att förstå.