Keskustelu: Ohjelmointikysymykset: VB6: nettimonitorointia

Private Type PMIB_TCPSTATS
    dwRtoAlgorithm As Long    ' time-out algorithm
    dwRtoMin As Long          ' minimum time-out
    dwRtoMax As Long          ' maximum time-out
    dwMaxConn As Long         ' maximum connections
    dwActiveOpens As Long     ' active opens
    dwPassiveOpens As Long    ' passive opens
    dwAttemptFails As Long    ' failed attempts
    dwEstabResets As Long     ' established connections reset
    dwCurrEstab As Long       ' established connections
    dwInSegs As Long          ' segments received
    dwOutSegs As Long         ' segment sent
    dwRetransSegs As Long     ' segments retransmitted
    dwInErrs As Long          ' incoming errors
    dwOutRsts As Long         ' outgoing resets
    dwNumConns As Long        ' cumulative connections
End Type
Private Declare Function GetTcpStatistics Lib "iphlpapi" (pStats As PMIB_TCPSTATS) As Long
Private Sub Timer1_Timer()
    List1.Clear
    Dim TcpStatistic As PMIB_TCPSTATS
    GetTcpStatistics TcpStatistic
    With TcpStatistic
        List1.AddItem "Saapuneet segmentit" & CStr(.dwInSegs)
        List1.AddItem "Lähetetyt segmentit" & CStr(.dwOutSegs)
    End With
End Sub