AHK v2: захват текста из окна cmd.

teadrinker

Да, вы правы. Если скопировать в браузер, открывает. Если трансформировать в ссылку - нет.
Переделал в текст.

teadrinker

Обижаете. Что имеем, то копируем. Желаете убедится - скриншот прицепил.

teadrinker
Ссылки на вход или регистрацию на той странице не активны.
Так понимаю, гугл нагуглил какой-то архив. Да и черт с ним, я ее просто удалю.

teadrinker
Так понимаю, обычная.
Запускается обычной консолью из папки с плеером.
Winspector Spy ее определяет как ConsoleWindowClass, как и вызывающую.

teadrinker

Ну, в АНК v2 он не работает:
1:

VarSetStrCapacity(&Buffer, characterCount*2)

   - функция требует референции, а ее к Buffer нельзя применить. Ну, в мануале пишут, что применение этой функции не обязательно.

2: В строке

DllCall("ReadConsoleOutputCharacter", "ptr", hConsole, "ptr", &Buffer, "uint", characterCount, "ptr", 0, "uint*", x, "int")

какая-то путаница с аргументами:

2.1: Вот здесь

"ptr", &Buffer

насколько я понимаю, требуется использовать "str", так как функция возвращает LPTSTR  :
https://learn.microsoft.com/en-us/windo … tcharacter
https://script-coding.com/AutoHotkey/DllCall.html
при смене жалуется на "Error: Expected a String but got a Class."

2.2: для чего используется переменная "x"?  При попытке исполнения получаем  "Error: This global variable has not been assigned a value." То есть, интерпретатор полагает, что х является вводной? Но по документации, так понимаю, в ее должно выводится количество считанных символов?

teadrinker

Поправил.

teadrinker
Спасибо.
На Win11 так работает.
А вот на Win10 - нет, при попытке извлечь текст выдает "Error: (6) The handle is invalid".
К стати, обратил внимание, что у меня и Winspector Spy консоли среди процессов не видит.

teadrinker
Вечерком гляну.

teadrinker
Проверил обе версии скрипта на 4 машинках:
....................................AHK v1...............AHK v2
WinXP SP3.................не работает..............n/a
Win10.......................не работает...............n/a
Win10 (основной).........работает...........не работает
Win11..........................работает.............работает

Похоже, на разных машинах тот же код может вести себя по разному.

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

В этих, в обоих случаях:

 if !DllCall('ReadConsoleOutputCharacter', 'Ptr', hConsole, 'Str', text, 'UInt', charCount, 'Ptr', 0, 'UInt*', &read := 0),

bResult := DllCall("ReadConsoleOutputCharacter", "ptr", hConsole, "ptr", &Buffer, "uint", characterCount, "ptr", 0, "uint*", x, "int")

Понял, в чём косяк второй версии. Если вы установили вторую версию поверх первой, то скрипты запускаются не сами по себе, а их запускает лаунчер, дополнительный скрипт (чтобы выбрать нужный интерпретатор), и там путаница с консолями выходит. Можно прописать в начале перезагрузку, тогда всё будет ок:

if !(DllCall('GetCommandLine', 'Str') ~= ' /restart(?!\S)') {
    Reload
}

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

#Requires AutoHotkey v2

if !(DllCall('GetCommandLine', 'Str') ~= ' /restart(?!\S)') {
    Reload
}

#HotIf WinActive('ahk_class ConsoleWindowClass')
1:: MsgBox A_Clipboard := ReadConsoleOutput(WinGetPID('A'))
#HotIf

ReadConsoleOutput(PID) {
    static STD_OUTPUT_HANDLE := -11, INVALID_HANDLE_VALUE := -1
    if !DllCall('AttachConsole', 'UInt', PID) {
        throw OSError()
    }
    hConsole := DllCall('GetStdHandle', 'UInt', STD_OUTPUT_HANDLE, 'Ptr')
    if hConsole == INVALID_HANDLE_VALUE {
        throw OSError()
    }
    CONSOLE_SCREEN_BUFFER_INFO := Buffer(24, 0)
    if !DllCall('GetConsoleScreenBufferInfo', 'Ptr', hConsole, 'Ptr', CONSOLE_SCREEN_BUFFER_INFO) {
        throw OSError()
    }
    bufferSize := NumGet(CONSOLE_SCREEN_BUFFER_INFO, 'UInt')
    bufferWidth := bufferSize & 0xFF
    bufferHeight := bufferSize >> 16
    outBuf := Buffer(bufferWidth * bufferHeight * 4, 0)
    NumPut('UInt', bufferSize, readRegion := Buffer(8, 0), 4)
    if !DllCall('ReadConsoleOutput', 'Ptr', hConsole, 'Ptr', outBuf, 'UInt', bufferSize, 'UInt', 0, 'Ptr', readRegion) {
        throw OSError()
    }
    emptyCounter := 0
    Loop bufferHeight {
        lineNum := A_Index - 1
        line := ''
        Loop bufferWidth {
            line .= Chr(NumGet(outBuf, 4 * (A_Index - 1) + lineNum * bufferWidth * 4, 'UShort'))
        }
        text .= RegExReplace(line, '\s+$', '`r`n')
        emptyCounter := (line ~= '^\s*$') ? emptyCounter + 1 : 0
    } until emptyCounter == 5
    DllCall('FreeConsole')
    return RegExReplace(text, '\s*$')
}

Я запускал скрипт не двойным кликом, а из редактора, поэтому у меня проблемы не возникало.