锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net中ping的简单介绍( 三 )

IT技术const


Ping = ECHO.status
Call IcmpCloseHandle(hPort)
End If
Else
Ping = INADDR_NONE
End If
Exit Function
ErrLine:
Ping = INADDR_NONE
End Function
Public Function PingIP(ByVal szIp As String) As Boolean
On Error GoTo ErrLine
Dim WSAD As WSADATA
Dim ECHO As ICMP_ECHO_REPLY
Dim ret As Long
'Delay 150
PingIP = False
PingTime = Empty
If WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS Then
ret = Ping(Trim(szIp), "tanaya", ECHO)
PingTime = ECHO.RoundTripTime
If InStr(1, GetStatusCode(ret), "success")0 Then
WSACleanup
PingIP = True
PingTime = ECHO.RoundTripTime
Exit Function
End If
End If
Exit Function
ErrLine:
End Function
然后建立一窗体，一command
Private Sub Command1_Click()
If PingIP("你需要访问的ip") = True Then
'你自己增加需要执行的代码
else
'增加不联网时需要执行的代码
end if
求大神指点vb.net 怎么判断 网络是否连接 和取本机局域网IP和互联网IP你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址 。
你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面 。
应该获取所有ip，再通过ip地址簇类型区分
判断连接本身有一个函数 ， 不过有时没联网也是真 。
可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机 。
VB.net 如何ping一个ip地址并获取延迟值？Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果vb.net中ping，true表示通vb.net中ping，false表示不通vb.net中ping ， 1000表示1000毫秒内返回结果
If b = True Then '指定时间内ping通
Shell("cmd /c ping 192.168.1.1C:\time.txt") '在C盘time.txt文件中保存pingvb.net中ping的结果
Else '超时
MsgBox("999") '弹出999提示
End If
用VB.NET怎么编一个ping的程序详见下面代码
Dim m_ping As New System.Net.NetworkInformation.Ping
Dim m_PingReply As System.Net.NetworkInformation.PingReply = m_ping.Send("192.168.1.1", 1000)'设置为自己要ping的ip地址
If m_PingReply.Status = Net.NetworkInformation.IPStatus.Success Then
MsgBox(m_PingReply.RoundtripTime)'返回网络延迟
Else'返回不通的原因
MsgBox(m_PingReply.Status.ToString)
End If
【vb.net中ping的简单介绍】关于vb.net中ping和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：插座灯亮电视没电怎么回事，电灯亮插座没电怎么办

下一篇：美国为什么要断根服务器，美国为什么把跟服务器给中国