[VB6] Rilevazione traffico dati

[stejano]

devo fare un programma che rilevi il traffico dati in entrata ed in uscita che si effettua quando si è connessi ad internet.....come devo fare?cosa devo usare per rilevarlo?

[oregon]

Comincia da WMI

Dim oWMI As Object
Dim colItems As Object
Dim objItems As Object

Set oWMI = GetObject("winmgmts:")
Set colItems = oWMI.ExecQuery("Select * FROM Win32_PerfRawData_Tcpip_NetworkInterface ")
For Each objItems In colItems
    Print "Interface: " & objItems.Name & " Rec (B/s): " & objItems.BytesReceivedPerSec & " Snd (B/s): " & objItems.BytesSentPerSec
Next