AHK: Замена "Window Spy" (Страница 3 из 19)

Кстати, я одно время искал подобные тулзы, вот что нашел:
AutoIt3 Window Info - идет в компелкте с AutoIt3. Функционал тот же.
Winspector Spy - позволяет отлавливать WM_Message.

InqSoft Window Scanner - от автора языка neos0m. Шикарная вещь! Позволяет менять "на лету" стили, размеры, посылать произвольные WM_Message !sic! произвольному элементу, дерево окон. И многое другое!
То есть можно отследить сообщение Winspector-ом и послать из интерфейса InqSoft. Must have.

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

Да беда тут с файлами. Буду выкладывать code.

AhkSpy v1.055
+ степень прозрачности окна
+ цвет, который в окне задан как прозрачный
+ количество всех элементов управления окна

В свете недавних тем на форуме, и ради своего удобства:

AhkSpy v1.057

+ Теперь показывает инфо о элементе под мышкой, в контроле "Internet Explorer_Server", наподобии "iWB2 Learner". Наслаждаемся
Раньше был просто весь текст страницы (упразднён).

Отдельная вкладка это слишком. Тут плюс перед Edit контролом, что при загрузке содержимого скролл остаётся на месте, потому можно просто поднять до строки ( Info - Internet Explorer_Server ) и довольно спокойно пользовать. Хотел повесить на F5 переход по якорю к этой строке, то есть сделать нужную  первой видимой строкой, но ничего не вышло. Известная конструкция не работает:

<p><a name="top"></a></p> 
...
<p><a href="#top">Наверх</a></p>

Кто знает как в HTMLFile это провернуть, делитесь.

AhkSpy v1.059

Разобрался с AtlAxWin. Исправил баги.

+ При нажатии Shift над Internet Explorer_Server элементы обводятся красной  рамкой.

В режиме Button другие окна не воспринимают текст.
Обводка это хорошо, но шифт зажимать все время неудобно - может вывести включение/выключение на капслок?

При активной вкладке Button, даже при не активном ahkspy все нажатия кнопок отправляются в ahkspy.

У меня win7. Не понимаю, что тестировать.

Не понимаю.

AhkSpy v1.062
Ещё пофиксил. Ввёл переменную периода опроса данных, было 200 сделал 100.

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

Сегодня 4 раза AhkSpy v1.062 вешала систему во время рассмотрения ie.

Возможно на некоторых пк не тянет. Попробуйте изменить "RangeTimer" на 200.
43 строка.

Попробовал, всё норм.

Ну а у меня i3. Может АНК у вас х64?

Запустил на х64, глюков нет. Так понимаю что на совместимость с х64 может влиять исключительно DllCall? Тогда из нового добавлено только это:

WBGet(hwnd)   {
    static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
        , IID_IHTMLWindow2 := "{332C4427-26CB-11D0-B483-00C04FD90119}"
    SendMessage msg, 0, 0, , ahk_id %hwnd%
    if (ErrorLevel != "FAIL")
    {
        lResult:=ErrorLevel, VarSetCapacity(GUID,16,0)
        if DllCall("ole32\CLSIDFromString", "wstr","{332C4425-26CB-11D0-B483-00C04FD90119}", "ptr",&GUID) >= 0
        {
            DllCall("oleacc\ObjectFromLresult", "ptr",lResult, "ptr",&GUID, "ptr",0, "ptr*",pdoc)
            Try Return ComObj(9,ComObjQuery(pdoc,IID_IHTMLWindow2,IID_IHTMLWindow2),1), ObjRelease(pdoc)
        }
    }
}

Хотя и в старом варианте тоже работает:

  
WBGet(hwnd)   {
    static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
        , IID := "{332C4427-26CB-11D0-B483-00C04FD90119}" ; IID_IHTMLWindow2
    SendMessage, msg,,,, ahk_id %hwnd% 
    DllCall("oleacc\ObjectFromLresult", Ptr, ErrorLevel, Ptr, 0, Ptr, 0, PtrP, pdoc)   
    Try Return ComObj(9,ComObjQuery(pdoc,IID,IID),1), ObjRelease(pdoc)
}

знающие пусть проверят на совместимость.
Запускайте пока ярлыком через AutoHotkeyU32.exe, заодно поймёте в совместимости ли дело.

serzh82saratov, а как насчет добавить в твой скрипт возможность автообновления при выходе новой версии? А то при такой частоте сложно следить за всеми фиксами.
C реализацией, как понимаю, проблем у тебя не возникнет, хотя пару идей могу предложить.

