hadishb
چهارشنبه 02 شهریور 1390, 06:05 صبح
سلام:لبخندساده:
این کد تو ویژوال بیسیک 6 نوشته شده...کارش اینه که وقتی روی دکمه کلیک کردی لیست تمامی وبلاگ هایی که توی هوم پیج سایت بلاگفا هست رو لیست میکنه توی لیست باکس...ببینید::لبخندساده:
Private Sub Command1_Click()
Dim i As Integer
List1.Clear
WebBrowser1.Navigate"http://www.blogfa.com/"
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
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), ".blogfa.com") > 0 Then
If Not InStr(1, LCase(str),"news.blogfa.com") > 0 Then
If Not InStr(1, LCase(str),"www.blogfa.com") > 0 Then
List1.AddItem (WebBrowser1.Document.links.Item(i))
End If
End If
End If
Next i
End Sub
حالا معادل این کد تو سی شارپ چی میشه؟:متفکر:
این کد تو ویژوال بیسیک 6 نوشته شده...کارش اینه که وقتی روی دکمه کلیک کردی لیست تمامی وبلاگ هایی که توی هوم پیج سایت بلاگفا هست رو لیست میکنه توی لیست باکس...ببینید::لبخندساده:
Private Sub Command1_Click()
Dim i As Integer
List1.Clear
WebBrowser1.Navigate"http://www.blogfa.com/"
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
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), ".blogfa.com") > 0 Then
If Not InStr(1, LCase(str),"news.blogfa.com") > 0 Then
If Not InStr(1, LCase(str),"www.blogfa.com") > 0 Then
List1.AddItem (WebBrowser1.Document.links.Item(i))
End If
End If
End If
Next i
End Sub
حالا معادل این کد تو سی شارپ چی میشه؟:متفکر: