verification de l'existence d'une adresse mail

**Evariste38** · 08/07/2012, 22h22

Bonjour,

Actuellement je vérifie une à une des adresses mail avec le site "http://verify-email.org/" ,
je souhaiterai automatiser le système à partir d'un fichier d'adresses mail.
Actuellement j'essaie de comprendre "telnet" mais j'ai comme l'impression que telnet ne fonctionne qu'avec la console?
j'accepte toutes idées , commande externe, .bat ,recommandations.......
D'avance merci

**hackoofr** · 09/07/2012, 15h37

Je vous recommande de poser la même question dans le Forum Vbscript

**hackoofr** · 09/07/2012, 22h22

Ce que j'ai remarqué pour cette URL :"http://verify-email.org/" que vous êtes limité à 5 requêtes par heure si vous n'êtes pas inscrit et 10 requêtes si vous êtes membre en mode Free Dépend de l'adresse IP Publique
Avec ces conditions ce qu'on peut faire :

un fichier texte qui contient 5 adresses Mails à vérifier.
un Vbscript pour lire ces mails en l'injectant dans le formulaire de vérification.
un Résultat Output en mode HTML pour afficher les résultats de la réponse des serveurs Mails.
Pour Contourner la limite des recherches, j'ai pensé à faire une fonction qui fait Rebooter le Routeur afin d'obtenir une nouvelle adresse IP Publique.
Puis faire un copier/coller d'une autre liste d'emails (5) dans le même fichier texte, puis reéxécuter le script de nouveau.

Qu'en pensez-vous ?

**Evariste38** · 10/07/2012, 10h02

Merci pour vos réponses, ce que j'en pense! que du bien!
Mes contraintes actuelles ,je ne connais pas le VBS et je débute en Batch
(02/2012).
Malgré tout sachant récupérer dans l'html d'une page web par une commande
externe (wget) je travaille sur comment " injecter dans le formulaire de vérification" et à cette étape je rame sur le transmit si vous avez une solution je suis preneur.
Pour les autres étapes ,que vous mettez justement en évidence je vous avoue que je n'ai pas de solution , que même la question m'était même inconnue c'est pourquoi vos remarques me sont précieuses.
Merci de me donner de votre temps.

**hackoofr** · 10/07/2012, 11h02

Je ne sais pas si la fonction Reboot_Routeur() fonctionne chez tout le monde ou non ? bon pour moi ça marche

copier/coller ce fichier C:\MailList.txt

fake1@yahoo.it
fake2@NomDomain.com
fake3@orange.fr
fake4@voila.fr
fake5@gmail.com

Puis copier/coller ce Vbscript VerifyMail.vbs et exécutez-le par double-clique, puis prendre une nouvelle liste de 5 adresses e-mails et les coller dans le fichier C:\MailList.txt en l'écrasant les adresses e-mails déja testé, et bien sûr ré-exécuter le Vbscript de nouveau et dis-moi le résultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
Call Reboot_Routeur()
Call New_IP()
Call TestConnexionInternet()

Function Explorer(File)
set ws = CreateObject("wscript.shell")
ws.Run "iexplore "  & File,1,False
end Function
 