AhkSpy v1.070
Многое пофиксено.
Добавлены двойные хоткеи в "Button".
Добавлены соответствующие функции на: Ctrl+Z, Ctrl+A, Ctrl+X, Delete.
Обновить (вернуть страницу) на F5.
Шифт + Колесико или F1, F2 - переход по меткам, + кнопки копирования. На большом тексте очень легко осуществлять переход и копирование.

Malcev
А ведь обещали.

AhkSpy v1.071
Переделал паузу, можно копировать кнопками.

Замучали меня иероглифы из Scintilla Notepad++
До этого ControlGetText обрезал всё подряд до 2000 символов, иначе иероглифы вешали скрипт, пока так и только в utf-8

IsScintilla ? StrGet(&ControlGetText, "utf-8") : ControlGetText)

Других решений нет.

А вот из WinText так извлечь нельзя, потому если класс окна "Notepad++" то только резать:

GetWinClass = "Notepad++" ? SubStr(VisibleWinText, 1, 5000) : VisibleWinText) 

А минус в том, что на окне какого то приложения может случится фриз...
Куча иероглифов вешает наглухо.

Как универсально определять их наличие, во что перекодировать, не ясно.

Кстати AU3_Spy в Visible Window Text из Notepad++, как то отсеивает иероглифы.

В режиме паузы нельзя было использовать кнопки "copy" на форме. Также теперь кнопка паузы работает только в активном окне, ранее была глобальной

Во вкладке button должны отслеживатся все кнопки. Напоминание про правую кнопку есть в заголовке окна в любом режиме.

Добавил варианты в системное меню:

---

---

AhkSpy v1.075

AhkSpy v1.079
+ Добавил хоткеи:

~!WheelUp::
F3:: WheelLeft
~!WheelDown::
F4:: WheelRight

+ Дополнения в AccInfo.
+ Плавная навигация по заголовкам.

Нет, это блажь, откатил на 1.1.12.00.

AhkSpy v1.081

+ Причесал код.

+ Добавлена пауза и в режим Button.

- Перестал прикладывать файл в коллекции, всё равно нельзя скачать

Как вы хотите чтоб и Ctrl+C определило, и копировало, и выделение текста не снимало при нажатии кнопки. Помнится было довольно долгое обсуждение данного желания, и ничего конкретного с вашей стороны, по поводу - как это должно выглядеть на практике.

Это про что вообще?

Ничё не понял.

Так надо нормальным браузером пользоватся - Опера.

Ссылки запускаются командой Run. Если у вас браузер настроен открывать в текущей вкладке, кто тут виноват?

Ввёл Shift+Win+D - обвёл - нажал Ctrl+C - вместо надписи Shift+Win+D вижу Ctrl+C, мне так не нравится.

Даже не так:
Ввёл Shift+Win+D - обвёл - нажал Ctrl - вижу Ctrl+ - и что теперь копировать?

Нажал Ctrl+C - скопировалось Shift+Win+D. А как мне надпись Ctrl+C при её нажатии увидеть?

AhkSpy v1.100
+ Расширены данные Accessible.
+ Возможно подсвечивать одновременно и контролы, и аccessible, см. в меню.
+ Настройки отображения подсветки, теперь сохраняются в %A_AppData%\AhkSpy.ini.

Зря. У меня всегда скачивалось.

Так намного лучше.
А если бы рядом лежал файл, скажем ahkspy.txt, содержащий всего лишь одну строку с номером актуальной версии (v1.113 и так далее по мере обновления), то было бы вообще замечтательно.

v1.114 Добавил пункт обновить, для некомпилированного скрипта.

Ну это уже на случай авто обновлений, Я пока не планирую.

Во-первых, скрипт перестал апдейтиться через меню: содержимое заменилось таким содержимым, т.е. скрипт стал нерабочим.

Вручную со страницы все копируется.

А во-вторых, мое видение автоапдейта следующее.
У тебя уже есть метка UpdateAhkSpy, так что в базе добавления минимальны:
- Переход к UpdateAhkSpy при запуске.
- Если скрипт не скомпилирован И если он не имеет аттрибут Read Only (установкой RO можно заблокировать автообновление) И время изменения файла больше некоего порога (-10 минут от текущего, к примеру), то:

   - Скачать readme.txt в переменную - URLDownloadToVar() вполне для этого подойдет, чтобы не использовать ж.диск.
   - Сравнить содержимое первой строки с переменной AhkSpyVersion, если в сети версия новее, то обновить.
     (Я предлагаю после скачивания вместо Run... просто сделать Reload обновленного файла)

Ну и в свете того, что было "Во-первых", предлагаю немного изменить логику скачивания - не напрямую заменять скрипт через UrlDownloadToFile, https://URL_файла, %A_ScriptFullPath%, а сначала сохранить во временной папке, и заменить только при удачном скачивании. Так содержимое скрипта не испортится.

