بررسي موجودیت يه سايت

[gorg313]

سلام به همه ي مديران عزيز

يه سوال داشتم

چگونه بفهميم که يک سايت روي فضاي نت هست ؟

کلآ هر n سايت را برنامه بتونه بررسي کنه

جور براي خريد دامنه ابتدا آدرسو چک ميکنن بعد مي سازن

اين فرقش اينه که آدرس کامل بگيره و بررسي کنه

ممنون ميشم کمکم کنيد

اگه سورس هم بود ضميمه کنيد :تشویق:

[matrix-program]

register.com
این سایت بررسی میکنه میتونید ازش استفاده کنید

[gorg313]

رفتم به اين سايت از کد نويسي هم استفاده کردم ولي بعد از بارگذاري سايت برنامه خطا ميده Web.Document.Forms(0).elements("TextBoxName").Valu e = Text1.Text مثلآ براي سايت معرفي شده اسم باتون domainName هست Web.Document.Forms(0).elements("domainName").Valu e = Text1.Text Web.Document.Forms(0).elements("selectButton").Valu e = Text2.Text اين هم کليک Web.Document.Forms(0).elements("name in dokme ra Pyda nakardam").Click از Web منظورم WebBrowser هستش صفحه ي سايت لود ميشه ولي وقتي درون تکست يک مقداري ميزنم خطا ميده خسته ام کرد ممنون ميشم باز يه کمکي و راهنمايي بکنيد

[reza13812]

سلام.
ببین این روش کمکت میکنه یا نه!!!
یه سوکت بزار و سعی کن به اون آدرسی که میخوای با پورت 80 وصل بشی!!! اگه وصل شد که اون سایت وجود داره اگه هم نشد که لابد نیست دیگه :لبخند:

[m2011kh]

پیرو راهنمایی آقا رضا عرض میکنم:

با یه سوکت سعی در ارتباط با پورت 80 سایت بگیر و یه زمان Time Out هم در نظر بگیر که اگه تا اون زمان بسته ای از سمت سایت ارسال نشد متوجه بشی که سایت وجود نداره البته ممکنه بعضی اوغات به علت نقض اتفاقی سایت و یا سوکت شما سایت جواب نده بهتره چند بار با سوکت سعی کنید به سایت متصل بشید(برای اطمینان).

موفق و سربلند باشید.

MMD

[gorg313]

پیرو راهنمایی آقا رضا عرض میکنم:

با یه سوکت سعی در ارتباط با پورت 80 سایت بگیر و یه زمان Time Out هم در نظر بگیر که اگه تا اون زمان بسته ای از سمت سایت ارسال نشد متوجه بشی که سایت وجود نداره البته ممکنه بعضی اوغات به علت نقض اتفاقی سایت و یا سوکت شما سایت جواب نده بهتره چند بار با سوکت سعی کنید به سایت متصل بشید(برای اطمینان).

موفق و سربلند باشید.

MMD

يعني به اين صورت ميشه که اول آدرس و بعد هم پورت

http://www.site.com:80

ممنون ميشم يه نمونه برام مثال بزنيد

:خجالت:

[reza13812]

سلام.
این یه نمونه ساده هست خودت هرجوری که خواستی گسترشش بده.

Private Sub Command1_Click()
Winsock1.Connect txtDomain.Text, 80 'براي مثال: barnamenevis.org
End Sub

Private Sub Winsock1_Connect()
MsgBox txtDomain.Text & " is taken" 'وقتي سايت مورد نظر گرفته شده بود
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox txtDomain.Text & " is available" ' وقتي به سايت وصل نشد ، يعني سايت گرفته نشده
End Sub

اگه مشکلی بود تو برام پیغام خصوصی بزارید یا با آی دی من تماس بگیرید : ahadireza7

[gorg313]

ببخشيد رضا جان من سورس را به اين صورت تغيير دادم

سايت را خوب بررسي نکرد ببين اشکالم کجا داره

يه سوال وقتي آدرس يه سايت را بررسي ميکنه و آدرس جديد ميزنم اررو ميده بايد اول ليستن بشه تا اررو رفع بشه؟؟؟؟


:خجالت:




Dim URLSite As String

Private Sub Command1_Click()
URLSite = Text2.Text & Text1.Text & Combo1.Text
Winsock1.Connect URLSite, 80 'براي مثال: barnamenevis.org
End Sub

Private Sub Winsock1_Connect()
Label2.ForeColor = vbGreen
Label2.Caption = URLSite & " اين دامنه به ثبت رسيده است"
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Label2.ForeColor = vbRed
Label2.Caption = URLSite & "اين دامنه ثبت نشده است"
End Sub




