如果网络经常不好，可以做延迟保存，使用2套数据库，一个远程数据库，一个本地数据库，结构一样。

ping 一下网络，设置超时时间，超时认为不通，使用本地数据库。当网络通畅的时候，适当的时机再进行远程和本地数据库的更新。

这种作法对及时性要求高的系统不适合，而且对设计要求较高。

所以还是.......装个速度高点的宽带吧......

LoadFilter 的加载无法实现进度条提示

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)