:( 3.3.12.0
Не могу никак составить программу для перебора пароля.
Проблема в том что после ввода неверного пароля программа закрывается. Пароли в текстовом файле. В тело скрипта внести никак невозможно так как их почти 15 тысяч.
; Script Start - Add your code below here
Run("путь к программе")
WinWaitActive("название окна")
Dim $aPasswords ;объявляем массивы
;читаем файл в массив
_FileReadToArray('путь к программе\pass', $aPasswords)
For $i = 1 To $aPasswords[0]
WinWait("название окна","")
If Not WinActive("название окна","") Then WinActivate("название окна","")
WinWaitActive("название окна","")
Sleep(100)
Sleep(200)
Send ($aPasswords[$i]);Пароль 1
Sleep(600)
Send("{ENTER}")
Sleep(200)
MouseClick( "left",299,87,2,50)
Sleep(200)
Send("{ENTER}{ENTER}")
Sleep(1550)
Next
Что не правильно никак не пойму. я только пытаюсь учиться
Не могу никак составить программу для перебора пароля.
Проблема в том что после ввода неверного пароля программа закрывается. Пароли в текстовом файле. В тело скрипта внести никак невозможно так как их почти 15 тысяч.
; Script Start - Add your code below here
Run("путь к программе")
WinWaitActive("название окна")
Dim $aPasswords ;объявляем массивы
;читаем файл в массив
_FileReadToArray('путь к программе\pass', $aPasswords)
For $i = 1 To $aPasswords[0]
WinWait("название окна","")
If Not WinActive("название окна","") Then WinActivate("название окна","")
WinWaitActive("название окна","")
Sleep(100)
Sleep(200)
Send ($aPasswords[$i]);Пароль 1
Sleep(600)
Send("{ENTER}")
Sleep(200)
MouseClick( "left",299,87,2,50)
Sleep(200)
Send("{ENTER}{ENTER}")
Sleep(1550)
Next
Что не правильно никак не пойму. я только пытаюсь учиться