أريد أن أعرف كيف أستخرج روابط بصفحة انترنت مفتوحة داخل برنامج فيجوال بيزك

[mk0ra]

فتحت صفحة انترنت داخل webbrowse على فورم في الفيجوال بيزك وأريد أن أستخرج الروابط الموجودة بهذه الصفحة المفتوحة ووضعها بطريقتين
إما داخل textbox على الفورم نفسها
أو في ملف نصي خارجي
على من يعرف عمل هذا مساعدتي وإعطائي الكود ويا حبذا لوأعطاني مثال عملي بالفيجوال بيزك مفتوح الكود وله جزيل الشكر

[@...Khalefa]

Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub

Private Sub WebBrowser1_DownloadComplete()
Dim HTMLdoc As HTML********
Dim HTMLlinks As HTMLAnchorElement
Dim STRtxt As String
On Error Resume Next
Set HTMLdoc = WebBrowser1.********
For Each HTMLlinks In HTMLdoc.links
STRtxt = STRtxt & HTMLlinks.href & vbCrLf
List1.AddItem HTMLlinks.href
Next HTMLlinks
' Text1.Text = STRtxt
End Sub
Reference مع اضافة الـ
Microsoft HTML Object Library
للمشروع


المشروع مرفق