VB6中的InternetCheckConnection返回false

Question

不是VB6专家...试图想出一个调用InternetCheckConnection的VB6测试应用程序。在我的测试应用程序中，无论我使用哪个URL，InternetCheckConnection始终返回false。我从一个较大的意大利面条代码应用程序复制并粘贴了这段代码，但在意大利面条代码中，InternetCheckConnection似乎工作正常，返回true。

为了让InternetCheckConnection正常工作，我还需要先调用一些其他功能吗？

Answer 1

尝试使用InternetGetConnectedState函数。

私有声明功能InternetGetConnectedState Lib“wininet.dll”（ByRef lpSFlags As Long，ByVal dwReserved As Long）As long

Dim blnInternetConnected as Boolean 昏暗的旗帜

blnInternetConnected = InternetGetConnectedState（Flags，0＆amp;）

Answer 2

也许，在“spaghetti-code”应用程序中，InternetCheckConnection依赖于您不知道的某个全局变量的状态。这可能吗？

Answer 3

我能够通过包含网站的完整地址（包括“http：//”）使InternetCheckConnection正常工作。例如，使用“www.google.com”返回False，但“http://www.google.com”返回true。