По поводу "качать файлы без остановки скрипта" не совсем понятно, в принципе ничего страшного не будет, если пользователь подождет несколько секунд, пока скачается Readme.txt, а там можно вывести диалог с информацией о новой версии и предложить обновиться. Или запустить обновление в фоне, создав временный скрипт, как это предложил teadrinker. Потом дочерний скрипт передает родителю сообщение на перезапуск и самоуничтожается. Хотя возможные и другие варианты.

Обновил предыдущий пост.

Сначала я подумал, что для проверки валидности достаточно проверки ErrorLevel

...
UrlDownloadToFile, https://raw.githubusercontent.com/serzh82saratov/AhkSpy/master/AhkSpy.ahk, %A_ScriptFullPath%
    If !ErrorLevel
...

Но потом вспомнил, что есть более надежное решение - хеш-суммы.
Если прописать в Readme.txt после version = x.xxx строку вида md5=xxxxxxxxxxxxxx,
то после скачивания достаточно вычислить хеш файла, чтобы быть практически 100% уверенным, что он не битый.

Если ни один из 2х предложенных вариантов обновления не подходит, то надо подумать... Как вариант - придет teadrinker и сделает красиво ))

Насчет хеша (или контрольной суммы), если кратко, то например тут, там же есть ссылка про алгоритм md5. В дебри реализации можно не лезть, главное знать, для чего и как его применять.

Вот пример, как происходит вычисление хеша файла, в данном случае - своего собственного. На входе - путь к файлу, на выходе - строка хеша md5. То есть ты можешь вычислить хеш новой версии, прописать его в readme.txt, и затем пользователь, скачав новую версию, сравнит строку в readme с фактическим хешем файла на диске ( в смысле, скачивающий скрипт сам это сделает автоматом). Изменение даже одного бита в исходном файле полностью изменит хеш-сумму, так что проверка валидности будет достаточно надежной.

MsgBox % FileMD5(A_ScriptFullPath)

FileMD5(sFile="", cSz=4) {  ; by SKAN www.autohotkey.com/community/viewtopic.php?t=64211
 cSz := (cSz<0||cSz>8) ? 2**22 : 2**(18+cSz), VarSetCapacity( Buffer,cSz,0 )
 hFil := DllCall( "CreateFile", Str,sFile,UInt,0x80000000, Int,3,Int,0,Int,3,Int,0,Int,0 )
 IfLess,hFil,1, Return,hFil
 hMod := DllCall( "LoadLibrary", Str,"advapi32.dll" )
 DllCall( "GetFileSizeEx", UInt,hFil, UInt,&Buffer ),    fSz := NumGet( Buffer,0,"Int64" )
 VarSetCapacity( MD5_CTX,104,0 ),    DllCall( "advapi32\MD5Init", UInt,&MD5_CTX )
 Loop % ( fSz//cSz + !!Mod( fSz,cSz ) )
   DllCall( "ReadFile", UInt,hFil, UInt,&Buffer, UInt,cSz, UIntP,bytesRead, UInt,0 )
 , DllCall( "advapi32\MD5Update", UInt,&MD5_CTX, UInt,&Buffer, UInt,bytesRead )
 DllCall( "advapi32\MD5Final", UInt,&MD5_CTX )
 DllCall( "CloseHandle", UInt,hFil )
 Loop % StrLen( Hex:="123456789ABCDEF0" )
  N := NumGet( MD5_CTX,87+A_Index,"Char"), MD5 .= SubStr(Hex,N>>4,1) . SubStr(Hex,N&15,1)
Return MD5, DllCall( "FreeLibrary", UInt,hMod )
}

А планируется ли программу дополнить Show Acc Structure?

Ошибка выскочила:

А какой?

v1.126
Думаю что нашёл "правильный" способ. Хотя можно и ещё правильнее https://github.com/infogulch/WinHttpRequest без таймеров, но решил не пихать код который мне совсем непонятен.

AhkSpy v1.153
+ Добавлено CommandLine в режим Window.

Попутно интересен вопрос извлечения CLSID некоторых служебных окон.

AhkSpy v1.168
+ В режим "Button" добавлена строка "Remapping keys", с комментарием.

Я в этом не очень хорошо разбираюсь. Не пойму как его ставить? Поиск нечего мне не выдал.

Может, я что-то не догоняю) Видел.

Вообще что хотите установить? Вы же написали что установили - http://forum.script-coding.com/viewtopi … 877#p84877

Ну и тут наверное далее следует повествование, по кому кликаете, какой AutoHotkey, какая ошибка. Но видно не судьба, ведь для этого надо очень хорошо рабиратся в этом.