Перебор пароля из файла

[Odysseus]

Никакого криминала, просто забыли пароль от оборудования.
Пароль 4-х значный, только цифры, т.е. 10000 строк
как вывести на экран текущий пароль ?

#include <File.au3>
#include <Array.au3>
HotKeySet("{ESC}", "Terminate")
Func Terminate()
    Exit 0
EndFunc   ;==>Terminate
Dim $aPasswords ;объявляем массив
_FileReadToArray('c:\Users\Odysseus\Downloads\script\pass.txt', $aPasswords)
For $i = 1 To 10000 Step 1
    WinWait("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "")
    If Not WinActive("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "") Then WinActivate("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "")
    WinWaitActive("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "")
    Sleep(100)
    MouseClick("left", 140, 34, 1, 50);Меню RC-4000
    Sleep(100)
    MouseClick("left", 155, 107, 1, 50);Выбор поля Ввести пароль
    Sleep(100)
    Send($aPasswords[$i]);Пароль 1
    Sleep(1000)
    Send("{ENTER}")
    Sleep(800)
Next

 

[All2khoff]

Не совсем понятно зачем вам читать из файла, когда вы уже сгенерировали перебор.

For $i = 1000 for 9999 Step 1
    WinWait("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "")
    If Not WinActive("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "") Then WinActivate("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "")
    WinWaitActive("Geos RC-4000 Configuration Tool - Пароль не введен - Новый список", "")
    Sleep(100)
    MouseClick("left", 140, 34, 1, 50);Меню RC-4000
    Sleep(100)
    MouseClick("left", 155, 107, 1, 50);Выбор поля Ввести пароль
    Sleep(100)
    Send($i);Пароль 1000
    Sleep(1000)
    Send("{ENTER}")
    Sleep(800)
Next

 

[Alecsis]

Пароль 4-х значный, только цифры, т.е. 10000 строк

А в файле точно как минимум 10000 строк? Как вариант того, что предложил All2khoff

For $i = 0 to 9999
    $sTestPass = StringFormat('%04d', $i)
    ;  манипуляяции с окном
    Send($sTestPass)
    ;  дальнейшие действия
Next

дополнительно мб пригодятся пробы вида 0000, 0001, … 0999