بررسی اتصال به اینترنت با روشی کاملا مطمئن

[1120]

سلام دوستان عزیز .

همانطور که میدونید روش های مختلفی برای بررسی اتصال به اینترنت وجود داره که هر کدوم مشکل خواص خودش رو داره،برای بررسی مطمئن اتصال به اینترنت که در همه حال درست جواب بده بنده دو روش سراغ دارم :

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

موفق باشید.

[rbaghreih]

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

If Winsock1.LocalIP = "127.0.0.1" Then
MsgBox "سيستم شما به اينترنت وصل نمي باشد"
Else

MsgBox "سيستم شما به اينترنت متصل است"

End If

[Boydread]

روش اول اجرایی تر هستش فقط نقطه ضعفش اینه که تو حالت پروکسی جواب نمیده و در ضمن کند عمل میکنه
---
روش دوم دوست عزیزمون هم که فقط داره آی پی چک میکنه و در حالتی که سیستم ها شبکه باشه ن غلط جواب میده

[amir360]

روش اول بهتره