[2008] Ping Tool that looks exactly as in the command prompt
Ei, can anybody help me to develop a software that produce exactly or not some information when using Ping. like, Ping Statistics etc.
Code:
Try
p = New Ping
pReply = p.Send(CF.Text)
stat = pReply.Status.ToString
If stat = "Success" Then
stat = "Successful! [TTL=" & pReply.Options.Ttl & "]"
ElseIf stat = "TimedOut" Then
stat = "Request Timed Out!"
End If
Catch pExc As PingException
stat = pExc.InnerException.Message
stat = "Invalid Host"
End Try