Jump to content
Sign in to follow this  
neo van matix

Read out the traffic of a connection?

Recommended Posts

neo van matix

Hi,

when i'm out of my work / home, i usualy use my notebook + an umts-mobile phone to check my mails, surf, play...

Each tool, like o2 network manager, or my sony-ericcson pc suite, show the traffic of the umts-connection in Bytes. Thats not really easy to read - i need everytime calc, to find out how many traffic i've used this month.

Is there any possibilty to read out the traffic of an Dialup-Connection ?

lg


Attention! English noob ^^

Share this post


Link to post
Share on other sites
ptrex

@neo van matix

Maybe this can get you started

#include <GUIConstants.au3>
#include <Constants.au3>
Opt("GUIOnEventMode", 1)

; == GUI generated with Koda ==);
$NetGUI = GUICreate("NetStats", 293, 190, 195, 148)
GUICtrlCreateLabel("Uploaded", 8, 8, 73, 20, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$UpLoad = GUICtrlCreateLabel("Upload", 8, 32, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

GUICtrlCreateLabel("Downloaded", 176, 8, 91, 20, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$Download = GUICtrlCreateLabel("Download", 176, 32, 105, 20, BitOR($SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Up = GUICtrlCreateLabel("TodayUp", 8, 96, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

$Down = GUICtrlCreateLabel("TodayDown", 176, 96, 100, 20, BitOR($SS_SUNKEN,$WS_GROUP))
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")

GUICtrlCreateLabel("Today", 8, 72, 49, 20, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")

$Reset = GUICtrlCreateButton("Reset", 104, 156, 73, 25)

;GUICtrlSetOnEvent ( $Reset, "_reset" )

GUISetOnEvent(-3, "_exit")

GUISetState(@SW_SHOW)

$UpStr = 0
$DownStr = 0
$Tup = 0
$Tdwn = 0


_netstat($UpStr,$DownStr); Get inital values
$Tup = $UpStr
$Tdwn = $DownStr

While 1
    _netstat($UpStr,$DownStr)
    GUICtrlSetData($Download,$DownStr)
    GUICtrlSetData($Upload,$UpStr) 
    $TodayUp =  $UpStr - $Tup
    $TodayDown = $DownStr - $Tdwn
    GUICtrlSetData($Up, $TodayUp)
    GUICtrlSetData($Down, $TodayDown)
    Sleep(1000)
WEnd    

Func _netstat( ByRef $UpStr, ByRef $DownStr)
    $NetStat = Run(@comspec & " /c netstat -e", @SystemDir, @SW_HIDE,2)
    $Line = StdOutRead ($NetStat,130)
    $Start = StringInStr ( $Line, "Bytes")
    $Line = StringMid ( $Line, $start + 5 )
    $Line = StringStripWS ( $Line, 7 )
    $Lines = StringSplit($Line," ")
    $UpStr = $Lines[2]
    $DownStr = $Lines[1]
EndFunc    

;Func _Reset(ByRef $TUp, ByRef $TDwn)
;   _netstat($UpStr,$DownStr)
;    $Tup = $UpStr
;    $Tdwn = $DownStr
;EndFunc

Func _exit()
    Exit
EndFunc

regards

ptrex

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×