تست اتصال به اینترنت

[tootro20]

سلام میشه لطفا سورسی مطمئن جهت تست اتصال به اینترنت رو قرار بدید؟
تشکّر.
:قلب:

[سید حمید حق پرست]

سلام علیکم
سه روش چک اتصال ضمیمه کردم.
روش اول استفاده از InternetGetConnectedState موجود در کتابخانه wininet
روش دوم استفاده از winsock
روش سوم هم استفاده از تابع InternetCheckConnection
اگر فقط برای چک اتصال اینترنت میخواید روش winsock بهتره
موفق باشید.

یا علی (ع)

[mehran901]

آقای حق پرست که به همه موارد اشاره کردن ، دیدم شاید بد نباشه این ایده رو هم بهت بدم :

ی روش قطعی اینه ی فایل تکست آپ کنی با استفاده از internet transfer control مقدارشو بخونی ! اگه درست بود وصله اگه نه هم اینترنت قطعه ! به نظرم این بهترین حالتیه که میشه استفاده کرد


x = inet1.openurl("addresse file text")
if cstr(x) = "test1" then msgbox "connect"

[سید حمید حق پرست]

آقای حق پرست که به همه موارد اشاره کردن ، دیدم شاید بد نباشه این ایده رو هم بهت بدم :

ی روش قطعی اینه ی فایل تکست آپ کنی با استفاده از internet transfer control مقدارشو بخونی ! اگه درست بود وصله اگه نه هم اینترنت قطعه ! به نظرم این بهترین حالتیه که میشه استفاده کرد


x = inet1.openurl("addresse file text")
if cstr(x) = "test1" then msgbox "connect"

اما ممکنه بعد مدتی فایل تکست حذف بشه یا اینکه هاست برای چند دقیقه یا ساعت مشکل پیدا کنه (حتی برای هاستینگ های معتبر هم پیش میاد که یه مدت مشکل داشته باشند).
و اینکه قبلا خودم در ادرس یاب از همچین روشی برای خواندن ادرس استفاده میکردم که بعضی وقتها برای چند ثانیه به جای خواندن محتویات فایل تکست ارور مربوط به موجود نبودن فایل میخوند (هاست هم داون نبود اما اینجوری میشد.) این ارور بخاطر مشغول بودن سرور بوجود میاد البته همیشگی نیست بلکه بعضی وقتها.
بهترین کار اینه که با استفاده از winsock به یک سایت از طریق پورت 80 وصل شد و اتصال رو چک کرد (سایتهایی مثل گوگل، یاهو و ... که مطمئن باشیم قطعی حتی برای یک ثانیه هم نداشته باشه).
موفق باشید.

یا علی (ع)

[aryajonbesh]

Private Const FLAG_ICC_FORCE_CONNECTION = &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.persianafzar.ir/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connection to http://barnamenevis.org/ failed!", vbInformation
Else
MsgBox "Connection to http://barnamenevis.org/ succeeded!", vbInformation
End If
End Sub