[vb_net]

السلام عليكم ورحمة الله

كود بسيط لفحص الانترنت عن طريق عمل ping
وانا اخترت موقع http://www.google.com ويمكنك ايضا تحديث وقت time out للفحص

اترككم مع الكود

PHP كود :

Try

            If My.Computer.Network.Ping("www.gojogle.com") Then

                MsgBox("Network Statue : ON")

            Else

                MsgBox("Network Statue : OFF")

            End If

        Catch ex As Exception

        End Try 


ادا كانت اي تلميحات من الاخوة المرجوا وضعها و هده الطريقة
مفيدة لمعرفة الانه يوجد اتصال بالانترنت عكس كود اخر يعطيك
الاتصال انك متصل بالروتر وعند نزع كابل يعطيك انه لا يوجد اتصال

PHP كود :

Dim internet As Boolean

        If My.Computer.Network.IsAvailable Then
            internet = True
        Else
            internet = False
        End If