Étape 1: Faire le « virus »
____________________________________________________________________________
MsgBox « votre ordinateur a été infecté par un virus », 16, « attention! »
Dim x, oui, non
x = Msgbox ("Virus a infecté disque dur (C:). Suppression du virus nécessitera un formatage complet du disque dur (C:). Vous souhaitez formater le disque dur (C:)?", 52, « avertissement »!)
Si x = 6 then
boîte de Dim
boîte = Msgbox ("formatage du disque dur (C:) complet. Pour pouvoir fonctionner correctement votre ordinateur doit redémarrer, vous souhaitez redémarrer maintenant?", 36, « mise en forme est terminée")
Si boîte = 6 then
MsgBox "erreur fatale, code 08 x 48631643. B-7 ", 16,"ERROR"
MsgBox "je plaisante, c’était toute une blague, mais je vous peur je ne ? Héhé... ", 64, « Made by GillesM95 »
fin si
Si boîte = 7 then
MsgBox "erreur fatale, code 08 x 48631643. B-7 ", 16,"ERROR"
MsgBox "je plaisante, c’était toute une blague, mais je vous peur je ne ? Héhé... ", 64, « Made by GillesM95 »
fin si
fin si
Si x = 7 then
MsgBox "erreur fatale, code 08 x 48631643. B-7 ", 16,"ERROR"
MsgBox "je plaisante, c’était toute une blague, mais je vous peur je ne ? Héhé... ", 64, « Made by GillesM95 »
fin si
___________________________________________________________________________
Puis enregistrez ce fichier quelque part où votre « victime » ne sera pas le voir
vous devez l’enregistrer comme un fichier .vbs, pas de .txt
Par exemple : cliquez sur fichier -> Enregistrer sous -> Allez dans votre dossier de choix -> le nom
Example.vbs
au-dessous, il va dire : enregistrer sous : fichier texte (.txt).
Il faut changer cela pour tous les fichiers (*. *)
Puis enregistrez votre fichier
Si vous ne comprenez pas complètement, il suffit de regarder l’image ci-dessous et vous comprendrez.