بدست آوردن لینک های درون یک وب سایت

[_behnam_]

سلام اساتید:
میخواستم لینکهای یک سایت MP3 Searcher رو بدست بیارم اما هرکاری کردن نشد, چون لینکها توی سورس نیستن . اگه سایت HTML ساده بود میتونستم اما با این سایت نمیتونم کار کنم
لطفا اگه میتونید راهنمایی کنید
لینک های دانلود این سایت رو میخوام بکشم بیرون
http://www.mp3searchmusic.com/tataloo.html


با تشکر /

[parselearn]

http://barnamenevis.org/showthread.php?177785-%D8%AA%D9%85%D8%A7%D9%85%DB%8C-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%87%D8%A7%DB%8C-WebBrowser-%D9%87%D9%85%DB%8C%D9%86%D8%AC%D8%A7&highlight=WebBrowser1




Private Sub Command1_Click()
For Each ele In WebBrowser1.Document.getelementsbytagname("a")
URL = ele.GetAttribute("href")
If (Left(URL, 38) = "http://www.mp3searchmusic.com/get.php?") Then
List1.AddItem ele.GetAttribute("href")
d = InStr(1, URL, "url=")
If (d) Then
List2.AddItem Mid(URL, d + 4, 100)
End If
End If
Next

'All Music
MsgBox List1.ListCount

'Direct DL Link
MsgBox List2.ListCount
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.mp3searchmusic.com/tataloo.html"
List1.Clear
List2.Clear
End Sub

[_behnam_]

دوست عزیز این کد ele اررور میده
آیا تو References نمیخواد چیزیو تیک زد یا ست کرد ؟؟

[ali.rezaei7]

درود.

اينارو در ابتداي كد بزارين تا ديگه خطاي زمان Compile نداشته باشيد:

Dim ele As Object
Dim url As String
Dim d As Integer
قبل از لود كامل المنت هاي موردنظر صفحه، روي دكمه كليك نكنيد. تا برنامه دچار Error نشه.

[saeedvir]

بفرما. سورس کدی که دوستمون قرار دادن

[_behnam_]

آیا با Winsock هم امکانش هست که این کار انجام بشه؟؟