vb中怎么判断计算机是否已经连上Internet了？

Question

ping ip地质
又现成的代码,21号可以给你源代码,现在我要考试

Answer 1

http://www.applevb.com/sourcecode/connect_to_net.zip
检测是否连接到Internet以及是通过何种方式（Modem,LAN,Proxy）连接到Internet的。

Answer 2

Copy来的,没试过.Public 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
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
                    MsgBox "ERROR"
                    Exit Function
                    End If
'
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
                         IsConnected = True
                         Else
                         IsConnected = False
                         End IfEnd Function

Answer 3

上面的例子太复杂了，看我的：
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As LongPublic Function IsConnected() As Boolean
    IsConnected = InternetGetConnectedState(0&, 0&)
End Function呵呵，分你可赖不了我！

Answer 4

呵呵，这些代码都上不可靠的
lcooky(今夜无雪)更是错得一塌糊涂，简直是乱搞！

Answer 5

  这是个老话题了。建议你搜一搜。  现在的代码，没有一个可以保证100％测出来，我见过的最好的一个还不支持Me，测不出ADSL。其他的更差。这些你都可以从以前的帖子的讨论中看出来。