1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: AutoHotkey: быстрый вход в сетевое окружение в Total Commander

; запрещаем имена переменных как у переменных окружения
; (повышаем производительность скрипта)
#NoEnv
#NoTrayIcon ; без иконки в трее
IfWinExist, ahk_class TTOTAL_CMD ; если запущен Total Commander
{
    ; узнаем, какая панель сейчас активна
    ControlGetFocus, Active_Panel, ahk_class TTOTAL_CMD
    If Active_Panel = TMyListBox1 ; если правая, то...
        ; получить текущий путь из заголовка панели
        ControlGetText, Panel_Text, TMyPanel9
    If Active_Panel = TMyListBox2 ; если левая, то...
        ; получить текущий путь из заголовка панели
        ControlGetText, Panel_Text, TMyPanel5
    IfInString, Panel_Text, \\\ ; если сейчас в панели открыт плагин, то...
    {
        ; открыть новую вкладку
        SendMessage, 1075, 3001,,, ahk_class TTOTAL_CMD
        ; открыть в ней "Мой компьютер" (избавляемся от, возможно, открытого плагина)
        SendMessage, 1075, 2122,,, ahk_class TTOTAL_CMD
    }
    ; вбить в командную строку адрес локального компьютера
    ControlSetText,  Edit1, cd \\%A_ComputerName%, ahk_class TTOTAL_CMD
    ; перейти по указанному адресу
    ControlSend, Edit1, {Enter}, ahk_class TTOTAL_CMD
    ; выйти на два уровня выше, т.е. в список доменов и рабочих групп
    ControlSend, %Active_Panel%, {BS 2}, ahk_class TTOTAL_CMD
}

Данный скрипт удобно повесить на кнопку в панели инструментов Total Commander. Скрипт удобен тем, что открывается папка не "Сетевое окружение", а сразу "Microsoft Windows Network". Если в активной панели открыт какой-нибудь плагин, то адрес будет открываться в новой вкладке. В последней строке скрипта вместо {BS 2} можно написать {BS}, если вам так удобнее.
Идею предложил Androgen.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.

2 Ответ от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Re: AutoHotkey: быстрый вход в сетевое окружение в Total Commander

Ещё один вариант скрипта: "Microsoft Windows Network" всегда открывается в новой вкладке.
Идею предложил Androgen.

; запрещаем имена переменных как у переменных окружения
; (повышаем производительность скрипта)
#NoEnv
#NoTrayIcon ; без иконки в трее
IfWinExist, ahk_class TTOTAL_CMD ; если запущен Total Commander
{
    ; узнаем, какая панель сейчас активна
    ControlGetFocus, Active_Panel, ahk_class TTOTAL_CMD
    ; открыть новую вкладку
    SendMessage, 1075, 3001,,, ahk_class TTOTAL_CMD
    ; открыть в ней "Мой компьютер" (избавляемся от, возможно, открытого плагина)
    SendMessage, 1075, 2122,,, ahk_class TTOTAL_CMD
    ; вбить в командную строку адрес локального компьютера
    ControlSetText,  Edit1, cd \\%A_ComputerName%, ahk_class TTOTAL_CMD
    ; перейти по указанному адресу
    ControlSend, Edit1, {Enter}, ahk_class TTOTAL_CMD
    ; выйти на два уровня выше, т.е. в список доменов и рабочих групп
    ControlSend, %Active_Panel%, {BS 2}, ahk_class TTOTAL_CMD
}
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.