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

[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]

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

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

http://barnamenevis.org/showthread.php?273631-%D8%A8%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-%D9%84%DB%8C%D9%86%DA%A9-%D9%87%D8%A7%DB%8C-%D8%AF%D8%B1%D9%88%D9%86-%DB%8C%DA%A9-%D9%88%D8%A8-%D8%B3%D8%A7%DB%8C%D8%AA&highlight=each+link

[xrezax]

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

http://barnamenevis.org/showthread.php?273631-%D8%A8%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-%D9%84%DB%8C%D9%86%DA%A9-%D9%87%D8%A7%DB%8C-%D8%AF%D8%B1%D9%88%D9%86-%DB%8C%DA%A9-%D9%88%D8%A8-%D8%B3%D8%A7%DB%8C%D8%AA&highlight=each+link

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

[kitcat_m18]

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

WebBrowser1.Navigate "http://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 (http://domaintz.com/tools/reverse-ip/bakhtyar.info)

[kitcat_m18]

اما باز دقیق همه لینکارو نمی یاره. یا بعضیارو اینجور می یاره
کدوم لينک ها رو نمياره؟؟ بعضي ها رو چه جوري مياره؟؟؟ :متفکر:

[xrezax]

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

بعضی هارو هم با اسم domaintz.com میاره. (http://domaintz.com/tools/reverse-ip/bakhtyar.info)

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

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

[kitcat_m18]

يعني فقط reza.com (http://domaintz.com/tools/reverse-ip/bakhtyar.info) و asmi.ir (http://domaintz.com/tools/reverse-ip/bakhtyar.info) رو مي خواي؟؟؟ :متفکر:

[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