+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [كود] فحص الانترنت عن طريق عمل ping (/showthread.php?tid=3136)
فحص الانترنت عن طريق عمل ping - vb_net - 08-06-14
السلام عليكم ورحمة الله
كود بسيط لفحص الانترنت عن طريق عمل ping
وانا اخترت موقع http://www.google.com ويمكنك ايضا تحديث وقت time out للفحص
اترككم مع الكود
ادا كانت اي تلميحات من الاخوة المرجوا وضعها و هده الطريقة
مفيدة لمعرفة الانه يوجد اتصال بالانترنت عكس كود اخر يعطيك
الاتصال انك متصل بالروتر وعند نزع كابل يعطيك انه لا يوجد اتصال
كود بسيط لفحص الانترنت عن طريق عمل 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
RE: فحص الانترنت عن طريق عمل ping - سعود - 08-06-14
ممكن تضعهم جميعا في سياق واحد
تتحقق اولا من الشبكة المحلية ثم تتحقق من رابط معين.
RE: فحص الانترنت عن طريق عمل ping - vb_net - 08-06-14
اخي سعود يعني اتحقق اولا ادا كان مربوط مع الروتر ثم مع الانترنت
وادا كان مربوط عبر الواي فاي هل ينجح ادا وضعناهم معا
RE: فحص الانترنت عن طريق عمل ping - سعود - 08-06-14
إقتباس : يعني اتحقق اولا ادا كان مربوط مع الروتر ثم مع الانترنتنعم هذا قصدي
إقتباس :وادا كان مربوط عبر الواي فاي هل ينجح ادا وضعناهم معالا ادري لم اتطرق لهذا من قبل.
RE: فحص الانترنت عن طريق عمل ping - vb_net - 08-06-14
يعني الطريقة الاولى تكفي
مادام غير متصل بالروتر فهدا يعني انه لا يوجد اتصال حتى مع الانترنت
وادا كان متصل بالواي فاي ولا توجد انترنت يعني غير متصل