''' <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

轉載于:https://www.cnblogs.com/mingming00/p/8520333.html

總結

以上是生活随笔為你收集整理的VB.NET网络是否联通Function的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。