vb 检测是否突然断网

引用：http://topic.youkuaiyun.com/t/20040513/12/3062643.html

Private   Const   FLAG_ICC_FORCE_CONNECTION   =   &H1 
Private   Declare   Function   InternetCheckConnection   Lib   "wininet.dll "   Alias   "InternetCheckConnectionA "   (ByVal   lpszUrl   As   String,   ByVal   dwFlags   As   Long,   ByVal   dwReserved   As   Long)   As   Boolean 

If   InternetCheckConnection( "http://www.youkuaiyun.com ",   FLAG_ICC_FORCE_CONNECTION,   0&)   Then
... 
end   if