主题：不提示，创建外部链接失败

BeforeOpenProject代码：

    If Network.Ping("www.baidu.com") = false Then

        e.Cancel = True
        e.HideSplashForm = True
        Messagebox.Show("网络无法连接!","温馨提示")
    End If