Test de connexion au SMTP de plusieurs utilisateurs

Question

Bonsoir,

J'ai plusieurs utilisateurs sur mon serveur smtp et je souhaiterai m'assurer qu'il n'utilise pas le mot de passe "motdepasse". D'où je créer un programme qui teste utilisateur avec utilisateur l'accès au serveur smtp avec le motdepasse.

Mais voilà je n'arrive pas à traiter tout les utilisateurs. En fait, dans mon programme, il ne traite que le premier... comment faire pour qu'il traite tout mes utilsateurs.

Voici l'ensemble du code (niveau débutant).
--------------------------------------------
Private Sub Form_Load()
Form1.Winsock1.Close
Form1.Winsock1.LocalPort = 0
Form1.Winsock1.Connect "smtp.antone.XXXX.XX.XXXXXXX.XX", 110
End Sub
Private Sub winsock1_connect()
etat = Winsock1.State

If etat = 7 Then
    Form1.List1.AddItem "Connexion etablie sur le serveur SMTP"
    '----Parcourir le fichier des utilisateurs ligne par ligne
    '----en testant l'accès à la messagerie
    Open "c:\fichierUSER.txt" For Input As #1
    While Not EOF(1)
        Input #1, a$
        Winsock1.SendData "USER " & a$ & vbCrLf
        Form1.List1.AddItem a$
        Winsock1.SendData "PASS motdepasse" & vbCrLf
        Winsock1.SendData "QUIT" & vbCrLf 
' JE PENSE QU'IL Y A UN TRUC A FAIRE ICI...       
    Wend
    Close #1
Else
    MsgBox "Problème de connexion rencontré"
    Form1.List1.AddItem "Échec de connexion au serveur SMTP"
    Exit Sub
End If
End Sub
--------------------------------------------
Private Sub winsock1_dataArrival(ByVal bytestotal As Long)
Dim Strdata As String
Dim recherchePlus1 As Integer
Dim recherchePlus2 As Integer

Winsock1.GetData Strdata

If Form1.Text1.Text = "" Then
    Form1.Text1.Text = Text1.Text & Strdata
    recherchePlus1 = InStr(1, Strdata, "+")
Else
    Form1.Text2.Text = Text2 & Strdata
    recherchePlus2 = InStr(42, Strdata, "+")
    If recherchePlus2 = 42 Then
        Form1.List1.Text = "L'utilisateur doit changer son mot de passe" & vbCrLf
        Form1.List3.AddItem Form1.List1.List(1) & "@XXXX.XX.XXXXXXX.XX"
    End If
End If
End Sub
--------------------------------------------
Private Sub form_queryunloas(cancel As Integer, unloadmode As Integer)
Winsock1.Close
End Sub
--------------------------------------------
Merci d'avance.
@ntone reloaded!!!

cyberangel02 · Answer

Si vous avez besoin d'informations supplémentaires n'hésitez pas à demander.

Bonne journée !

@ntone reloaded!!!

Test de connexion au SMTP de plusieurs utilisateurs

1 réponse

Votre réponse

Discussions similaires