Function Convert2HTML(FileTxt,FileHTML)
Dim oFSO,ws,temp,OutPutHTML,StrHTML
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject( "Wscript.Shell")
temp = ws.ExpandEnvironmentStrings("%temp%")
Set ReadTxt = oFSO.OpenTextFile(temp & "\" & FileTxt,1)
Set OutPutHTML = oFSO.OpenTextFile(temp & "\" & FileHTML,2,True)
 strHTML="<html><body text=white bgcolor=#1234568><style type='text/css'>.code {font-family:courier;font-size:10pt;color:orange}"&_
"a:link {color: #F19105;}"&_
"a:visited {color: #F19105;}"&_
"a:active {color: #F19105;}"&_
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_
"</style>"
StrHTML = StrHTML & "<center><B><font size=4 color=Yellow>Vérification des adresses E-mail(s) Valides © Hackoo © 2012 </font></B><hr>"&_
"<img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_
Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_
Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img><hr></center>"
StrHTML = StrHTML & ReadTxt.ReadALL
OutPutHTML.writeLine StrHTML
End Function


Sub CheckMail()
Dim IE,FichierMailList,MailList
FichierMailList = "c:\MailList.txt"
'EMail = Array("fake1@yahoo.com","fake2@NomDomain.com","fake3@orange.fr","fake4@voila.fr","fake5@gmail.com")
Set IE = CreateObject("InternetExplorer.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set ws = CreateObject( "Wscript.Shell")
temp = ws.ExpandEnvironmentStrings("%temp%")
NomFichierLog = temp & "\VerifMail.txt"
NomFichierLogHTML = temp & "\VerifMail.html"
Set MailList = objFSO.OpenTextFile(FichierMailList,1,True)
LireMailList = MailList.ReadAll
EMail = Split(LireMailList,vbCrLf)
'NbLignes = UBound(EMail) + 1
'NbLignes_Valides = NbLignes / 5
'MsgBox NbLignes_Valides
Set OutPut = objFSO.OpenTextFile(NomFichierLog,2,True)
IE.Visible = False
IE.navigate "http://verify-email.org/"
Do While (IE.Busy)
    WScript.Sleep 1000
Loop
For i = LBound(EMail) to UBound(EMail)
Set Helem = IE.document.getElementByID("checkemail")
Helem.Value = EMail(i)
Set Helem = IE.document.getElementById("MyForm")
Helem.Submit
wscript.sleep 20000
Data = ie.document.documentElement.innerhtml
OutPut.WriteLine "<center><br><span class=""code"">Vérification de l'adresse E-Mail  : <B><font size=4 color=Yellow>"& EMail(i) &" à "& Now() &"</font></B></center>"
Set objRegex = new RegExp
objRegex.Pattern = "<pre[^>]*>[\w|\t|\r|\W]*</pre>"
objRegex.Global = False
objRegex.IgnoreCase = True
Set Matches = objRegex.Execute(Data)
For Each Match in Matches   
    strMatchValue = Match.Value
    OutPut.WriteLine string(123,"*")
	'MsgBox strMatchValue
	OutPut.WriteLine strMatchValue & string(123,"*")
Next
Next
OutPut.WriteLine "</span>"
OutPut.close
ie.Quit 
Set ie = Nothing
Convert2HTML "VerifMail.txt","VerifMail.html"
Call Explorer(NomFichierLogHTML)
End Sub

Sub New_IP
Dim Ws,command,StrCommand,Resultat
Set Ws = CreateObject("WScript.Shell")
command = "netsh interface ip delete arpcache & ipconfig /release & ipconfig /flushdns & ipconfig /renew & arp -a & nbtstat -R"
StrCommand = "cmd /c "& command &""
Resultat = ws.Run(StrCommand,1,True)
End Sub

Sub Reboot_Routeur
Set ws = CreateObject("wscript.shell")
Command = "Telnet 192.168.1.1"
StrCommand = "cmd /c "& Command &""
Execution = ws.run(StrCommand,1,False)
wscript.sleep 5000
ws.AppActivate Command
ws.sendkeys "admin"
ws.sendkeys "{enter}" 
ws.sendkeys "admin" 
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "Reboot"
ws.sendkeys "{enter}"
wscript.sleep 1000
ws.sendkeys "{enter}"
End Sub

Sub TestConnexionInternet()
Dim Boucle,strComputer,MsgTitre,objPing,objStatus
Boucle = True
While Boucle = True
strComputer = "smtp.gmail.com"
MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2012"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! ",64,MsgTitre
Boucle = False
Call CheckMail()
wscript.quit
else
msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !",16,MsgTitre
End If
Next
wscript.sleep 60000
Wend
End Sub

**Evariste38** · 10/07/2012, 15h46

Après qq problèmes à résoudre suite à l'absence de vbs sur mon xp et de IE.

Je suis ébaubi, ça marche, c'est bien ce que voulait, le seul point d'ombre, c'est que je n'ai rien compris : J'ai un long chemin encore à faire.
Par nécessite je garde précieusement votre coding que je vais utiliser
pour mon usage personnel sachant que vous en restez l'auteur et le propriétaire.
Merci chaleureusement.
Question connexe , en batch comment " injecter dans le formulaire de vérification" une page web???

verification de l'existence d'une adresse mail

Scripts/Batch

Vue hybride

Discussions similaires

Partager

Partager