Серый форум — AHK: Перехват (Home) в IE

Re: AHK: Перехват (Home) в IE

null@example.com (ypppu) — Sun, 13 Apr 2014 09:10:10 +0000

kursiv, отредактируйте свои сообщения. Грамоту (особенно заглавные буквы и знаки препинания) никто не отменял.

Запрещается отвечать в теме до исправления.

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 09:07:02 +0000

спасиб.

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 08:46:56 +0000

При клике сейчас должен появлятся тултип:

ToolTip ^{vk53}

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 08:45:15 +0000

по клику открываться?

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 08:36:03 +0000

Всё также, должно работать.

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 08:25:22 +0000

вот

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 08:12:23 +0000

Запустите AhkSpy v1.047
Мыши наведите на кнопку, это данные с IE 11

У Вас что видно?

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 08:01:30 +0000

никак не выходит.

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 07:41:26 +0000

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


#If IsHomeKey()
LButton:: ToolTip ^{vk53}
#If

IsHomeKey() { 
    MouseGetPos, , , WinId, ControlNN 
    if !InStr( ControlNN, "ToolbarWindow")
        return 0
    WinGet, Process, ProcessName, ahk_id %WinId%
    if Process != iexplore.exe 
        return 0
    Acc := Acc_ObjectFromPoint(child)
    try value := Acc.accValue(child)
    if Not value
        try value := Acc.accName(child)
    if (value= "Домой")
        return 1
    return 0
}

-------------------------

Хотел добавить, для мобильности библиотеку можно не юзать без особого ущерба для лаконичности:


#If IsHomeKey()
LButton:: ToolTip ^{vk53}
#If

IsHomeKey() { 
    MouseGetPos, , , WinId, ControlNN 
    if !InStr( ControlNN, "ToolbarWindow")
        return 0
    WinGet, Process, ProcessName, ahk_id %WinId%
    if Process != iexplore.exe 
        return 0
    return GetTextUnderMouse() = "Домой" ? 1 : 0
} 

GetTextUnderMouse()  {
    Static h
    If !h
        h := DllCall("LoadLibrary","Str","oleacc","Ptr")
    If DllCall("oleacc\AccessibleObjectFromPoint"
                , "Int64", DllCall("GetCursorPos","Int64*",pt)+pt
                , "Ptr*", pacc, "Ptr", VarSetCapacity(varChild,8+2*A_PtrSize,0)*0+&varChild)=0
    Acc:=ComObjEnwrap(9,pacc,1), child:=NumGet(varChild,8,"UInt")
    try value := Acc.accValue(child)
    if value =
        try value := Acc.accName(child) 
    return value
}

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 07:32:49 +0000

Проверьте параметры, у меня 11.

ahk_class IEFrame
ahk_exe iexplore.exe 
ToolbarWindow

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 07:22:35 +0000

скрипт запускается но неработает
не тот не другой.

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 07:18:25 +0000

Ошибка?

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 07:16:32 +0000

нет.(

Re: AHK: Перехват (Home) в IE

null@example.com (serzh82saratov) — Sun, 13 Apr 2014 07:11:22 +0000

Вы какой код запускаете? Этот работает:


#If IsHomeKey()
LButton:: ToolTip ^{vk53}
#If

IsHomeKey() {
    if !WinActive("ahk_class IEFrame ahk_exe iexplore.exe")
        return 0
    MouseGetPos, , , WinId, ControlNN 
    if !InStr( ControlNN, "ToolbarWindow")
        return 0
    WinGet, Process, ProcessName, ahk_id %WinId%
    if Process != iexplore.exe 
        return 0
    Acc := Acc_ObjectFromPoint(child)
    try value := Acc.accValue(child)
    if Not value
        try value := Acc.accName(child)
    if (value= "Домой")
        return 1
    return 0
}

Re: AHK: Перехват (Home) в IE

null@example.com (kursiv) — Sun, 13 Apr 2014 07:07:03 +0000

Error at line 13.
Line Text: "ToolbarWindow324")
Error: This line does not contain a recognized action.
The program will exit.

а вы на чем проверяете работоспособность скрипта?