+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : لعمل Ping لسيرفر (/showthread.php?tid=6254)
لعمل Ping لسيرفر - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله وبركاتهكود :
private Sub pingServer(ByVal adress As String, ByVal timeout As Int32)
If My.Computer.Network.IsAvailable Then
Try
If My.Computer.Network.Ping(adress, timeout) Then
MsgBox(adress & vbCrLf & "ok", MsgBoxStyle.Information, Me.Text)
Else
MsgBox(adress & vbCrLf & "failled", MsgBoxStyle.Exclamation, Me.Text)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub