Muchuchu Posted May 24, 2008 Share Posted May 24, 2008 I made it a while ago and am bored so thought I'd post it. It's basically basic.speedtest.au3 Link to comment Share on other sites More sharing options...
martin Posted May 24, 2008 Share Posted May 24, 2008 I made it a while ago and am bored so thought I'd post it. It's basically basic.A good start to a useful tool.It might be more representative of your connection speed to ping("www.google.com") or anyone else other than your own ip. Better still would be to time how long it takes to download a 10MB file and upload a 1MB file and show the speed both ways.BTW you have missed a '&' in a MsgBox parameter. Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script. Link to comment Share on other sites More sharing options...
ludocus Posted May 24, 2008 Share Posted May 24, 2008 Cool script, I got a Great/Excelent connection Link to comment Share on other sites More sharing options...
HeffeD Posted May 24, 2008 Share Posted May 24, 2008 Like Martin said, this isn't actually very representative of your true connection speed. You need to measure throughput. Link to comment Share on other sites More sharing options...
tijiez Posted May 31, 2008 Share Posted May 31, 2008 This is a snippet of something that I've been using in my script, I've edited some personal code out in case the structure doesn't make sense. Checks to see if the connection can handle at least > 15kb/s for roughly 3.5 - 5 seconds. Func speed() Dim $sArray[3] Local $size, $oldBytRd = 0, $timer $size = InetGetSize("http://support.easystreet.com/easydsl/testfile.bin") If Not @error Then SplashTextOn($title, "Analyzing Connection", 250, 100, -1, -1, 33, "", 16) InetGet("http://support.easystreet.com/easydsl/testfile.bin", @TempDir & "\testfile.bin", 1, 1) $timer = TimerInit() While @InetGetActive _ArrayPush($sArray, Round((@InetGetBytesRead - $oldBytRd) / 1024)) $oldBytRd = @InetGetBytesRead Sleep(1000) If TimerDiff($timer) > 3500 Then InetGet("abort") WEnd If _ArrayMin($sArray, 1) < 15 Then ; What to do if you come below 15kb/s EndIf SplashOff() EndIf EndFunc Link to comment Share on other sites More sharing options...
saha Posted April 15, 2011 Share Posted April 15, 2011 i found a site similar to speedtest.net to test a internet speed. http://www.ip-details.com/internet-speed-test/ try this site to check your internet connection. 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