module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 15 行

Module Module1
    Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Boolean

    Public Enum Flags
        '当前系统使用网卡连接Internet
        INTERNET_CONNECTION_LAN = &H2S
        '当前系统使用Modem连接Internet
        INTERNET_CONNECTION_MODEM = &H1S
        '当前系统使用代理服务器连接Internet
        INTERNET_CONNECTION_PROXY = &H4S
        '当前系统安装了RAS
        INTERNET_RAS_INSTALLED = &H10S
    End Enum
End Module