-2 
[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 で動作させてインターネット接続を確認したいと考えています。私はこれまでそれを管理できなかったので、専門家の誰かが助けてくれませんか?

4

1 に答える 1

2

これは、基になる 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を参照してください

于 2013-02-04T13:07:38.730 に答える