لیست وبلاگ های سایت هایی مثل بلاگفا و پرشین بلاگ رو می تونید با استفاده از کنترل Web Browser و با کد زیر بدست بیارید:
کد: Private Sub Command1_Click()
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"
End Sub آدرس لیست وبلاگ های سایت پرشین بلاگ: کد: http://persianblog.ir/weblogs.aspx در صورتی که صفحه موردنظر از تکنولوژی پویا استفاده کنه روش بالا جواب نمیده |