主题：一般性网络错误

函数已重新更改

If vars("已弹出") = False

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

        e.Cancel = True

        vars("已弹出") = True

        Functions.Execute("网络错误")   函数内容是  Forms("网络错误").open()

    End If

Else

    e.Cancel = True

End If

弹出下面的的界面，会卡顿几分钟，然后就可以正常拖动了。 此窗口大概 断网20秒后自动断开，大概2分钟后可以正常移动窗口