چک کردن درست بودن ادرس با inet ؟

[one hacker alone]

با یاد خدا
سلام دوستان
من میخوام ادرس یک سایت رو بگیرم بعد بدونم اون سایت واقعا وجود داره یا نه
اگه از کنترل inet استفاده کنم با متد openurl میتونم کد رو بگیرم اما نمیخوام همه کد سایت برام بیاد چون باعث افت سرعت میشه چجوری میتونم فقط عنوان رو بگیرم یا چند کاراکتر اول رو بگیرم
اگه سایت نباشه و پیغام Server not found مرورگر بیاد openurl هیچی برنمیگردونه پس اگه اون سایت باشه همون چند کاراکتر اول ثابت میکنه که سایت وجود داره

[امین مستانی]

سلام

یه تابعی هست که وضعیت اتصال به اینترنتو مشخص میکنه

این تابع اگه بایتی از سایت دریافت کنه مقدار True و اگه دریافت نکنه False بر میگردونه

سرعتشم خوبه


Option Explicit

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long


Private Function InternetConnectionIsEstablished() As Boolean
InternetConnectionIsEstablished = CBool(InternetCheckConnection("http://www.google.com/", &H1, ByVal 0&))
End Function

Private Sub Form_Load()
MsgBox InternetConnectionIsEstablished
End Sub





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


موفق باشید