[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 


[سعود]

ممكن تضعهم جميعا في سياق واحد
تتحقق اولا من الشبكة المحلية ثم تتحقق من رابط معين.

[vb_net]

اخي سعود يعني اتحقق اولا ادا كان مربوط مع الروتر ثم مع الانترنت

وادا كان مربوط عبر الواي فاي هل ينجح ادا وضعناهم معا

[سعود]

إقتباس : يعني اتحقق اولا ادا كان مربوط مع الروتر ثم مع الانترنت

نعم هذا قصدي

إقتباس :وادا كان مربوط عبر الواي فاي هل ينجح ادا وضعناهم معا

لا ادري لم اتطرق لهذا من قبل.

[vb_net]

يعني الطريقة الاولى تكفي

مادام غير متصل بالروتر فهدا يعني انه لا يوجد اتصال حتى مع الانترنت

وادا كان متصل بالواي فاي ولا توجد انترنت يعني غير متصل