• Auto-It! Лень побеждаэ. Ещё один скриптик Auto-It! для Тотал Коммандера, используется сразу после удаления клонов для поиска клонов по соседней папке

    C:\2 nextsearcher.au3 (в одной панели диск С, в другой — проверяемые папки):

    WinWaitActive("Total Commander"); дождаться активации Тотала
    Send("{UP}"); поставить курсор на скрипт "1 clonmarker.au3" (чтобы не листать их туда-сюда)
    Send("{TAB}"); перейти в соседнюю панель
    Send("!{LEFT}"); назад по истории (Тотал не помнит навигацию в данном случае, поэтому такой костыль)
    Send("!{RIGHT}"); вернуться в обысканную папку
    sleep(1000); заснуть на секунду, чтобы Тотал успел прочитать кучу файлов в папке
    Send("{ENTER}"); выйти из папки
    Send("{DOWN}"); на соседнюю папку
    Send("{ENTER}"); зайти в неё
    sleep(2000); снова пауза для чтения в новой папке (хотя тут это необязательно)
    Send("!{F7}"); Alt+F7 для поиска
    Send("^{TAB}"); перейти на таб "Дополнительно"
    Send("{б}"); отметить "поиск дубликатов"
    Send("{м}"); убрать "по имени"
    Send("{д}"); отметить "по содержимому"
    Send("{ENTER}"); запуск поиска

    Остаётся только запомнить число файлов, вывести файлы на панель (тайминг тут делать бесполезно, поиск плавает по времени) и вбить число в clonmarker. Повторю его по-новому

    C:\1 clonmarker.au3 (нумерация введена для надёжного перехода курсора между скриптами):

    $value = InputBox("Сколько?", "Число клонов", "100"); запрос количества клонов, по умолчанию 100
    $count = 1; установка счётчика для цикла
    WinWaitActive("Total Commander"); дождаться активации Тотала
    Send("{DOWN}"); поставить курсор на скрипт "2 nextsearcher.au3"
    Send("{TAB}"); перейти в соседнюю панель
    Do; начало цикла
    Send("{SPACE}"); выделение
    Send("{DOWN}"); переход
    $count = $count + 1; добавление счётчика
    Until $count > Round ($value/2, 0); повторить цикл половину раз от количества клонов, с округлением

Replies (0)