Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: hall9000 en Enero 29, 2011, 06:58:02 pm

Título: [Email Extractor ...]
Publicado por: hall9000 en Enero 29, 2011, 06:58:02 pm

Hola estoy haciendo un extractor de correo electrónico a Google
No puedo extraer el código fuente de correo electrónico podría alguien darme una ayuda por favor gracias

wb.Navigate ("http://www.google.com.br/search?q=" & Text1.Text
Text2.Text = wb.Document.documentElement.innerHTML
List1.AddItem  'email  extraídos'

Título: Re:[Email Extractor ...]
Publicado por: Psyke1 en Enero 29, 2011, 10:23:02 pm

Busca sobre expresiones regulares en vb. Seguramente te ayude... :P

DoEvents :P

Título: Re:[Email Extractor ...]
Publicado por: LeandroA en Enero 30, 2011, 12:07:32 pm

aca tenes un ejemplo de expreciones regulares

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/166-expresiones-regulares.htm

si lo adaptas un poco al lo que vos tenes logras el resultado.

ojo que si no se termina de cargar el documento y vos llamas inmediatamente a la linea wb.Document.documentElement.innerHTML  te da error, espera el evento  DocumentComplete

Código: [Seleccionar]

Private Sub Command1_Click()
    wb.Navigate "http://www.google.com.br/search?q=" & Text1.Text
End Sub

Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Text2.Text = wb.Document.documentElement.innerHTML
End Sub



Título: Re:[Email Extractor ...]
Publicado por: hall9000 en Enero 31, 2011, 08:10:52 am

gracias funcionó  LeandroA  ;)  ;)