Jump to content

Internet Speed Test


Muchuchu
 Share

Recommended Posts

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

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

  • 2 years later...

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...