Schritt 1: Herstellung des "Virus"
____________________________________________________________________________
MsgBox "des Computers wurde von einem Virus infiziert", 16, "Achtung!"
Dim X, ja, Nein
X = Msgbox ("Virus infiziert Festplatte (C:). Löschen des Virus erfordert vollständige Formatierung der Festplatte (C:). Möchten Sie Festplatte (C:) formatieren?", 52,"Achtung!")
Wenn X = 6 then
Dim-box
Box = Msgbox ("Festplatte (C:) Formatierung abgeschlossen. Um die Funktion korrekt muss Neustart des Computers, möchten Sie jetzt neu starten?", 36,"Formatierung abgeschlossen wurde")
Wenn Feld = 6 then
MsgBox "Fatal Error, Code 08 x 48631643. B-7 ", 16,"FEHLER"
MsgBox "nur ein Scherz, das war ein Witz, aber ich Sie erschrecken habe ich nicht? Héhé... ", 64,"Made by GillesM95"
beenden, wenn
Wenn Feld = 7 then
MsgBox "Fatal Error, Code 08 x 48631643. B-7 ", 16,"FEHLER"
MsgBox "nur ein Scherz, das war ein Witz, aber ich Sie erschrecken habe ich nicht? Héhé... ", 64,"Made by GillesM95"
beenden, wenn
beenden, wenn
Wenn X = 7 then
MsgBox "Fatal Error, Code 08 x 48631643. B-7 ", 16,"FEHLER"
MsgBox "nur ein Scherz, das war ein Witz, aber ich Sie erschrecken habe ich nicht? Héhé... ", 64,"Made by GillesM95"
beenden, wenn
___________________________________________________________________________
Speichern Sie diese Datei irgendwo wo Ihr "Opfer" es nicht sehen
Du musst es als VBS-Datei, nicht .txt speichern
Zum Beispiel: Klicken Sie auf Datei -> Speichern als -> Gehe zu Ihrem Ordner der Wahl -> name it.
example.vbs
darunter wird es sagen: Speichern als: Textdatei (.txt).
Sie haben, dies zu ändern, alle Dateien (*. *)
Dann speichern Sie die Datei
Wenn Sie nicht vollständig verstehen, schauen Sie sich das unten stehende Bild und Sie werden verstehen.