在BeforeShowErrorMessage事件:
If e.Message2.indexof("一般性网络错误") > -1 Or e.Message2.indexof("SQL Server 不存在") > -1 Then
if vars("ErrorMessage") = false then
vars("ErrorMessage") = true
MessageBox.Show("网络不通,程序将退出", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
Syscmd.Project.Exit(False)
end if
end if