X
تبلیغات
رایتل
جمعه 22 خرداد‌ماه سال 1388 ساعت 09:15 ب.ظ

لیست وبلاگ های سایت هایی مثل بلاگفا و پرشین بلاگ رو می تونید با استفاده از کنترل 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

در صورتی که صفحه موردنظر از تکنولوژی پویا استفاده کنه روش بالا جواب نمیده

del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo