Jump to content
Sign in to follow this  
circcc

need, Network Traffic Speed UDF

Recommended Posts

circcc

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
ptrex

@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

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.