Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site
Reply

Join Date: Sep 2005
Posts: 4
Reputation: bybruno is an unknown quantity at this point 
Solved Threads: 0
bybruno bybruno is offline Offline
Newbie Poster

hi

 
0
  #1
Sep 19th, 2005
hi
i try building a bandwith monitor with the report of total
connections to/from my pc so far i do a report of ip source/destination
but now i want to know the lenght of data that belong to each ip.
for example: i want to know de down/upload of each ip

i download examples of bandwith monitor but none of them have that information down/upload of each ip

any one can help me?
thanks a lot
bybruno
Reply With Quote Quick reply to this message  
Join Date: Jun 2005
Posts: 121
Reputation: jwshepherd is an unknown quantity at this point 
Solved Threads: 5
jwshepherd's Avatar
jwshepherd jwshepherd is offline Offline
Junior Poster

Re: hi

 
0
  #2
Sep 20th, 2005
What object are you using for the ip information. There should be a method there to calculate the bytes used.
.: We may acquire liberty, but it is never recovered if it is lost :.
irc://irc.rizon.net/#itf
Reply With Quote Quick reply to this message  
Join Date: Sep 2005
Posts: 4
Reputation: bybruno is an unknown quantity at this point 
Solved Threads: 0
bybruno bybruno is offline Offline
Newbie Poster

Re: hi

 
0
  #3
Sep 21st, 2005
here is some part of the code that get the ip:

Private Declare Function GetProcessHeap Lib "kernel32" () As Long
Private Declare Function AllocateAndGetTcpExTableFromStack Lib "iphlpapi.dll" (pTcpTableEx As Any, ByVal bOrder As Long, ByVal heap As Long, ByVal zero As Long, ByVal flags As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

''there we get the ip
CopyMemory nRemoteAddr, ByVal pTablePtr + (pDataRef + 16), 4

Public Function GetIPAddress(dwAddr As Long) As String
Dim arrIpParts(3) As Byte
CopyMemory arrIpParts(0), dwAddr, 4
GetIPAddress = CStr(arrIpParts(0)) & "." & _
CStr(arrIpParts(1)) & "." & _
CStr(arrIpParts(2)) & "." & _
CStr(arrIpParts(3))
End Function



''and the result display there
MsgBox GetIPAddress(nRemoteAddr)

now i want to know who get the down and upload information
for that ip.


can you help me?
thanks a lot
bybruno
Reply With Quote Quick reply to this message  
Join Date: Jun 2005
Posts: 121
Reputation: jwshepherd is an unknown quantity at this point 
Solved Threads: 5
jwshepherd's Avatar
jwshepherd jwshepherd is offline Offline
Junior Poster

Re: hi

 
0
  #4
Sep 22nd, 2005
It looks like in the CopyMemory function the ByVal is the length of the data passed from destination to source or vice versa. Check this value debug.print byVal in the function to see what it contains with different pings , and arps.
.: We may acquire liberty, but it is never recovered if it is lost :.
irc://irc.rizon.net/#itf
Reply With Quote Quick reply to this message  
Join Date: Sep 2005
Posts: 2
Reputation: srjtpl is an unknown quantity at this point 
Solved Threads: 0
srjtpl srjtpl is offline Offline
Newbie Poster

Re: hi

 
0
  #5
Oct 3rd, 2005
please tell me how to display the previous month
Reply With Quote Quick reply to this message  
Join Date: Jun 2005
Posts: 121
Reputation: jwshepherd is an unknown quantity at this point 
Solved Threads: 5
jwshepherd's Avatar
jwshepherd jwshepherd is offline Offline
Junior Poster

Re: hi

 
0
  #6
Oct 3rd, 2005
Text1.Text = MonthName(Month(DateAdd("m", -1, Date)))
.: We may acquire liberty, but it is never recovered if it is lost :.
irc://irc.rizon.net/#itf
Reply With Quote Quick reply to this message  
Join Date: Sep 2005
Posts: 2
Reputation: srjtpl is an unknown quantity at this point 
Solved Threads: 0
srjtpl srjtpl is offline Offline
Newbie Poster

Re: hi

 
0
  #7
Oct 4th, 2005
Hi

I Have Some Problem In Visual Basic Code. I Have Two Dttpicker - 1) From And 2) To . There Are Three Text Box - 1) First Text Box Directly Goes To From Date (first Dtpicker) 2) Second Goes To Date(second Dtpicker) 3) Difference Between Two Date(no Of Leave). Our Validation Is When No Of Leave Exceeds 30 Days It Will Automatically Display The Message Box Displays "leave Without Pay" . Please Help Help Me.

Thanking You

Surojit
Reply With Quote Quick reply to this message  
Reply

This thread is more than three months old.
Perhaps start a new thread instead?
Message:



Other Threads in the Visual Basic 4 / 5 / 6 Forum
Thread Tools Search this Thread



About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC