التحقق من الاتصال بالانترنت فى الفيجوال بيسك دوت نت

اولا يجب اضافة الدالة التالية

Public Function IsConnectionAvailable() As Boolean

  Dim objUrl As New System.Uri("http://www.youtube.com")

  Dim objWebReq As System.Net.WebRequest

  objWebReq = System.Net.WebRequest.Create(objUrl)

  Dim objresp As System.Net.WebResponse

     Try

        objresp = objWebReq.GetResponse

        objresp.Close()

        objresp = Nothing

        Return True

        Catch ex As Exception

            objresp = Nothing

            objWebReq = Nothing

            Return False 

    End Try

End Function




ولتحقق من وجود اتصال بالانترنت نستخدم الكود التالى




If IsConnectionAvailable() = TrueThen

    Do Action Here

Else

   Do Action Here

End If