Test d'email sur gmail

SPH · Message par **SPH** » lun. 31/mai/2010 18:10

venom a écrit :
SPH a écrit :Ton code est EXTRA !!!! THxxxxxxxxxxxxxxxxxxxxx
EXACTEMENT ce qui me fallait !
PS : j'ai dis ORANGE et ca a marché !!!
de rien c'est là pour sa

donc mon code fonctionne chez toi avec orange en smtp ???
@++

Oui ton code fonctionne parfaitement avec orange en ta methode qui doit etre smtp.
Je viens d'essayer avec FREE et ca n'a pas marché. Donc, il faut probablement renseigner le bon FAI.

2 kouechtieuns :
1> Un code existe pour analyser le FAI du mec qui lance le programme ?
2> plusieurs pieces jointes sont possibles ? (une seule actu apparement)

venom · Message par **venom** » lun. 31/mai/2010 18:15

oui plusieurs pièces jointes sont possibles, je me suis pas trop pris la tête dessus.

ont peut pas tout avoir

pour ce qui est du FAI
soit bidouiller avec des sites d'ip genre http://www.mon-ip.com/ qui renvoie le FAI

si non via windows je ne sais pas. Idée a creuser

@++

SPH · Message par **SPH** » lun. 31/mai/2010 18:22

venom a écrit :oui plusieurs pièces jointes sont possibles, je me suis pas trop pris la tête dessus. ont peut pas tout avoir

pour ce qui est du FAI
soit bidouiller avec des sites d'ip genre http://www.mon-ip.com/ qui renvoie le FAI

si non via windows je ne sais pas. Idée a creuser

Ok
Pour plusieurs PJ, je saurais faire. Pour connaitre le FAI, ouai, c'est une bonne idée.

ps : tu n'aurais pas sous la main une solution miracle de client et serveur tcp un peu developpé ?

venom · Message par **venom** » lun. 31/mai/2010 18:30

SPH a écrit :ps : tu n'aurais pas sous la main une solution miracle de client et serveur tcp un peu developpé ?

sa va couter cher sa

un debut de msn serveur / client

a executé coté serveur avec port adéquate ouvert :

Code : Tout sélectionner

;- Init Variables
Enumeration
  #server
  #info
  #msg
  #send
  #users
  #enter
  #clientinfo
  #txt1
  #port
  #ok
  #textepseudo
  #ComboBox_0
  #textepseudo_1
  #pseudo
  #options
  #options1
  
  #Frame_2
  #smile1
  #smile2
  #smile3
  #smile4
  #smile5
  #smile6
  #smile7
  #smile8
  
  #Frame_0
  #couleur_texte_r
  #couleur_texte_g
  #couleur_texte_b
  
  #Frame_1
  #couleur_texte_rf
  #couleur_texte_gf
  #couleur_texte_bf
EndEnumeration

pseudo$ = InputRequester("pseudo", "choisissez un pseudo", pseudo$)
space$ = Space(2)

clientname.s
text.s
cr.s
check.s
check = Chr(159)

maxbuffer.l = 1000
*Buffer = AllocateMemory(maxbuffer)

Structure userinfo
  id.l
  time.l
  name.s
EndStructure
NewList user.userinfo()

