"Virus" indétectable et drôle a la fois !
Comme le Virtual Basic Script est intégré à windows, n'importe quel script en .vbs peut se lancer sans problème !
Il s'agit ici d'une fenêtre qui s'ouvre vous disant que votre ordinateur à faim, le lecteur CD s'ouvre puis se ferme après 2 secondes, un nouveau message apparait et signale que vous n'avez pas donné à manger à votre ordinateur, ce pour quoi il va s'éteindre pour marquer son mécontentement, et il s'éteint !
Ouvrez notepad ou autre logiciel d'édition de texte, copiez collez ceci, enregistrez le puis renommez le en "blague.vbs" par exemple mettez le ensuite sur le bureau d'un ami et regardez sa tête
Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Popup "Votre ordinateur a faim, veuillez insérer une banane dans votre lecteur...",30
Set oShell=Nothing
Set owmp = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = owmp.cdromCollection
For d = 0 To colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next
wscript.sleep 2000
For d = 0 to colCDROMs.Count -1
colCDROMs.Item(d).Eject
Next
Set owmp = Nothing
Set colCDROMs = Nothing
Dim oShell2
Set oShell2 = CreateObject("WScript.Shell")
oShell2.Popup "Vous n'avez pas inséré de banane, votre ordinateur n'est pas content, il va s'éteindre dans 5 secondes",5
Set oShell2=Nothing
Dim objShell, strComputer, strInput
Dim strShutdown
strShutdown = "shutdown -s -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown
Articles
