Internet Speed Test

[Muchuchu]

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

speedtest.au3

[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.

[ludocus]

Cool script, I got a Great/Excelent connection

[HeffeD]

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

[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

[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.