Code: Select all
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
Could you give me the name of your main internet providers in England and the USA?
Thank you