پیدا کردن ایمیل در سطح یک وبلاگ (کامپونت WebBrowser )

[hackershz]

سلام دوستان عزیز خسته نباشید

برای پیدا کردن لینک درسطح یک سایت از کد زیر استفاده میشود

Dim I As Integer
Dim str As String

List1.Clear

For I = 0 To WebBrowser1.Document.links.Length - 1
str = WebBrowser1.Document.links.item(I)
If Left$(LCase(str), 4) = "http" And InStr(1, LCase(str), ".persianblog.ir") > 0 Then
List1.AddItem (WebBrowser1.Document.links.item(I))
End If
Next I

'MsgBox "Process Completed"

حالا اگه بخوایم در سطح یک وبلاگ ایمیلشو توسط وب بروس پیدا کنیم و در یه لیست باکس نمایش بدیم باید چه کار کنیم ؟

[saeidcd]

باید با یه حلقه for تو تگهای html دنبال تگ a بگردی مثلا

for each e1 as htmlelement in webbrowser1.document.body.getelementbytagname("a")
dim s as string=e1.getatribute("hrefr")
next