Automation possible?

Thanks! I actually already started coding with autokey and it works! But I still need to do some debugging because it does not always run how it is supposed to... Also I am trying to do some optimisations and remove the "Sleep" and replace them by some conditions like "if ... then" or "while",
Here is my code:
_______________________________________________

;
;
; AutoIt Version: 3.0
; Language:       English
; Platform:       WinVista 32bit
; Author:         DGlower
;
; Script Function:
;   Intalls Bluetooth Device
;

;TODO:
;_Make sound when installed or finished
;_replace sleep statements with conditions

; Run the devicepairingwizard
Run("devicepairingwizard.exe")

; Wait for the devicepairingwizard become active
WinWaitActive("Pair with a wireless device")

Sleep (1000)
$WinTitle = 'Pair with a wireless device'            ;;Fill in details
$WinText = ''
$CID1 = "SysListView321"
$CID2 = "SysLink2"

$Name1 = "Input Device"                    ;wiimote name before recognition
$Name2 = "Nintendo RVL-CNT-01"                ;wiimote name after recongnition

$Name3 = "&Pair without using a code"
$Name4 = "Click Close to continue using your computer while driver installation completes."
$NameSearch1 = ControlListView($WinTitle,$WinText, $CID1,"FindItem",$Name1)
$NameSearch2 = ControlListView($WinTitle,$WinText, $CID1,"FindItem",$Name2)
$NameSearch4 = ControlListView($WinTitle,$WinText, "Static14" ,"FindItem",$Name4)

$NameSelect1 = ControlListView($WinTitle,$WinText, $CID1, "Select", $NameSearch1)
$NameSelect2 = ControlListView($WinTitle,$WinText, $CID1, "Select", $NameSearch2)
$NameSelect4 = ControlListView($WinTitle,$WinText, "Static14", "Select", $NameSearch4)

    Func check()
        Sleep ( 2000 )    ;wait for loading of phase 1 to finish
        $NameSearch3 = ControlListView($WinTitle,$WinText, "Button6","FindItem",$Name3)
        $NameSelect3 = ControlListView($WinTitle,$WinText, "Button6", "Select", $NameSearch3)    ;Select $Name3

        If $NameSelect3 <> -1 Then
            Sleep ( 400 )
            $Confirm1 = ControlClick($WinTitle,$WinText,'Button6')    ;confirm selection of $Name3
            Sleep ( 5500 )         ;wait for loading phase 2 to finish

            ;try to eliminate the previous Sleep(5000) but closing action occures to fast
            If $Confirm1 <> -1 Then
                While $NameSelect4 <> -1
                    ControlClick($WinTitle,$WinText,'Button2')
                    $Confirm2 = ControlSend($WinTitle,$WinText, "DirectUIHWND1",'{ENTER}')
                    If $Confirm2 <> -1 Then
                    $NameSelect4 = -1
                    EndIf
                WEnd
            EndIf
        EndIf
    EndFunc

;___________________________

    If $NameSearch1 <> -1 Then
        $NameSelect1 = 1    ;execute selection of $Name1
        ControlSend($WinTitle,$WinText, $CID1,'{ENTER}')
        check()


    ElseIf $NameSearch2 <> -1 Then
        $NameSelect2 = 1    ;execute selection of $Name2
        ControlSend($WinTitle,$WinText, $CID1,'{ENTER}')
        Check()

    Else
        Sleep (500)
        MsgBox(0, "Bluetooth Device Remover by NAL", "Wiimote was NOT installed!", 2 )
        WinClose($WinTitle, "" )

    EndIf

_______________________________________________

DGlower

d3Xt3r

DGlower