在BeforeConnectOuterDataSource写了判断网络是否能连接上的代码：

If TryConnectHost(db_IP) Then
    If Network.Ping(db_IP) = False Then
        MessageBox.Show("网络不通,请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        Syscmd.Project.Exit(False) \'退出系统
    End If
End If

经常都要打开系统3次才能登陆，网络是正常的，是否是默认的连接判断时间太短了，tryconnectHost和

network.ping的默认的时间是多少秒连接不上就会往下执行？

如果用If Network.Ping(db_IP，5000) = False Then的话，如果网络比较顺畅也要等5秒，有点浪费时间，怎么样判断地能实现如果网络立刻连通就直接执行后面的代码，不要等5秒，如果5秒后还连接不上才提示？

谢谢！

我现在这样写 If Network.Ping(db_IP) = False Then  系统是按多少时间来判断的叱？如果按BIN老师那样才0.5秒会不会和我现在一样，当网络可以连接只是可能连接的要慢点时就会提示并退出了。

谢谢！那这个有没有时间限制叱？还是0.5秒吗？

If TryConnectHost(db_IP) Then

。。。

End If

那就这样写了，是不是？

If TryConnectHost(db_IP) Then
    For i As Integer = 0 To 2
        If Network.Ping(db_IP) = False Then
            If i > 2 Then
                MessageBox.Show("网络不通,请联系管理员!"）

                Syscmd.Project.Exit(False) \'退出系统

                return 
            End If
        Else
            Exit For
        End If
    Next
End If

还有个问题为什么如果没连接上退出时桌面上还会显示“正在打开文件”的文字也要几秒才消失。退出时要怎么才能禁止运行后面的代码，上面return好象不起作用

return 改成 e.Cancel = true，这一句不需要 Syscmd.Project.Exit(False) \'退出系统

代码写到BeforeOpenProject事件