请各位高手帮个忙怎样才能判断是否能与Inteter网通的

Question

vb代码，vc代码都行，快快呀。。

Answer 1

Public Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As BooleanPublic Const INTERNET_CONNECTION_MODEM = 1
Public Const INTERNET_CONNECTION_LAN = 2
Public Const INTERNET_CONNECTION_PROXY = 4
Public Const INTERNET_CONNECTION_MODEM_BUSY = 8Private Sub Command1_Click()
Dim flags As Long
Dim result As Boolean    result = InternetGetConnectedState(flags, 0)
    If result Then
        Print "Connected to the Internet"
    Else
        Print "Not Connected to the Internet"
    End If
     
    If flags And INTERNET_CONNECTION_MODEM Then Print "Connection Via Modem"
    If flags And INTERNET_CONNECTION_LAN Then Print "Connecion Via LAN"
    If flags And INTERNET_CONNECTION_PROXY Then Print "Connection uses a Proxy"
    If flags And INTERNET_CONNECTION_MODEM_BUSY Then Print "Connection Via Modem but modem is busy"End Sub