在VB中怎么检测是否连通INTERNET？

Question

在VB中怎么检测是否连通INTERNET？谢了。

Answer 1

PINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPINGPING一下

Answer 2

在VB中怎么PING呀？能不能详细一下？给出相关语句好吗？

Answer 3

Option Explicit
Option Base 1Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32'
Public Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type'
Public Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type'A call to the function IsConnected returns true if the computer has established a connection to the internet.
Public Function IsConnected() As Boolean
On Error GoTo ERR_Handler
    Dim TRasCon(255)    As RASCONN95
    Dim lg              As Long
    Dim lpcon           As Long
    Dim RetVal          As Long
    Dim Tstatus         As RASCONNSTATUS95
    
    'Default values
    IsConnected = False
    
    '
    TRasCon(0).dwSize = 412
    lg = 256 * TRasCon(0).dwSize
    
    '
    RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
    If RetVal <> 0 Then
        GoTo exit_Entry
    End If
                        
    '
    Tstatus.dwSize = 160
    RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
    
    If Tstatus.RasConnState = &H2000 Then
        IsConnected = True
    End Ifexit_Entry:
    Exit Function
ERR_Handler:
    Resume exit_Entry
End Function