Envoi de mails anonymes

Télécharger le projet
Commenter

Description

Juste un petit programme qui envoie des e mails venant de l adresse que l on veut.Ca marche en envoyant les commandes smtp tout seul au lieu d'utiliser un webmail ou outlook.

Source / Exemple : 


' SMTP_SERVER est le serveur a utiliser pour envoyer le message
' Souvent mail.FAI.fr ou smtp.FAI.fr
' pour club-internet :
Const SMTP_SERVER = "mail.club-internet.fr"

Private Sub Command1_Click()
    ' Protocole SMTP sur le port 25
    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = SMTP_SERVER
    ' On se connecte au serveur
    Winsock1.Connect
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Winsock1.Close
    MsgBox "Envoi d'e-mails anonymes par MetalDwarf" & vbCrLf & vbCrLf & "MetalDwarf 2003", vbInformation
End Sub

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 " & Text4.Text & vbCrLf
    Send(2) = "MAIL FROM:" & "<" & Text2.Text & ">" & vbCrLf
    Send(3) = "RCPT TO:" & "<" & Text3.Text & ">" & vbCrLf
    Send(4) = "DATA" & vbCrLf
    Send(5) = "from: " & Chr$(34) & Text1.Text & Chr$(34) & "<" & Text2.Text & ">" & vbCrLf
    Send(6) = "to: " & "<" & Text3.Text & ">" & vbCrLf
    Send(7) = "subject: " & Text5.Text & vbCrLf & vbCrLf
    Send(8) = Text6.Text & 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

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "Erreur de communication : " & Description
    Winsock1.Close
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (MetalDwarf)