۲۱-مرداد-۱۳۹۰, ۱۷:۱۶:۰۶
سلام دوستان عزیز .
همانطور که میدونید روش های مختلفی برای بررسی اتصال به اینترنت وجود داره که هر کدوم مشکل خواص خودش رو داره،برای بررسی مطمئن اتصال به اینترنت که در همه حال درست جواب بده بنده دو روش سراغ دارم :
1- Ping کردن یک آدرس اینترنتی معتبر که امکان Down شدن آن خیلی کم باشه(مانند گوگل و یاهو) ،و انتظار برای دریافت پاسخ،که ایراد این روش این هست که کمی طول میکشه تا پاسخ Ping دریافت بشه .
2- اما در روش دوم با استفاده از تابع InternetCheckConnection به صورت خیلی سریع می تونید اتصال به اینترنت رو بررسی کنید :
موفق باشید
.
همانطور که میدونید روش های مختلفی برای بررسی اتصال به اینترنت وجود داره که هر کدوم مشکل خواص خودش رو داره،برای بررسی مطمئن اتصال به اینترنت که در همه حال درست جواب بده بنده دو روش سراغ دارم :
1- Ping کردن یک آدرس اینترنتی معتبر که امکان Down شدن آن خیلی کم باشه(مانند گوگل و یاهو) ،و انتظار برای دریافت پاسخ،که ایراد این روش این هست که کمی طول میکشه تا پاسخ Ping دریافت بشه .
2- اما در روش دوم با استفاده از تابع InternetCheckConnection به صورت خیلی سریع می تونید اتصال به اینترنت رو بررسی کنید :
کد:
'www.arshamsoft.com
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موفق باشید
.