الأداة Webbrowser

لقد عرفت كيف أخذ العناوين الموجودة بالصفحة وإليكم الكود :

For Each element In WB.Document.Links







links = element.GetAttribute("href").Substring(0, element.GetAttribute("href").IndexOf("/", 7))

If (links.Length > 7) Then

links = links.Substring(7)

If (Not All_links.Contains(links)) Then

All_links = All_links & links & vbCrLf

End If

End If

Next

ولكني أريد أن أعرف كيف أنفد رابط برمجياً يعني أذا كانت الصفحة تحتوي عدة صفحات أخرى ( مثل google تحتوي عدة صفحات فأريد أن ينتقل إلى الصفحة التالية تلقائباً .

ولكم جزيل الشكر .

عفواً :

For Each element In WB.Document.Links

links = element.GetAttribute("href").Substring(0, element.GetAttribute("href").IndexOf("/", 7))

If (links.Length > 7) Then

links = links.Substring(7)

If (Not All_links.Contains(links)) Then

All_links = All_links & links & vbCrLf

End If

End If

Next