گرفتن اطلاعات از یک سایت

[xrezax]

سلام

بچه ها من می خوام اطلاعات این سایتو که لیست سایت ها هستند رو توی یک لیست بدست بیارم

http://domaintz.com/tools/reverse-ip/bakhtyar.info

و توی یک تکست آی پی و توی یک تکست دیگه تعداد سایتهارو نمایش بده.
IP: 174.133.83.82

records: 569

دوستان من هر کاری کردم نشد. تمام پست های مرطب را خوندم بازم به جایی نرسیدم . ممنون میشم با پروژه های وی بی برام توضیح بدین.

[kitcat_m18]

يه چيز ساده برات ساختم طرز کارو ياد بگيري. در ضمن مي توني از کنترل Webbrowser براي اينکه خود شخص بتونه IP رو بده استفاده کني.

موفق باشي

[xrezax]

می شه یک لیست باکس بهش اضافه کنی و لیست سایتارو نشون بده؟؟؟
ممنونت میشم

[kitcat_m18]

دوست عزيز يه مقدار خودت روش کار کن برنامه نويسي پشتکار مي خواد 48 ساعت باهاش ور برو تو گوگل سرچ کن ببين جوابت پيدا ميشه يا نه
موفق باشي

[xrezax]

آخه لنگ همینم. هر کاری می کنم نشد

[kitcat_m18]

آخه لنگ همینم. هر کاری می کنم نشد

متاسفانه اصلا جستجو نمي کني انتظار نداشته باش تو پست هاي ديگه هم کمکت کنم.

https://barnamenevis.org/showthread.p...ight=each+link

[xrezax]

متاسفانه اصلا جستجو نمي کني انتظار نداشته باش تو پست هاي ديگه هم کمکت کنم.

https://barnamenevis.org/showthread.p...ight=each+link

چرا بهت بر می خوره مهندس .
آقا باز این تایپیکی که زدید بکارم نیومد. هنوز نتونستم لینکارو جمع کنم.

[kitcat_m18]

يعني خدا وکيلي دمت گرم

    WebBrowser1.Navigate "https://barnamenevis.org/"

    

    

    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE

        DoEvents

    Loop

    

    Dim doc As String

    

    doc = WebBrowser1.Document.Body.InnerText

        If doc = Empty Then

        MessageBox.Show ("empty")

    End If

    

    For Each link In WebBrowser1.Document.Links

        List1.AddItem link

    Next

[xrezax]

مرسی از کمک خوبت . دمت هم گرم.
اما باز دقیق همه لینکارو نمی یاره. یا بعضیارو اینجور می یاره

http://domaintz.com/tools/reverse-ip/esme domin

[kitcat_m18]

اما باز دقیق همه لینکارو نمی یاره. یا بعضیارو اینجور می یاره

کدوم لينک ها رو نمياره؟؟ بعضي ها رو چه جوري مياره؟؟؟

[xrezax]

لینک هایی که توی همین سایتن رو کامل نمی یاره
http://domaintz.com/tools/reverse-ip/bakhtyar.info

بعضی هارو هم با اسم domaintz.com میاره.

مثلاً اینجوری میاری

http://domaintz.com/tools/reverse-ip/reza.com
http://domaintz.com/tools/reverse-ip/asmi.ir
.
.
.
می خوام فقط لینک هارو بیاری و اسمی از domaintz.com نیاره توی لیست

[kitcat_m18]

يعني فقط reza.com و asmi.ir رو مي خواي؟؟؟

[xrezax]

آره.
لیست سایتاروو فقط می خوام. همین

[kitcat_m18]

يه کنترل ساده گذاشتم خودت مي توني بهتر و با روش هاي ديگه مثل افعال با قاعده هم روش کار کني.
موفق باشي

WebBrowser1.Navigate "http://domaintz.com/tools/reverse-ip/bakhtyar.info"

 

 

Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE

    DoEvents

Loop

 

Dim doc As String

 

doc = WebBrowser1.Document.Body.InnerText

    If doc = Empty Then

    MessageBox.Show ("empty")

End If

 

For Each link In WebBrowser1.Document.Links

    If InStr(1, link, "domaintz.com/tools/whois/") <> 0 Then GoTo Quite

        link = Replace(link, "domaintz.com/tools/reverse-ip/", "")

        List1.AddItem link

Quite:

Next