Переключиться в последнее использовавшееся окно - как?

[Raistlin]

То есть получить тот же результат, что при нажатии Alt-Tab. Посылка сочетания через SEND-KEYS не подойдет.

[AlikasS]

То есть получить тот же результат, что при нажатии Alt-Tab. Посылка сочетания через SEND-KEYS не подойдет.

Code: Select all

<%
0 VALUE my_bufferW
0 VALUE old_my_bufferW
%>

#( предактивное_окно
\ NoActive
NoLog
SingleInstance
MonitorResponseTime
50 TO MonitorResponseTime
WatchWinActivate: "*"
TO MonitorResponseTime 
Action:
my_bufferW TO old_my_bufferW
GetForegroundWindow TO my_bufferW
)#

#( перекл_в_предактивное_окно
WatchHotKey: "{0x73}" \ 'F4'
NoLog
Action:
old_my_bufferW  N>S WIN-ACTIVATE
)#

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

[Wyz]

Code: Select all

#( emulate_alt_tab
NoActive
SingleInstance
2 CONSTANT GW_HWNDNEXT
3 CONSTANT GW_HWNDPREV
9 CONSTANT SW_RESTORE
WINAPI: GetWindow USER32.DLL
WINAPI: SwitchToThisWindow USER32.DLL
VARIABLE emulate_alt_tab_next_window
Action:

GetForegroundWindow emulate_alt_tab_next_window !
100 0 DO
   GW_HWNDNEXT emulate_alt_tab_next_window @ GetWindow
   DUP emulate_alt_tab_next_window !
   IsWindowVisible IF LEAVE THEN
LOOP

emulate_alt_tab_next_window @ >R

R@ SetForegroundWindow DROP
FALSE R@ SwitchToThisWindow DROP
R@ BringWindowToTop DROP
R@ SetForegroundWindow DROP
RDROP

)#


[Raistlin]

Вариант AlikasS работает, правда, стабильность не 100% (на окне RDC, для чего и затевалось). А суть варианта Wyz не понял - на какое событие он реагирует? Или это только пример?

[Wyz]

Добавь событие

[Raistlin]

Ругается на GetWindow и SwitchToThisWindow.

[Wyz]

Code: Select all

WINAPI: GetWindow USER32.DLL
WINAPI: SwitchToThisWindow USER32.DLL


[Raistlin]

Работает, но выдает Stack error.
Я правильно понимаю, что будет корректно работать, если открыто не более 100 окон?

[Wyz]

Надо убрать 1 DROP:

Code: Select all

FALSE R@ SwitchToThisWindow DROP

не более 100 окон?

Нет, просто на всякий случай ограничил поиск следующего видимого окна...

[Raistlin]

Из окна The Bat! переключиться не получается. Вариант AlikasS - работает.
Это для информации. Так-то - спасибо и вам, и AlikasS: где надо - работает.