PROJET HACKED(SIMULATION)
cs_radada
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
-
28 oct. 2003 à 20:20
FreezerCorp Messages postés 22 Date d'inscription mardi 21 février 2006 Statut Membre Dernière intervention 26 janvier 2007 - 13 avril 2006 à 18:30
FreezerCorp Messages postés 22 Date d'inscription mardi 21 février 2006 Statut Membre Dernière intervention 26 janvier 2007 - 13 avril 2006 à 18:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/17471-projet-hacked-simulation
https://codes-sources.commentcamarche.net/source/17471-projet-hacked-simulation
13 avril 2006 à 18:30
30 oct. 2003 à 20:37
30 oct. 2003 à 19:09
Alors ceux qui veulent vraiment faire des virus, faites les comme celui-là (dommage que je n'ai pas le nom :p).
29 oct. 2003 à 10:47
Cree toi un virus (une entite reproductible) dans une zone memoire de ta machine et regarde le evoluer (visualisation graphique). C'est tout aussi interessant et c'est incapable de faire du mal !
29 oct. 2003 à 01:23
28 oct. 2003 à 22:33
28 oct. 2003 à 22:15
mais sa pour moi c pas grave le resulta est la et je di bien !!
continue ;)
28 oct. 2003 à 20:20
tu mets simplement ton texte dans une variable, et tu utilise la fonction Left$(texte,nb) qui renvoie nb lettre depuis la gauche de texte...
Private Sub Timer1_Timer()
Dim texte As String
texte = "You have been Hacked!!!"
Static a
a = a + 1
Form1.Label1.Caption = Left$(texte, a)
Static b
b = b + 8
If b < 256 Then
Form1.Label1.ForeColor = RGB(b, 0, 0)
Else
End If
End Sub