🚀 go-pugleaf

devo visualizzare i bytes inviati e ricevuti di una connessione, ma i
valori restituiti sono sempre uguali a zero.
Perch�?

Option Explicit

Private Sub Form_Load()
    Dim i As Integer
    Dim RASEntN_Size As Long, RASEntN_Numb As Long, ret As Long
    Dim nome As String
    ReDim RASEntN(255) As RASENTRYNAME
    
    RASEntN(0).dwSize = 264
    RASEntN_Size = 256 * RASEntN(0).dwSize
    
    ret = RasEnumEntries(vbNullString, vbNullString, RASEntN(0),
RASEntN_Size, RASEntN_Numb)
    
    For i = 0 To RASEntN_Numb - 1
        nome = StrConv(RASEntN(i).szEntryName(), vbUnicode)
        connessioni.AddItem Left(nome, InStr(nome, Chr(0)) - 1)
    Next
End Sub

Private Sub Timer1_Timer()
    Dim W2000Stat As RAS_STATS
    Dim lngRet As Long
    
    lngRet = RasGetConnectionStatistics(lngHandleConnection,
W2000Stat)
    Caption = W2000Stat.dwBytesRcved & "-" & W2000Stat.dwBytesXmited
End Sub

Private Function lngHandleConnection() As Long
    Dim i As Integer
    Dim RASConnN_Size As Long, RASConnN_Numb As Long
    Dim nome As String
    Dim ret As Long
    
    ReDim RASCon(255) As RASCONN
    
    RASCon(0).dwSize = 412
    RASConnN_Size = 256 * RASCon(0).dwSize
    
    ret = RasEnumConnections(RASCon(0), RASConnN_Size, RASConnN_Numb)
    
    For i = 0 To RASConnN_Numb - 1
        nome = StrConv(RASCon(i).szEntryName(), vbUnicode)
        nome = Left(nome, InStr(nome, Chr(0)) - 1)

        If nome = connessioni.List(connessioni.ListIndex) Then
            lngHandleConnection = RASCon(i).hRasConn
            Exit For
        End If
    Next
End Function

''modulo RASApi
Option Explicit

Public Const RAS_MaxEntryName As Integer = 256 + 1

'Questi sono i valori dichiarati da Microsoft:
'Public Const RAS_MaxDeviceType = 16
'Public Const RAS_MaxDeviceName = 128
'Public Const RAS_MaxPhoneNumber = 128

Public Const RAS_MaxDeviceType As Integer = 16
Public Const RAS_MaxDeviceName As Integer = 128 + 1
Public Const RAS_MaxPhoneNumber = 128 + 1

Public Const RAS_MaxCallbackNumber = RAS_MaxPhoneNumber

Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0&

Public Type RASCONN
    dwSize As Long
    hRasConn As Long
    szEntryName(RAS_MaxEntryName) As Byte
    szDeviceType(RAS_MaxDeviceType) As Byte
    szDeviceName(RAS_MaxDeviceName) As Byte
End Type

Public Type RASENTRYNAME
    dwSize As Long
    szEntryName(RAS_MaxEntryName) As Byte
End Type

Public Type RAS_STATS
    dwSize As Long
    dwBytesXmited As Long
    dwBytesRcved As Long
    dwFramesXmited As Long
    dwFramesRcved As Long
    dwCrcErr As Long
    dwTimeoutErr As Long
    dwAlignmentErr As Long
    dwHardwareOverrunErr As Long
    dwFramingErr As Long
    dwBufferOverrunErr As Long
    dwCompressionRatioIn As Long
    dwCompressionRatioOut As Long
    dwBps As Long
    dwConnectDuration As Long
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
Public Declare Function RasHangUp Lib "RasApi32.DLL" Alias
"RasHangUpA" (ByVal hRasConn As Long) As Long
Public Declare Function RasCreatePhonebookEntry Lib "RasApi32.DLL"
Alias "RasCreatePhonebookEntryA" (ByVal hWND As Long, ByVal
lpszPhonebook As String) As Long
Public Declare Function RasEditPhonebookEntry Lib "RasApi32.DLL" Alias
"RasEditPhonebookEntryA" (ByVal hWND As Long, ByVal lpszPhonebook As
String, ByVal lpszEntryName As String) As Long
Public Declare Function RasDeleteEntry Lib "RasApi32.DLL" Alias
"RasDeleteEntryA" (ByVal pszPhonebook As String, ByVal lpszEntry As
String) As Long
Public Declare Function RasRenameEntry Lib "RasApi32.DLL" Alias
"RasRenameEntryA" (ByVal pszPhonebook As String, ByVal lpszOldEntry As
String, ByVal lpszNewEntry As String) As Long
Public Declare Function RasGetConnectionStatistics Lib "RasApi32.DLL"
(ByVal hRasConn As Long, lpStatistics As RAS_STATS) As Long
Public Declare Function RasGetLinkStatistics Lib "RasApi32.DLL" (ByVal
hRasConn As Long, ByVal dwSubEntry As Long, lpStatistics As RAS_STATS)
As Long