تشخیص ارتباط با اینترنت

فایل ApplicationEvents.vb(در صورتی که این فایل رو در Solution Explorer ندارید ، بروی My Project دوبار کلیک کرده و در تب Application بروی View Application Events کلیک کنید) رو باز کنید .
هروقت وضعیت دسترسی شما به شبکه تغییر کنه این ایونت NetworkAvailabilityChanged ، Raise میشه. برای دریافت وضعیت دسترسی بصورت زیر عمل کنید:

کد:

Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
MsgBox(e.IsNetworkAvailable.ToString)
End Sub