Sign in to follow this  
Followers 0
circcc

need, Network Traffic Speed UDF

3 posts in this topic

I want to shutdown my system, when internet traffic speed is lower than xx b/s for some minutes.

please make UDF for network traffic speed.

I think this UDF is essential. Is't it?

regards.

Share this post


Link to post
Share on other sites



@circcc

You can start with this.

#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

thanks, ptrex.

good idea.

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  
Followers 0