08-06-14, 02:51 PM
السلام عليكم ورحمة الله
كود بسيط لفحص الانترنت عن طريق عمل 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