主题：当项目链接不上数据库服务器的时候 弹出Sql server 不存在或拒绝访问 然后项目一直卡起来了

BeforeShowErrorMessage代码如下：

if vars("已弹出") = false

If e.message1.Contains("一般性网络错误") OrElse e.message1.Contains("Sql server 不存在或拒绝访问") Then
    e.Cancel = True

vars("已弹出") = true
    MessageBox.Show("数据库服务器链接失败,系统即将退出!")
    Syscmd.Project.Exit()
End If

end if

至于【当指定的ip无法ping通的时候，但是实际上ip在cmd下又是可以ping通的】，在网络不稳定的时候会有这种情况的，这几秒钟连不上，下几秒钟可能就连上了。来自己写日志记录一下，当时ping不通的是哪一个IP。也可以考虑网上下载些网络监控软件，看看网络的连接情况