تشخیص وجود اتصال به اینترنت

با استفاده از این API میتوانید تشخیص دهید که آیا سیستم به اینترنت متصل است یا خیر.طبق معمول اگر متصل باشد مقدار True  و در غیر این صورت False  را بر می گرداند.

کد:

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() If InternetGetConnectedState(1, 0) = True Then MsgBox "Is Connected To Internet.", vbInformation ElseIf InternetGetConnectedState(1, 0) = False Then MsgBox "Not Connect To Internet.", vbCritical End If End Sub