Internet activity

[Gintaras]

Function ActiviteInternet

Code:

Copy      Help

;/
function! $mibName MIB_IF_ROW2&mibInfo

;If finds mibName, stores its info in variable mibInfo and returns 1. Else returns 0.

;EXAMPLE
;#compile __api63429 ;;MIB_IF_ROW2 declared there
;MIB_IF_ROW2 r
;if ActiviteInternet("my-adapter" r)
,;out F"{&r.Description%%S}"


MIB_IF_TABLE2* t
int hr=GetIfTable2(&t); if(hr) end _s.dllerror("" "" hr)

int found
for _i 0 t.NumEntries
,MIB_IF_ROW2& r=t.Table[_i]
,;out F"{&r.Description%%S}"
,if(strcmp(mibName F"{&r.Description%%S}")!=0) continue
,mibInfo=r
,found=1; break
FreeMibTable t
ret found

Function __api63429

Code:

Copy      Help

type NET_LUID_LH %Value []%Info
type MIB_IF_ROW2 NET_LUID_LH'InterfaceLuid InterfaceIndex GUID'InterfaceGuid @Alias[257] @Description[257] PhysicalAddressLength !PhysicalAddress[32] !PermanentPhysicalAddress[32] Mtu Type TunnelType MediaType PhysicalMediumType AccessType DirectionType !InterfaceAndOperStatusFlags OperStatus AdminStatus MediaConnectState GUID'NetworkGuid ConnectionType %TransmitLinkSpeed %ReceiveLinkSpeed %InOctets %InUcastPkts %InNUcastPkts %InDiscards %InErrors %InUnknownProtos %InUcastOctets %InMulticastOctets %InBroadcastOctets %OutOctets %OutUcastPkts %OutNUcastPkts %OutDiscards %OutErrors %OutUcastOctets %OutMulticastOctets %OutBroadcastOctets %OutQLen
type MIB_IF_TABLE2 NumEntries MIB_IF_ROW2'Table[1]
dll iphlpapi #GetIfTable2 MIB_IF_TABLE2**Table
dll iphlpapi #GetIfTable2Ex Level MIB_IF_TABLE2**Table
dll iphlpapi FreeMibTable !*Memory

2. Look in MSDN Library.