Spidering for e-mail addresses on the Internet

[Jason Bennison]

About a year ago, I saw some code (or a program) that had the ability to search internet webpages for e-mail addresses (or strings containing an @
symbol). It was called something 'e-mail spider' or e-mail collector' something like that.

Can anyone please put me in the right direction where I can obtain such code or program for Visual Basic.


Many Thanks.

[Iouri]

You can read a web page to the string and then search this string for @

'Ref: ( it is in mshtml.dll)
'Microsoft HTML Object Library
'Microsoft Internet Controls

Option Explicit

Dim htmBody As New HTMLBody
Dim htmDoc As New HTMLDocument

Private Sub Command1_Click() 'Get WEB
wbcMain.Navigate Text1'url is in text1
End Sub


Private Sub Command2_Click() 'Get text to msgbox
Set htmDoc = wbcMain.Document
Set htmBody = htmDoc.body
MsgBox htmBody.innerText
End Sub


Private Sub Command4_Click() 'exit
Unload Me
End Sub



Iouri Boutchkine
[email protected]