جستجو آدرس سایت

[aleas2]

سلام خسته نباشید دوستان بنده میخوام آدرس سایت های نیازمندی که تو این سایت
http://www.parsindex.com/directory/146_1.aspx
زده رو با vb6 بنویسم ادرس سایت های نیازمندی رو تو یه فایل txt ذخیره کنه به نظر شما چطور اینکارو بکنم؟چون ادرس سایت ها به این صورت هستن
http://www.parsindex.com/FindSite/27134.aspx
یعنی لینک داده شدن به سایت اصلی
که باید ادرس سایت اصلی
http://www.charsoo.ir
اینو ذخیره کنه
امیدوارم متوجه نظورم شده باشین اگر میتونین سورس بذارین ممنون میشم اگر نمیتونین راهنمایی بکنین چطور اینکارو بکنم؟

[SlowCode]

سلام
اول باید سورس صفحه رو با دستور زیر پیدا کنی:

WebBrowser1.Navigate "http://www.parsindex.com/directory/146_1.aspx"
txtResult.Text = WebBrowser1.Document.Body.OuterHtml

بعد باید با دستور instr کلمه link ویا یه چیز دیگه رو جستجو کنی، بعد باید با دقت آدرس صفحه رو دربیاری(با mid)
البته اگه از link استفاده کنی لینک صفخات دیگه رو هم میاره. پس باید روش فکر کنی و یه کلمه دقیقتر رو بگردی.

[محسن واژدی]

سلام علیکم
کد زیر را هم بررسی کنید:

Private Sub Command1_Click()
Dim vLinks
Open App.Path & "\links.txt" For Output As #1
For Each vLinks In WebBrowser1.Document.getElementsByTagName("a")
If LCase$(vLinks.id) Like "ctl00_*_gridview*" Then
Print #1, vLinks.href
End If
Next vLinks
Close
Shell "notepad """ & App.Path & "\links.txt" & """", vbMaximizedFocus
End Sub

موفق باشید