Opt("MustDeclareVars", 1)
Opt("WinTitleMatchMode", 2)
Opt("WinWaitDelay", 100)
Opt("TrayIconDebug", 1)

Dim $Wpos, $Xkoordinata, $Ykoordinata

While 1
    If WinExists("PortableApps.com Platform", "Download Error") Then
        WinActivate("PortableApps.com Platform", "Download Error")
        WinWaitActive("PortableApps.com Platform", "Download Error")
        Sleep(200)
        ControlFocus("PortableApps.com Platform", "Download Error", "Button1")
        ControlClick("PortableApps.com Platform", "Download Error", "Button1")
    EndIf
    If WinExists("PortableApps.com Platform", "is not valid and can not be installed") Then
        Sleep(600000)
        WinActivate("PortableApps.com Platform", "is not valid and can not be installed")
        WinWaitActive("PortableApps.com Platform", "is not valid and can not be installed")
        Sleep(200)
        ControlFocus("PortableApps.com Platform", "is not valid and can not be installed", "Button1")
        ControlClick("PortableApps.com Platform", "is not valid and can not be installed", "Button1")
    EndIf
    If WinExists("PortableApps.com Installer", "Please review the license") Then
        WinActivate("PortableApps.com Installer", "Please review the license")
        WinWaitActive("PortableApps.com Installer", "Please review the license")
        Sleep(200)
        ControlFocus("PortableApps.com Installer", "Please review the license", "Button2")
        ControlClick("PortableApps.com Installer", "Please review the license", "Button2")
    EndIf
    If WinExists("PortableApps.com Installer", "Click Next to continue") Then
        WinActivate("PortableApps.com Installer", "Click Next to continue")
        WinWaitActive("PortableApps.com Installer", "Click Next to continue")
        Sleep(200)
        ControlFocus("PortableApps.com Installer", "Click Next to continue", "Button2")
        ControlClick("PortableApps.com Installer", "Click Next to continue", "Button2")
        For $i = 1 To 5 Step 1
            If WinExists("PortableApps.com Installer ", "Choose Components") Or WinExists("PortableApps.com Installer ", "Please review the license") Then
                Select
                    Case WinExists("PortableApps.com Installer ", "Choose Components")
                        WinActivate("PortableApps.com Installer ", "Choose Components")
                        WinWaitActive("PortableApps.com Installer ", "Choose Components")
                        $Wpos = WinGetPos("PortableApps.com Installer ", "Choose Components")
                    Case WinExists("PortableApps.com Installer ", "Please review the license")
                        WinActivate("PortableApps.com Installer ", "Please review the license")
                        WinWaitActive("PortableApps.com Installer ", "Please review the license")
                        $Wpos = WinGetPos("PortableApps.com Installer ", "Please review the license")
                EndSelect
                $Xkoordinata = $Wpos[0] + 366
                $Ykoordinata = $Wpos[1] + 367
                MouseMove($Xkoordinata, $Ykoordinata)
                MouseClick("left")
                ExitLoop
            EndIf
            If WinExists("PortableApps.com Installer ", "Choose Install Location") Then
                ExitLoop
            EndIf
            Sleep(1000)
        Next
        WinWait("PortableApps.com Installer ", "Choose Install Location")
        WinActivate("PortableApps.com Installer ", "Choose Install Location")
        WinWaitActive("PortableApps.com Installer ", "Choose Install Location")
        Sleep(200)
        ControlFocus("PortableApps.com Installer ", "Choose Install Location", "Button2")
        ControlClick("PortableApps.com Installer ", "Choose Install Location", "Button2")
        WinWait("PortableApps.com Installer ", "Click Finish to close")
        WinActivate("PortableApps.com Installer ", "Click Finish to close")
        WinWaitActive("PortableApps.com Installer ", "Click Finish to close")
        Sleep(200)
        ControlFocus("PortableApps.com Installer ", "Click Finish to close", "Button2")
        ControlClick("PortableApps.com Installer ", "Click Finish to close", "Button2")
    EndIf
    Sleep(1000)
WEnd