url - 以编程方式检测丢失的 url 连接

Question

我正在使用 ole 对象 Shell.Explorer.2 在我的表单中显示一个网页。我需要能够检测到服务器/url 的连接是否丢失。

我想如果服务器出现故障或互联网连接中断，与服务器的连接就会丢失。如果连接丢失，我想关闭我的表单。没有重新连接。

Answer 1

InternetCheckConnection()

这就是答案。谢谢别列兹尼克先生

#DEFINE  FLAG_ICC_FORCE_CONNECTION 1
DECLARE LONG InternetCheckConnection IN Wininet.DLL ;
    STRING Url, ;
    LONG dwFlags, ;
    LONG Reserved
 
* Fast and reliable web site
lcUrl = "http://www.google.com"
 
IF InternetCheckConnection(lcUrl, FLAG_ICC_FORCE_CONNECTION, 0) <> 0
    ? "Connection is available"
ELSE
    ? "No Connection"
ENDIF