پیدا کردن لیست یه سری وب مخصوص

[hackershz]

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

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


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), ".ning.com/profile/") > 0 Then
List1.AddItem (WebBrowser1.Document.links.Item(I))
End If
Next I
End If


حالا کاری که من میخوام بکنم چیه ؟

میخوام وب هایی وارد لیست باکسم بشند که آخرشون پسوند
#add_comment
دارند
مثلا یکی از لینکها اینجوریه

http://pars-360.ning.com/profile/arashpmr?xgac=1&xg_source=profiles_memberList#add_comment

اینجور لینک ها اضافه بشه تو لیست باکسم یعنی لینک هایی اضافه بشند که

آخرش #add_comment دارند کسی میتونه راهنمایی کنه

[scarce]

از کد زیر استفاده کن




Dim Link as String
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), ".ning.com/profile/") > 0 Then

link = WebBrowser1.Document.links.Item(I)
If Right(link, 12) = "#add_comment" Then
List1.AddItem link
Link = VbNullString
End If

End If
Next I
End If