Jump to content
Sign in to follow this  
Muchuchu

Internet Speed Test

Recommended Posts

Muchuchu

I made it a while ago and am bored so thought I'd post it. It's basically basic.

speedtest.au3

Share this post


Link to post
Share on other sites
martin

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.

Share this post


Link to post
Share on other sites
ludocus

Cool script, I got a Great/Excelent connection :)

Share this post


Link to post
Share on other sites
HeffeD

Like Martin said, this isn't actually very representative of your true connection speed. You need to measure throughput.

Share this post


Link to post
Share on other sites
tijiez

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

Share this post


Link to post
Share on other sites
saha

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.

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  

×