AU3 Steve Virgin Internet

#cs ----------------------------------------------------------------------------
; Grab Virgin Internet Steve Internet Speed Tests every xx minutes
Stores the history into $steve_history as a "ini" style file
#ce ----------------------------------------------------------------------------

#include <IE.au3>
#include <Date.au3>

$steve = "http://steve"
$password = "continue"
$test_minutes = 45

$steve_history2 = @MyDocumentsDir&"\Steve_SpeedTest.txt"
$steve_history = @MyDocumentsDir&"\Steve_SpeedTest.ini"

While True

    ; Minutes between running speedtest
    $ticker = $test_minutes

    WinClose($steve)

    ; Wait for IE process to terminate
    Sleep(5000)

    Local $oIE = _IECreate($steve&"/?c=modem/speed-test")
    If @error Then $ticker = 5

    WinMove($steve,"",1,1)

    Sleep(10000)

    WinSetState($steve,"",@SW_MAXIMIZE)

    $x = 500
    $y = 430
    MouseClick("left",$x,$y,1)

    Sleep(4000)

    MouseClick("left",$x,$y,1)

    Send($password&"{ENTER}")

    WinSetState($steve,"",@SW_MAXIMIZE)

    ; Wait for SpeedTest to appear
    Sleep(5000)

    ; Get focus
    MouseClick("left",590,514,1)

    ; Save history
    Sleep(250)
    Send("^a")
    Sleep(500)
    Send("^c")

    Send("{HOME}")

    $T = ClipGet()
    $aT = StringSplit(StringReplace($T, Chr(13), ""), Chr(10), 2)

    $fil = $steve_history2
    FileWriteLine($fil,"---- " & _Now())
    For $it In $aT
        If StringLeft($it,4)="2017" Then FileWriteLine($fil,$it)
    Next

    ; Write unique entires to "ini" style file
    $fIni = $steve_history
    $fH = FileOpen($fil,0)
    While True
        $s = FileReadLine($fH)
        If @error Then ExitLoop

        If StringLeft($s,4)<>"----" Then
            IniWrite($fIni,"Steve",StringLeft($s,19),StringMid($s,21))
        EndIf
    WEnd
    FileClose($fH)


    ; Turn on Block Internet checkbox
    MouseClick("left",623,591,1)

    Sleep(1000)

    ; Click Start
    MouseClick("left",738,548,1)

    Sleep(1000)

    ; Confirm Start
    MouseClick("left",537,376,1)

    ConsoleWrite(@CRLF&"Ticking: ")
    For $i = $ticker to 1 Step -1
        ConsoleWrite($i& " ")
        Sleep(60000)
    Next

    WinClose($steve)

WEnd