slaughter Posted June 19, 2008 Share Posted June 19, 2008 (edited) expandcollapse popup#include <Array.au3> $avArray = _ArrayCreate( "average" ) $server = "lirknvd-11"; Host from whre $reklama = "http://"& $server &"/files/8.1.10.50.EXE"; Full link formation $size = InetGetSize($reklama); Geting size of remote file Global $i = 0;Varible Global $new = 0;Varible Global $speed = 0;Varible Global $left = 0;Varible $begin = TimerInit(); Timer start for 1 second determination $start = TimerInit(); Timer for link speed counting InetGet($reklama , "version.txt", 1,1); start downloading file to version txt file While @InetGetActive;;P Read manual noooby;) $dif = TimerDiff($begin); time difrence If $dif >= 1000 Then; If difrence hiher tyhen 1 sec if $i >0 Then $rr = TimerDiff($start) /1000/ $i $left = (100-$i) * Round($rr,1) else $left = "Skaicuojama..."; text to output whn speed is counting and no vaible to show EndIf $last = $new $new = @InetGetBytesRead $speed = Round(($new - $last) /1024) _ArrayAdd( $avArray,$speed); Add cur speed to array $begin = TimerInit() EndIf $i = round(100 / $size * @InetGetBytesRead) ;displaying ; $i = percent downloaded ; $left = left seconds to complete to download ; $speed = curent link speed ; sp_average($avArray) = Speed average of all download time TrayTip("Atsiunciamas atnaujinimo failas", " PARSIUSTA: " & $i & "% Liko: " & $left & " sek Greitis: " & $speed & " kB/s Vidurkis: "& sp_average($avArray) & "kB/s" , 10, 16) MsgBox(1, "Status", " PARSIUSTA: " & $i & "% Liko: " & $left & " Greitis: " & $speed & " kB/s Vidurkis: "& sp_average($avArray) & "kB/s", 2) Sleep(500) Wend Func sp_average($arr) ;~ _ArrayDisplay($arr) $average = 0 $count = UBound($arr) -1 For $r = 1 to UBound($arr,1) - 1 $average = $average + $arr[$r] ConsoleWrite("$average=" & $average & @CRLF) ConsoleWrite("$r=" & $r & @CRLF) Next $averagex = $average / ($r -1) ConsoleWrite("$average=" & $averagex & @CRLF) Return Round($averagex) EndFunc Update: ________Addeded average of speed (thanks Michel Claveau for idea) Bugs: ________Some how Tray tip does not displays for me?????? Why? Inprove ideas ect? Edited June 19, 2008 by slaughter In progress: Windows Server bruteforce GUARD Admin Tools (Remote client control) Bypasing firewall Old stuff: [font="Verdana;"]MD5 Auto Update Calendar XP SS multi usser server & client Autoit Remote Control (ARC)[/font] Link to comment Share on other sites More sharing options...
sandin Posted June 19, 2008 Share Posted June 19, 2008 download a file without saving it to hdd? Some cool glass and image menu | WinLIRC remote controler | Happy Holidays to all... | Bounce the sun, a game in which you must save the sun from falling by bouncing it back into the sky | Hook Leadtek WinFast TV Card Remote Control Msges | GDI+ sliding toolbar | MIDI Keyboard (early alpha stage, with lots of bugs to fix) | Alt+Tab replacement | CPU Benchmark with pretty GUI | Ini Editor - Edit/Create your ini files with great ease | Window Manager (take total control of your windows) Pretty GUI! | Pop-Up window from a button | Box slider for toolbar | Display sound volume on desktop | Switch hotkeys with mouse scroll Link to comment Share on other sites More sharing options...
slaughter Posted June 19, 2008 Author Share Posted June 19, 2008 download a file without saving it to hdd? InetGet($reklama , "version.txt", 1,1); does save file to version.txt file In progress: Windows Server bruteforce GUARD Admin Tools (Remote client control) Bypasing firewall Old stuff: [font="Verdana;"]MD5 Auto Update Calendar XP SS multi usser server & client Autoit Remote Control (ARC)[/font] Link to comment Share on other sites More sharing options...
Michel Claveau Posted June 19, 2008 Share Posted June 19, 2008 (edited) Hi! Easy & efficient. Thanks. Perhaps, you can separate (add?) average speed & last speed (for cases where speed change during download). Edited June 19, 2008 by Michel Claveau Link to comment Share on other sites More sharing options...
slaughter Posted June 19, 2008 Author Share Posted June 19, 2008 Hi!Easy & efficient. Thanks.Perhaps, you can separate (add?) average speed & last speed (for cases where speed change during download).Good idea wonking on it now In progress: Windows Server bruteforce GUARD Admin Tools (Remote client control) Bypasing firewall Old stuff: [font="Verdana;"]MD5 Auto Update Calendar XP SS multi usser server & client Autoit Remote Control (ARC)[/font] Link to comment Share on other sites More sharing options...
sandin Posted June 19, 2008 Share Posted June 19, 2008 I see it now, cool, but what if I download something else, instead of txt file? p.s. I have the "tray not display" bug too, and it occurs sometimes not always, I think it's Window's problem, not scripting prob. Some cool glass and image menu | WinLIRC remote controler | Happy Holidays to all... | Bounce the sun, a game in which you must save the sun from falling by bouncing it back into the sky | Hook Leadtek WinFast TV Card Remote Control Msges | GDI+ sliding toolbar | MIDI Keyboard (early alpha stage, with lots of bugs to fix) | Alt+Tab replacement | CPU Benchmark with pretty GUI | Ini Editor - Edit/Create your ini files with great ease | Window Manager (take total control of your windows) Pretty GUI! | Pop-Up window from a button | Box slider for toolbar | Display sound volume on desktop | Switch hotkeys with mouse scroll Link to comment Share on other sites More sharing options...
Nbanonimous Posted June 19, 2008 Share Posted June 19, 2008 what exactly does this do? download files? Best Free Undetectable Proxies!www.CPUMod.netwww.CellFoneTrader.comwww.TindoraFarms.com Link to comment Share on other sites More sharing options...
slaughter Posted July 12, 2008 Author Share Posted July 12, 2008 Working ? muttley any comments? In progress: Windows Server bruteforce GUARD Admin Tools (Remote client control) Bypasing firewall Old stuff: [font="Verdana;"]MD5 Auto Update Calendar XP SS multi usser server & client Autoit Remote Control (ARC)[/font] Link to comment Share on other sites More sharing options...
Michel Claveau Posted July 13, 2008 Share Posted July 13, 2008 Hi!Working ? muttley any comments? Working!I took your code ; I modified it for my needs, and I use it. Link to comment Share on other sites More sharing options...
slaughter Posted July 22, 2008 Author Share Posted July 22, 2008 Hi!Working!I took your code ; I modified it for my needs, and I use it. nice muttley Maybe you can put your pice of code? In progress: Windows Server bruteforce GUARD Admin Tools (Remote client control) Bypasing firewall Old stuff: [font="Verdana;"]MD5 Auto Update Calendar XP SS multi usser server & client Autoit Remote Control (ARC)[/font] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now