Comment creer des faux virus pour delirer

Spy_foX Messages postés 14 Date d'inscription mardi 23 janvier 2007 Statut Membre Dernière intervention 24 janvier 2007 - 24 janv. 2007 à 14:56
 shadow - 9 mars 2015 à 18:51
salut a tous je voudrait savoir comment creer un faux virus pour faire peur a mes potes

11 réponses

theo77186 Messages postés 2 Date d'inscription mercredi 17 mars 2010 Statut Membre Dernière intervention 25 octobre 2010 5
25 juin 2010 à 19:19
Voila j'ai un fauxvirus qui ejecte tous les lecteurs puis qui va creer 5000 dossiers dans c:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set CDCol = oWMP.cdromCollection
If CDCol.Count >= 1 Then
For i = 0 To CDCol.Count - 1
CDCol.Item(i).Eject
Next  ' cdrom
End If
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 1 To 1000
If Not fso.FileExists("C:" & i) Then
fso.CreateFolder "C:" & i
End If
Next
6
theo ton truc ça s'applique sur windows form????

explique moi un peu
0
Rejoignez-nous