主题：[求助]如何对于网络不好的时候禁止操作

1、定时ping一下服务器或者某个网站，如果ping不通或者出错，就禁止使用，如下代码

If TryConnectHost("192.168.1.1") = False OrElse Network.Ping("192.168.1.1") = False Then
    msgbox("服务器不可用")
    systemready = False
    Do until TryConnectHost("192.168.1.1") AndAlso Network.Ping("192.168.1.1")
        application.Doevents
    Loop
    systemready = True
End If
msgbox("ok，可以继续用")

2、beforeLoad事件弹出窗口提示加载，afterLoad事件关闭提示窗口。

呃，测速的过程中，就占用带宽的，不建议这样做。

测试的方法：下载一个文件，记录间隔时间；下载完成后，读取文件大小，和时间相除

Dim pt As Date = Date.Now
Network.DownloadFile("http://www.foxtable.com/download/80211/update.txt", "d:\test.txt", "" ,"" ,False, 100000, True)
Dim sp As TimeSpan = Date.Now - pt
Dim finfo As New FileInfo("d:\test.txt")
msgbox(finfo.Length / sp.TotalSeconds & "KB/S")

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
p.StandardInput.WriteLine("ping 192.168.1.1 -n 1")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strRst)

Dim mc = System.Text.RegularExpressions.Regex.Matches(strRst, "(?<=平均 \=).*")

msgbox(mc(0).value)