;- Init Network
If InitNetwork() = 0
  MessageRequester("Erreur", "le serveur n'a pas pu etre cree", #MB_ICONERROR)
  End
EndIf

If CreateNetworkServer(0, 6842, #PB_Network_TCP)
  
  If OpenWindow(#server, 0, 0, 800, 650, "pbMI", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
    If CreateGadgetList(WindowID(#server))
      ListIconGadget(#info, 10, 10, 600, 515, "", 596)
      EditorGadget(#pseudo, 620, 10, 172, 515)
      DisableGadget(#pseudo, 1)
      StringGadget(#msg, 10, 560, 665, 40, "")
      TextGadget(#textepseudo, 11, 603, 774, 15, "connecter en tant que :  " + pseudo$)
      ButtonGadget(#send, 690, 565, 100, 30, "envoyer")
      ButtonGadget(#options, 350, 620, 100, 20, "options")
      ButtonGadget(#options1, 350, 750, 100, 20, "^^ options ^^")
      
      
      Frame3DGadget(#Frame_0, 10, 650, 120, 100, "couleur du texte")
      TrackBarGadget(#couleur_texte_r, 20, 670, 100, 20, 0, 255, 0)
      TrackBarGadget(#couleur_texte_g, 20, 690, 100, 20, 0, 255, 0)
      TrackBarGadget(#couleur_texte_b, 20, 710, 100, 20, 0, 255, 0)
      
      Frame3DGadget(#Frame_1, 140, 650, 120, 100, "couleur du font")
      TrackBarGadget(#couleur_texte_rf, 150, 670, 100, 20, 0, 255, 0)
      SetGadgetState(#couleur_texte_rf, 255)
      TrackBarGadget(#couleur_texte_gf, 150, 690, 100, 20, 0, 255, 0)
      SetGadgetState(#couleur_texte_gf, 255)
      TrackBarGadget(#couleur_texte_bf, 150, 710, 100, 20, 0, 255, 0)
      SetGadgetState(#couleur_texte_bf, 255)
      
      AddKeyboardShortcut(#server, #PB_Shortcut_Return, #enter)
      SetActiveGadget(#msg)
    EndIf
    
    ;- Main Program
    
    Repeat
      SEvent.l = NetworkServerEvent()
      EventID = WindowEvent()
      
      If SEvent Or EventID
        If EventID = #PB_Event_Menu
          Select EventMenu()
              
            Case #pseudo
              AddGadgetItem(#pseudo, -1, pseudo$)
              
            Case #enter
              sendmessage = 1
              
          EndSelect
        EndIf
        
        If EventID = #PB_Event_Gadget
          Select EventGadget()
              
            Case #send
              sendmessage = 1
              
            Case #couleur_texte_r
              Resultat = GetGadgetState(#couleur_texte_r)
              SetGadgetColor(#info, #PB_Gadget_FrontColor, RGB(Resultat, Resultat1, Resultat2))
              
            Case #couleur_texte_g
              Resultat1 = GetGadgetState(#couleur_texte_g)
              SetGadgetColor(#info, #PB_Gadget_FrontColor, RGB(Resultat, Resultat1, Resultat2))
              
            Case #couleur_texte_b
              Resultat2 = GetGadgetState(#couleur_texte_b)
              SetGadgetColor(#info, #PB_Gadget_FrontColor, RGB(Resultat, Resultat1, Resultat2))
              
            Case #couleur_texte_rf
              Resultat = GetGadgetState(#couleur_texte_rf)
              SetGadgetColor(#info, #PB_Gadget_BackColor, RGB(Resultat, Resultat1, Resultat2))
              
            Case #couleur_texte_gf
              Resultat1 = GetGadgetState(#couleur_texte_gf)
              SetGadgetColor(#info, #PB_Gadget_BackColor, RGB(Resultat, Resultat1, Resultat2))
              
            Case #couleur_texte_bf
              Resultat2 = GetGadgetState(#couleur_texte_bf)
              SetGadgetColor(#info, #PB_Gadget_BackColor, RGB(Resultat, Resultat1, Resultat2))
              
            Case #options
              ResizeWindow(#server, WindowX(#server), WindowY(#server), 800, 780)
              ButtonGadget(#options, 0, 0, 0, 0, "options")
              
            Case #options1
              ResizeWindow(#server, WindowX(#server), WindowY(#server), 800, 650)
              ButtonGadget(#options, 350, 620, 100, 20, "options")
              
          EndSelect
        EndIf
        
        If SEvent
          ClientID = EventClient()
          ResetList(user())
          While NextElement(user())
            If ClientID = user()\id
              LastElement(user())
            EndIf
            
          Wend
          
          Select SEvent
              
            Case 1
              Resultat = AddElement(user())
              user()\id = ClientID
              user()\time = ElapsedMilliseconds()
              nb = CountGadgetItems(#pseudo)
              AddGadgetItem(#pseudo, -1, "client " + Str(nb), 0)
              
            Case 2
              length = ReceiveNetworkData(ClientID, *Buffer, maxbuffer)
              text.s = PeekS(*Buffer, length)
              If Left(text, 1) = check
                user()\name = Mid(text, 2, Len(text))
                clientname = user()\name
              Else
                text = clientname + "" + text
              EndIf
              
              ; SetRichEditText(#info,-1,-1,text+cr)
              AddGadgetItem(#info, -1, text)
              SendMessage_(GadgetID(#info), #EM_LINESCROLL, 0, 2)
              PokeS(*Buffer, text, Len(text))
              
              ResetList(user())
              While NextElement(user())
                If ElapsedMilliseconds() - user()\time > 600000
                  CloseNetworkConnection(user()\id)
                  DeleteElement(user())
                  fix = 1
                Else
                  If user()\id = ClientID
                    user()\time = ElapsedMilliseconds()
                  EndIf
                  SendNetworkData(user()\id, *Buffer, Len(text))
                EndIf
              Wend
              
            Case 4
              ; SetRichEditText(#info,-1,-1,text+cr)
              AddGadgetItem(#info, -1, text)
              SendMessage_(GadgetID(#info), #EM_LINESCROLL, 0, 2)
              PokeS(*Buffer, text, Len(text))
              ResetList(user())
              While NextElement(user())
                SendNetworkData(user()\id, *Buffer, Len(text))
              Wend
              ResetList(user())
              While NextElement(user())
                If user()\id = ClientID
                  DeleteElement(user())
                  LastElement(user())
                EndIf
              Wend
              
              CloseNetworkConnection(ClientID)
          EndSelect
        EndIf
        
        If sendmessage = 1
          sendmessage = 0
          text$ = Chr(139) + space$ + pseudo$ + space$ + "dit" + space$ + Chr(155) + space$ + texte$ + GetGadgetText(#msg)
          ; SetRichEditText(#info,-1,-1,text+cr)
          AddGadgetItem(#info, -1, text$)
          SendMessage_(GadgetID(#info), #EM_LINESCROLL, 0, 2)
          PokeS(*Buffer, text$, Len(text$))
          ResetList(user())
          While NextElement(user())
            SendNetworkData(user()\id, *Buffer, Len(text$))
          Wend
          SetGadgetText(#msg, "")
          SetActiveGadget(#msg)
        EndIf
        
      Else
        Delay(10)
      EndIf
    Until EventID = #PB_Event_CloseWindow
    CloseNetworkServer(0)
  EndIf
EndIf
End

et le coté client :

Code : Tout sélectionner

;- Init Variables
Enumeration
  #clientinfo
  #client
  #info
  #msg
  #send
  #users
  #enter
  #txt1
  #txt2
  #txt3
  #clientname
  #ip
  #port
  #ok
  #kill
  #textepseudo
  #ComboBox_0
  #pseudo
  
  #options
  #options1
  
  #Frame_2
  #smile1
  #smile2
  #smile3
  #smile4
  #smile5
  #smile6
  #smile7
  #smile8
  
  #Frame_0
  #couleur_texte_r
  #couleur_texte_g
  #couleur_texte_b
  
  #Frame_1
  #couleur_texte_rf
  #couleur_texte_gf
  #couleur_texte_bf
  
EndEnumeration

text.s
cr.s
clientname.s
name.s
IP.s
check .s
check = Chr(159)
maxbuffer.l = 1000
*Buffer = AllocateMemory(maxbuffer)

adresseip$ = InputRequester("option connexion", "veuillez entree l'adresse ip du serveur", adresseip$)
pseudo$ = InputRequester("pseudo", "choisissez un pseudo", pseudo$)
space$ = Space(2)

;- Init Network
InitNetwork()
ConnectionID = OpenNetworkConnection(adresseip$, 6842)
If ConnectionID = 0
  MessageRequester("erreur", "pbMI n'a pas pu se connecter au serveur", #MB_ICONERROR)
  End
EndIf

If OpenWindow(#client, 0, 0, 800, 650, "pbMI", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
  If CreateGadgetList(WindowID(#client))
    ListIconGadget(#info, 10, 10, 600, 515, "", 596)
    EditorGadget(#pseudo, 620, 10, 172, 515)
    DisableGadget(#pseudo, 1)
    StringGadget(#msg, 10, 560, 665, 40, "")
    TextGadget(#textepseudo, 11, 603, 774, 15, "connecter en tant que :  " + pseudo$)
    ButtonGadget(#send, 690, 565, 100, 30, "envoyer")
    
    ButtonGadget(#options, 350, 620, 100, 20, "options")
    ButtonGadget(#options1, 350, 750, 100, 20, "^^ options ^^")
  EndIf
EndIf

Frame3DGadget(#Frame_0, 10, 650, 120, 100, "couleur du texte")
TrackBarGadget(#couleur_texte_r, 20, 670, 100, 20, 0, 255, 0)
TrackBarGadget(#couleur_texte_g, 20, 690, 100, 20, 0, 255, 0)
TrackBarGadget(#couleur_texte_b, 20, 710, 100, 20, 0, 255, 0)

Frame3DGadget(#Frame_1, 140, 650, 120, 100, "couleur du font")
TrackBarGadget(#couleur_texte_rf, 150, 670, 100, 20, 0, 255, 0)
SetGadgetState(#couleur_texte_rf, 255)
TrackBarGadget(#couleur_texte_gf, 150, 690, 100, 20, 0, 255, 0)
SetGadgetState(#couleur_texte_gf, 255)
TrackBarGadget(#couleur_texte_bf, 150, 710, 100, 20, 0, 255, 0)
SetGadgetState(#couleur_texte_bf, 255)

AddKeyboardShortcut(#client, #PB_Shortcut_Return, #enter)
SetActiveGadget(#msg)

Repeat
  CEvent.l = NetworkClientEvent(ConnectionID)
  EventID = WindowEvent()
  
  If CEvent Or EventID
    If EventID = #PB_Event_CloseWindow
      quit = 1
    EndIf
    
    If EventID = #PB_Event_Menu
      Select EventMenu()
        Case #enter
          sendmessage = 1
      EndSelect
    EndIf
    
    If EventID = #PB_Event_Gadget
      Select EventGadget()
          
        Case #send
          sendmessage = 1
          
          
        Case #couleur_texte_r
          Resultat = GetGadgetState(#couleur_texte_r)
          SetGadgetColor(#info, #PB_Gadget_FrontColor, RGB(Resultat, Resultat1, Resultat2))
          
        Case #couleur_texte_g
          Resultat1 = GetGadgetState(#couleur_texte_g)
          SetGadgetColor(#info, #PB_Gadget_FrontColor, RGB(Resultat, Resultat1, Resultat2))
          
        Case #couleur_texte_b
          Resultat2 = GetGadgetState(#couleur_texte_b)
          SetGadgetColor(#info, #PB_Gadget_FrontColor, RGB(Resultat, Resultat1, Resultat2))
          
        Case #couleur_texte_rf
          Resultat = GetGadgetState(#couleur_texte_rf)
          SetGadgetColor(#info, #PB_Gadget_BackColor, RGB(Resultat, Resultat1, Resultat2))
          
        Case #couleur_texte_gf
          Resultat1 = GetGadgetState(#couleur_texte_gf)
          SetGadgetColor(#info, #PB_Gadget_BackColor, RGB(Resultat, Resultat1, Resultat2))
          
        Case #couleur_texte_bf
          Resultat2 = GetGadgetState(#couleur_texte_bf)
          SetGadgetColor(#info, #PB_Gadget_BackColor, RGB(Resultat, Resultat1, Resultat2))
          
        Case #options
          ResizeWindow(#client, WindowX(#client), WindowY(#client), 800, 780)
          ButtonGadget(#options, 0, 0, 0, 0, "options")
          
        Case #options1
          ResizeWindow(#client, WindowX(#client), WindowY(#client), 800, 650)
          ButtonGadget(#options, 350, 620, 100, 20, "options")
          
          
      EndSelect
    EndIf
    
    Select CEvent
        
      Case 2
        length = ReceiveNetworkData(ConnectionID, *Buffer, maxbuffer)
        text = PeekS(*Buffer, length)
        pos = FindString(text, ":", 1)
        AddGadgetItem(#info, -1, text)
        SendMessage_(GadgetID(#info), #EM_LINESCROLL, 0, 2)
        FlashWindow_(hWnd, 1)
        
      Case 3
        ReceiveNetworkFile(ConnectionID, "users." + Str(port))
        ClearGadgetItemList(#users)
        If ReadFile(0, "users." + Str(port))
          While Eof(0) = 0
            name = ReadString(0)
            AddGadgetItem(#users, -1, pseudo$)
          Wend
          CloseFile(0)
        EndIf
    EndSelect
    
    If sendmessage = 1
      sendmessage = 0
      oldtime = ElapsedMilliseconds()
      text$ = Chr(139) + space$ + pseudo$ + space$ + "dit" + space$ + Chr(155) + space$ + texte$ + GetGadgetText(#msg)
      PokeS(*Buffer, text$, Len(text$))
      SendNetworkData(ConnectionID, *Buffer, Len(text$))
      
      SetGadgetText(#msg, "")
      SetActiveGadget(#msg)
    EndIf
    
  Else
    Delay(10)
  EndIf
Until quit
CloseNetworkConnection(ConnectionID)
End

avec ces 2 code tu peut envoyé des message a distance ou reseau local

j'espère que tu voulais une réponse de ce genre.

@++

SPH · Message par **SPH** » lun. 31/mai/2010 18:51

Oui, je voulais cette reponse.
Tu sais pourquoi je te demande ca ? C'est parce que je commence a me demander si les programme mal structuré passe d'office pour des programmes potentiellement dangereux. Hors, tes codes sont bien structuré et legerement plus lourd que les exemples dans PB.
Je me demande particulierement si les codes contenant une partie ENUMERATION ne passe pas pour des logiciels pro que les antivirus laissent passé plus facilement.
Aussi, je suis pret a parier (pas cher quand meme hein) que tes clients et serveurs tcp passeront mieux que les exemples dans PB qui ne passent absolument pas sur ma livebox...
Reponse dans quelques heures...

Backup · Message par **Backup** » lun. 31/mai/2010 19:08

................

SPH · Message par **SPH** » lun. 31/mai/2010 19:32

Oops, un oublie de ma part mais je rassure : ca ne marche pas. Nan, j'avais tout essayé, avec PJ, sans, avec ceci cela, et c'est en virant les commentaires (dont ta ligne) cet apres-midi pour copier dans le forum que la ligne a disparut.
Nan vraiment, c'est dingue. Des codes trop petits et trop simples sont bloqué sur ma livebox !! (du moins ce que je crois)

lepiaf31 · Message par **lepiaf31** » lun. 31/mai/2010 19:41

Le problème c'est que pour Orange, il faut s'identifier avant d'envoyer le message.
J'essaye un truc en utilisant le protocole SMTP et je poste dès que j'ai fini.

Backup · Message par **Backup** » lun. 31/mai/2010 19:45

je suis chez orange aussi ! (sans envoyer de login !!)
et ça marche chez moi

lepiaf31 · Message par **lepiaf31** » lun. 31/mai/2010 20:14

Pas chez moi . Peut-etre es-tu en Ip fixe Dobro ? Ceux-là ne sont pas bridés.

lepiaf31 · Message par **lepiaf31** » lun. 31/mai/2010 20:33

bon voilà un code fait à l'arrache comme on dit. Bon le courrier à été mis dans le dossier SPAM mais il a été envoyé ^^

Code : Tout sélectionner

;renvoi les reponses du serveurs
Procedure thread(connection)
  string.s = Space(1024)
  Repeat
    Select NetworkClientEvent(connection)
      Case #PB_NetworkEvent_Data
        ReceiveNetworkData(connection, @string, 1024)
        Debug Trim(string)
        string.s = Space(1024)
    EndSelect
    Delay(1)
  ForEver
EndProcedure


InitNetwork()
login.s = "*****@orange.fr"
password.s = ""
destinataire.s = ""
message.s = "message"

connection = OpenNetworkConnection("smtp.orange.fr", 25)
If connection
  Debug "Connexion établie avec le serveur SMTP"
  thread = CreateThread(@thread(), connection)
  
  Debug "envoi de la commande ehlo"
  dat.s = "ehlo localhost"+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  Delay(200)
  
  ;identification
  Debug "envoi de la commande de login"
  dat.s = "auth login"+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  Delay(500)
  dat = Space(255)
  Base64Encoder(@login, Len(login), @dat, 255)
  dat = Trim(dat)+#CRLF$
  Debug "envoi du login"
  SendNetworkData(connection, @dat, Len(dat))
  Delay(500)
  dat = Space(255)
  Base64Encoder(@password, Len(password), @dat, 255)
  dat = Trim(dat)+#CRLF$
  Debug"envoi du mot de passe"
  SendNetworkData(connection, @dat, Len(dat))
  
  Delay(500)
  
  ;envoi du mail
  Debug "envoi de l'expediteur"
  dat = "mail from: <"+login+">"+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  Delay(500)
  Debug "envoi du destinataire"
  dat = "RCPT TO: <"+destinataire+">"+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  Delay(500)
  Debug "envoi des données"
  dat = "data"+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  Delay(500)
  dat = message + #CRLF$+"."+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  Delay(500)
  Debug "terminé"
  dat = "quit"+#CRLF$
  SendNetworkData(connection, @dat, Len(dat))
  
  
  Delay(1000)
  
  CloseNetworkConnection(connection)
Else
  Debug "raté"
EndIf

SPH · Message par **SPH** » sam. 05/juin/2010 18:46

Voici un résumé du code de VENOM que je remercie :

Code : Tout sélectionner

InitNetwork()

If CreateMail(0, "", "Titre de l'email")
          SetMailBody(0, "Le message dans l'email")
          AddMailRecipient(0, "adresse email a qui vous voulez ecrire", #PB_Mail_To)
          AddMailAttachment(0, "titre de la piece jointe", "fichier en piece jointe", "")
          Resultat = SendMail(0, "smtp.votre fournisseur.fr", 25, 0)
          
          If Resultat = 1
            MessageRequester("Information", "Mail envoyé avec succée", 0)
            End
          ElseIf Resultat = 0
            MessageRequester("Information", "Le mail n'a pas pu étre envoyé", 0)
          EndIf
EndIf

Je résume CAR, il semblerait que je confondais certains éléments. L'exemple dans PB sur l'envoie d'email n'est pas explicite. S'agit il du smtp du correspondant? Le nôtre ? Quel port ? Etc...

Regardez l'exemple de PB :

Code : Tout sélectionner

InitNetwork()


If CreateMail(0, "fred@purebasic.com", "Hello !")

  SetMailBody(0, "Hello   "+Chr(10)+"This is a mail !")
  
  AddMailAttachment(0, "My description", "brook_3d.png")
  AddMailAttachment(0, "My description 2", "test.bmp")
  
  
  AddMailRecipient(0, "test@yourdomain.com", #PB_Mail_To)
  AddMailRecipient(0, "test2@yourdomain.com", #PB_Mail_Cc)
  
  Result = SendMail(0, "smtp.free.fr", 25, 1)
  
  Repeat
    Progress = MailProgress(0)
    Delay(300)
  Until Progress = #PB_Mail_Finished Or Progress = #PB_Mail_Error
  
  If Progress = #PB_Mail_Finished
    MessageRequester("Information", "Mail correctly sent !")
  Else
    MessageRequester("Error", "Can't sent the mail !")
  EndIf
  
EndIf

SPH · Message par **SPH** » jeu. 12/août/2010 11:30

Tiens, une curiosité. Quand j'utilise :

Code : Tout sélectionner

If CreateMail(0, GetGadgetText(#String_0), GetGadgetText(#String_2))

ou

Code : Tout sélectionner

If CreateMail(0, "1" , "2")

ca marche.

Mais pas si j'utilise des txt$ :

Code : Tout sélectionner

If CreateMail(0, a$, b$)

ou des Str() :

Code : Tout sélectionner

If CreateMail(0, str(i), str(u))

Pourquoi ??

Parole De JOJO · Message par **Parole De JOJO** » lun. 21/févr./2011 13:27

ce que je me demande depuis longtemps, c'est comment reccuperer le smtp automatikement
en effet, pour un programme universel, il vaut mieux reussir a le recuperer directement
j'avais vu une fois un site qui detectait le serveur et l'adresse smtp (je crois que c'etait dans l'adminstration d'un forum, mais je ne sais plus ou

)
il faudrait tout simplement trouver un truc comme ca, lire l'HTML et y recuperer l'adresse

Parole De JOJO · Message par **Parole De JOJO** » lun. 21/févr./2011 13:55

voila
http://www.aboutmyip.com/AboutMyXApp/AboutMyIP.jsp
reste a trouver le SMTP

PureBasic

Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail

Re: Test d'email sur gmail