我要评论''' <summary>
''' IP Ping
''' </summary>
''' <param name="strIpOrDName">IP地址</param>
''' <returns>是否成功</returns>
''' <remarks></remarks>
Private Function PingIpOrDomainName(ByVal strIpOrDName As String) As Boolean
Dim objPingSender As New Ping
Dim objPinOptions As New PingOptions()
objPinOptions.DontFragment = True
Dim data As String = theData
Dim buffer() As Byte = Encoding.UTF8.GetBytes(data)
Dim intTimeout As Integer = 120
Dim objPinReply As PingReply = objPingSender.Send(strIpOrDName, intTimeout, buffer, objPinOptions)
Dim strInfo As String = objPinReply.Status.ToString()
If strInfo = "Success" Then
Return True
End If
Return False
End Function
如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！
网友评论