vb.net - 互联网连接测试 (VB.NET)

Question

[Activator]::CreateInstance([Type]::GetTypeFromCLSID([Guid]‘{DCB00C01-570F-    4A9B-8D69-199FDBA5723B}’)).IsConnectedToInternet

http://blogs.msdn.com/powershell/archive/2009/04/03/setting-network-location-to-private.aspx

我从上面的源代码中找到了这个 PowerShell 代码，它按预期工作，但是我想让它在 VB.NET 中工作以检查 Internet 连接。可以请一位专家帮忙吗，因为到目前为止我一直无法管理它？

Answer 1

这是底层 wininet API 的简单接口。

Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ 
                (ByRef lpdwFlags As Int32, ByVal dwReserved As Int32) As Boolean        
Public Shared Function IsConnectedToInternet( ) As Boolean
    Try
        Dim flags as Integer;
        return InternetGetConnectedState(flags, 0)
    Catch
        return False
    End Try
End Function

请参阅PInvoke.net