[Email Extractor ...]

[hall9000]

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'

[Psyke1]

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

DoEvents

[LeandroA]

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



[hall9000]

gracias funcionó  LeandroA