عکس ضميمه را نگاه هر آدرسي دادم باز همون آش و کاسه شد
اون اررو هم 40020 شد همين الان يه چيزي تست کردم آدرس را نبايد با http:// بزنيم برنامه درسته

مرسي
فقط براي بررسي چند سايت پشت سر هم چکار کنم؟؟؟
ممنون ميشم راهنمايي کنيد

[reza13812]

بازم سلام.
الان دیگه مشکل وارد کردن آدرس جدید حل میشه.
Dim URLSite As String

Private Sub Command1_Click()
If Winsock1.State <> sckClosed Then Winsock1.Close

URLSite = Text2.Text & Text1.Text & Combo1.Text
Winsock1.Connect URLSite, 80 'براي مثال: barnamenevis.org
End Sub

Private Sub Winsock1_Connect()
Label2.ForeColor = vbGreen
Label2.Caption = URLSite & " اين دامنه به ثبت رسيده است"
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Label2.ForeColor = vbRed
Label2.Caption = URLSite & "اين دامنه ثبت نشده است"
End Sub

[helane]

دوست عزیز این سورس برای سایت های كه‌ دان میشه‌ وقتی ddos میخوره‌ به‌ درد میخوره‌

[emad4000]

سلام
حالا اگه اون سايت ف-ي.ل|ت-ر شده باشه چي؟ چطوري مي تونيم موجوديتش رو بفهميم؟

[mrs225]

سلام .کسی می تونه به همین روش کمک کنه تا عنوان مثال به سایت گوگل یک بیت رو بفرست اگر دریافت کرد true و اگر دریافت نکرد false واسم برگردونه

[reza13812]

علیک سلام
بله. :متفکر:

[mrs225]

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

[mrs225]

کسی نیست جواب بده

[محمد فدوی]

برای اینکار پیشنهاد میکنم از پروتکل WHOIS (http://en.wikipedia.org/wiki/Whois) استفاده کنید. سرور های زیادی هستن که این سرویس رو ارائه میدن. مثلا وبسایت who.is (https://who.is/)
برای سرچ کردن یه URL توی این وبسایت که ببینید به کسی تخصیص یافته یا نه (و حتی جزییات بیشتر) URL رو به این صورت وارد کن:


http://who.is/whois/[URL]

مثلا این صفحه رو ببین:



http://who.is/whois/barnamenevis.org

میتونی محتویات پاسخ این سرور رو توی برنامت بررسی کنی. (whois.net (http://whois.net) و whois.com (http://whois.com)و... هم هستن)
علاوه براین میتونی مستقیما با این پروتکل برنامه نویسی کنی. اینم (http://www.vbforums.com/showthread.php?488992-VB6-very-simple-WHOIS-app) یه نمونه برنامه.

موفق باشی.

[mrs225]

ممنون از پاسخگویتون.
من نمی خوام ببین سایت موجود است یا نه من میخوام ببینم سایت فیلتر شده یا نه، همین

[محمد فدوی]

ببین تو متن Response "دسترسی به تارنمای فراخوانده شده امکان پذیر نمی باشد." وجود داره یا نه! :لبخند:

[mrs225]

این کار کردم گفتم اگه داخل کد نویسی ای پی 10.10.34.34 رو دیدی بگو فیلتره ولی خیلی زمان بره میخوام زمان کم تری برای این رویداد صرف بشه

[R2du-soft]

سلام با این روش میشه هم وصل بودن به اینترنت رو چک کرد و هم اینو چک کردن که سایت وجود داره یا نه!

برای چک کردن اینترنت که اگه اینترنت وصل نبود و ارتباط برقرار نشد برنامه باز نشه!:



Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION As Long = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long


Private Sub Form_Load()
If InternetCheckConnection("http://www.google.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "You need Internet connection to run this program!"
End
Else
Form1.Show
End If
End Sub




برای چک کردن سایت هم میتونید از این استفاده کنید:



Option Explicit
Private Const FLAG_ICC_FORCE_CONNECTION As Long = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
If InternetCheckConnection("http://www.googlerer.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Site Not Exist!"
End
Else
MsgBox "Site Exist"
End If
End Sub



حالا میتونید به جای اینکه آدرس رو توی تکست باکس وارد کنید اون رو از یک تکست باکس بخونید :لبخند:

[mrs225]

دست درد نکنه جواب داد ولی دیر عمل میکنه

[R2du-soft]

خواهش میکنم،بله چون باید سایت رو چک کنه و مقدار برگشتی رو هم دریافت و چک کنه طول میکشه
در کل این سریعترین راه هست :لبخند:

[mrs225]

با عرض پوزش بعد از بررسی مجدد فهمیدم این روش جواب نمی ده.البته بستگی به ای اس پی استفاده کننده داره که از کدوم روش سایت رو فیلتر کرده باشه