[VB/API] - IP Statistics

[Madboy]

Private Type MIB_IPSTATS
dwForwarding As Long ' IP forwarding enabled or disabled
dwDefaultTTL As Long ' default time-to-live
dwInReceives As Long ' datagrams received
dwInHdrErrors As Long  ' received header errors
dwInAddrErrors As Long ' received address errors
dwForwDatagrams As Long ' datagrams forwarded
dwInUnknownProtos As Long  ' datagrams with unknown protocol
dwInDiscards As Long ' received datagrams discarded
dwInDelivers As Long ' received datagrams delivered
dwOutRequests As Long  '
dwRoutingDiscards As Long  '
dwOutDiscards As Long  ' sent datagrams discarded
dwOutNoRoutes As Long  ' datagrams for which no route exists
dwReasmTimeout As Long ' datagrams for which all
 
dwReasmReqds As Long ' datagrams requiring reassembly
dwReasmOks As Long  ' successful reassemblies
dwReasmFails As Long ' failed reassemblies
dwFragOks As Long  ' successful fragmentations
dwFragFails As Long ' failed fragmentations
dwFragCreates As Long  ' datagrams fragmented
dwNumIf As Long ' number of interfaces on computer
dwNumAddr As Long  ' number of IP address on computer
dwNumRoutes As Long ' number of routes in routing table
End Type
Private Declare Function GetIpStatistics Lib "iphlpapi" (pStats As MIB_IPSTATS) As Long
Private Sub Form_Load()
Dim IpStats As MIB_IPSTATS
GetIpStatistics IpStats
Me.AutoRedraw = True
With IpStats
Me.Print "IP forwarding enabled or disabled: " + CStr(CBool(.dwForwarding))
Me.Print "Default time-to-live: " + CStr(.dwDefaultTTL)
Me.Print "Successful reassemblies: " + CStr(.dwReasmOks)
Me.Print "Failed reassemblies: " + CStr(.dwReasmFails)
End With
End Sub