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的程序
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.St...
VB.net 如何ping一个ip地址并获取延迟值?
Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果 If b = True Then '指定时间内ping通 Shell("cmd \/c ping 192.168.1.1 >> C:\\time.txt") '在C盘time.txt文件中保存ping的结果 E...
vb.net 等待命令怎么写
echooffechohello>nulping127.1\/10echoworldpause::输出hello，延迟10秒后，输出world。::将\/10，改为\/100就延迟100秒。举一反三，你懂得……
如何在VB中使用PING命令
'标准模块Option ExplicitPublic Const IP_STATUS_BASE = 11000Public Const IP_SUCCESS = 0Public Const IP_BUF_TOO_SMALL = (11000 + 1)Public Const IP_DEST_NET_UNREACHABLE = (11000 + 2)Public Const IP_DEST_HOST_UNREACHABLE = (11000 + 3)Public Const IP_DEST_PROT_UNREACHABLE = (...
求VB按时间PING一个IP,并且显示速度。
Private Const PING_TIMEOUT As Long = 500 Private Const WS_VERSION_REQD As Long = &H101 Private Const MIN_SOCKETS_REQD As Long = 1 Private Const SOCKET_ERROR As Long = -1 Private Const INADDR_NONE As Long = &HFFFFFFFF Private Const MAX_WSADescription As Long = 256 Private...
跪求VB.NET 连接FTP
Imports System.Net Imports System.IO Module FtpSample Sub Main(ByVal args() As String)If args.Length = 0 OrElse args(0).Equals("\/?") Then DisplayUsage()ElseIf args.Length = 1 Then Download(args(0))ElseIf args.Length = 2 Then If args(0).Equals("\/list") Then List(...
VB定刷新检测局域网机器
可以用类似PING的方法，如果通则是开机ELSE关机。这样的方法检测速度就看代码的执行速度了。这样的方法跟扫描一样，扫描一个IP段是需要一定的时间的。其实有更快的方法：每台机器都安装一个CLIENT，本机安装成SERVER。CLIENT一运行自动向SERVER发送一条数据，这时不管是几十台还是几百台，SERVER就可以在1秒...
求大神指点vb.net 怎么判断 网络是否连接 和取本机局域网IP和互联网I...
可以区别本地地址和网络地址、ip6地址。你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。应该获取所有ip，再通过ip地址簇类型区分 判断连接本身有一个函数，不过有时没联网也是真。可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。
急急急 关于vb拼音查找问题
Public Function wordPing(ByVal word As String) As String '这个对比表只是一个大概,还不完善,对不少汉字不能识别 Dim myPing As Long = 65536 + Asc(word)Select Case myPing Case 45217 To 45252 Return "A"Case 45253 To 45760 Return "B"Case 45761 To 46317 Return "C"Case 46318 To...
VB 获取网络时间方法
Private Sub Command1_Click()Dim obj, OBJStatus, url, GetText, i Dim Retrieval url = "http:\/\/www.163.com"'判断网络是否连接 If url <> "" Then Set Retrieval = GetObject("winmgmts:\\\\.\\root\\cimv2")Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address ...
