[VB6] Bandwidth Monitor (internet and lan)

Hi all,

Only source NO compiled EXE

This app shows lan bandwidth in KB and internet bandwidth in KB.

Also shows combined total.

Please let me know what you think, I am sure it needs some minor adjustments but it works quite well.

Cheers
Dave

Not sure how well it counts traffic but the CPU usage seems high, compiled its using around 30% on my 2.2GHz.
http://img244.imageshack.us/img244/4070/bandwdthqc3.gif

Also might be nicer if it only updated like once per second.

It doesnt works for me :( This calling will gives -1 as a result.

Code:

---

ret = WSAIoctl(s, SIO_RCVALL, lngInBuffer, Len(lngInBuffer), _
lngOutBuffer, Len(lngOutBuffer), lngBytesReturned, ByVal 0, ByVal 0)

---

The calling values are, in order:
1424, -1744830463, 1, 4, 0, 4, 0, 0, 0

I have went thru all initializations in debug, line by line. I saw that it successfully identifies my ip address, that is i am using for internet. This is an Atheros miniPCI wifi card (on a Pci adaptor) i am using. There are also two lan ports in my pc, one is already connected to the notebook, for vpn.

Hi,

This was knocked together really quickly, so there will be a lot of bugs. At first I thought of using WMI to get sent/recieved but the problem there is its global sent/recieved. This app uses subnet anding to determine local and remote bandwidth.

As for high cpu usage, thats because it basically inspects each network packet and then determines the size of them, I am sure if I work on it a bit more then I can find another way to get the packet size.

I tested this on my notebook that also has an Atheros card... I get the same error. I wonder if its the different between ethernet and wireless packets.

Will look into it all of the above