项目启动前先判断IP是否可以ping  如果可以就进入系统  反之就直接退出！

Dim ipFile As String = ProjectPath & "\\Attachments\\ip.txt"
If Filesys.FileExists(ipFile) Then
    Dim ip As String = FileSys.ReadAllText(ipFile)
    If Network.Ping(ip) Then   
    Else
        e.Cancel = True
        e.HideSplashForm = True
        Messagebox.Show("该数据库服务器不可用,无法打开此项目!" & vbcrlf & "请联系系统管理员处理!","温馨提示")   
    End If
End If

错误信息提示屏蔽：

If e.message1.Contains("一般性网络错误") Then
    e.Cancel = True
End If

上述代码运行之后  在启动时可以达到预期

启动后，ip中断后，会报错！有没有办法在ip中断的时候  所有定时计划任务全部暂停，待ip正常后，在恢复计划执行。