网络连接测速与流量问题?

Question

比如我现在有一个拨号连接,如何得到它连接时显示的最大速度?还有如何得到实时的网络传输速度和数据的字节流量?

Answer 1

http://www.5ivb.net/down/13/5ivb_541.asp

Answer 2

Public Const RAS_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 128
Public Const RAS95_MaxEntryName = 256
Public Type RASCONN95
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Type RASENTRYNAME95
    dwSize As Long
szEntryName(RAS95_MaxEntryName) As Byte
End Type
Public Declare Function RasEnumConnections Lib "RasApi32.DLL" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasEnumEntries Lib "RasApi32.DLL" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long
'---------------------------模块
Private Sub Command2_Click()
    Dim s As Long, l As Long, ln As Long, a$, b$
    b$ = List1.List(List1.ListIndex)
    ReDim R(255) As RASCONN95
    '一般设为412
    R(0).dwSize = 412
    s = 256 * R(0).dwSize
    '连接网络
    l = RasEnumConnections(R(0), s, ln)
    For l = 0 To ln - 1
        a$ = StrConv(R(l).szEntryName(), vbUnicode)
        a$ = Left$(a$, InStr(a$, Chr$(0)) - 1)
        If a$ = b$ Then
            MsgBox "已经连接"
            Exit Sub
        End If
    Next
    MsgBox "没有连接"
End Sub