Серый форум — AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Fri, 11 Aug 2017 00:39:48 +0000

wisgest пишет:

между (step = 2) и (step = 3) и почему они не могут быть в одном «потоке» — уже не очень

По всей видимости, по той же причине, что и между 1 и 2 — открывается новое диалоговое окно и поток ждёт его закрытия.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (wisgest) — Thu, 10 Aug 2017 23:14:33 +0000

teadrinker пишет:

Хотя как раз в этом случае весь сыр-бор ни к чему, поскольку можно просто
Run intl.cpl

— это открытие *.cpl сопоставленным приложением, т.е. rundll32.exe…

Думаю, это решение можно воспроизвести и встроенной командой SetTimer:

wisgest пишет:

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

Т.е. почему требуется разрыв между (step = 1) и (step = 2) понятно, а между (step = 2) и (step = 3) и почему они не могут быть в одном «потоке» — уже не очень…

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Thu, 10 Aug 2017 22:21:03 +0000

А, это я же с коллеги wisgest скопировал. Конечно Ptr.

teadrinker пишет:

Вот так у меня срабатывает на семёрке вызов диалога «Язык и региональные стандарты»

Хотя как раз в этом случае весь сыр-бор ни к чему, поскольку можно просто

Run intl.cpl

без привязки к окну диалога.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (serzh82saratov) — Thu, 10 Aug 2017 22:16:51 +0000

"UInt", A_ScriptHwnd?

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Thu, 10 Aug 2017 21:53:28 +0000

Вот так у меня срабатывает на семёрке вызов диалога «Язык и региональные стандарты» и по кнопке поддиалога «Настройка формата»:

#Persistent
DllCall("SetTimer", Ptr, A_ScriptHwnd, Ptr, id := 1, UInt, 300, Ptr, RegisterCallback("MyTimer", "F"))
Return

MyTimer()  {
   static step := 0
   if (++step = 1)  {
      DllCall("shell32.dll\Control_RunDLL" . (A_IsUnicode ? "W" : "A")
         , "UInt", A_ScriptHwnd, "Ptr", 0, "Str", "intl.cpl", "UInt", nCmdShow := 1)
   }
   else if (step = 2)  {
      WinWait, Язык и региональные стандарты
      ControlClick, &Дополнительные параметры...
   }
   else if (step = 3)  {
      WinWait, Настройка формата
      ControlClick, Button3  ; Button OK, по OK не срабатывает
   }
   else if (step = 4)  {
      DllCall("KillTimer", Ptr, A_ScriptHwnd, Ptr, id := 1)
      WinWait, Язык и региональные стандарты
      ControlClick, Button4  ; Button OK
   }
}

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (wisgest) — Thu, 10 Aug 2017 20:51:29 +0000

serzh82saratov пишет:

Ок, если так?

Так работает, если в моём случае изменить «Звук» на «Свойства: Звуки и аудиоустройства», но оно работает и через

SetTimer MyTimer, -1

Отличий не заметил.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (serzh82saratov) — Thu, 10 Aug 2017 20:47:27 +0000

wisgest пишет:

основной диалог уже вручную не закрывается

Эту проблему я пропустил, тоже не закрывается.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (wisgest) — Thu, 10 Aug 2017 20:41:56 +0000

serzh82saratov, непосредственно следующий за командой создающей диалог код не выполняется, естественно. Но если «понажимать» запустить в другом (псевдо)потоке, то, может быть что-то и получится. Оно и получается, но только до места, где создаётся следующий диалог. Я подозреваю, хотя и не проверял, что если перед этим местом установить следующий таймер, то чего-то и можно добиться, но как-то это некрасиво выглядит. Может быть поиграться с приоритетами или какими-то директивами, но я в этом не разбираюсь.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (serzh82saratov) — Thu, 10 Aug 2017 20:39:22 +0000

Ок, если так?


DllCall("SetTimer", Ptr, A_ScriptHwnd, Ptr, 1, UInt, 300, Ptr, RegisterCallback("MyTimer", "Fast"))
DllCall("shell32.dll\Control_RunDLL" . (A_IsUnicode? "W": "A")
	, UInt, A_ScriptHwnd ; HWND hwnd
;	, UInt, 0 ; HWND hwnd
	, Ptr, 0 ; HINSTANCE hInstance
	, Str, "MmSys.cpl" ; LPTSTR lpszCmd
	, UInt, 1) ; nCmdShow

MyTimer()  {
	DllCall("KillTimer", Ptr, A_ScriptHwnd, Ptr, 1)
	WinWait Звук ahk_class #32770
	Loop	
		MsgBox, , , % A_Index, 0.2
}

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Thu, 10 Aug 2017 20:22:46 +0000

serzh82saratov, в десятку!

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (serzh82saratov) — Thu, 10 Aug 2017 20:10:34 +0000

На семёрке пока не закроешь окно код далее не выполняется, наверное вопрос в этом...
То есть то что надо "по нажимать" не получается.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Thu, 10 Aug 2017 19:19:22 +0000

Это на семёрке, а на десятке ничего.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Thu, 10 Aug 2017 18:57:44 +0000

Так открывается такое окно:

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (wisgest) — Thu, 10 Aug 2017 18:22:47 +0000

teadrinker пишет:

Так вообще ничего не происходит.

А так?

DllCall("shell32.dll\Control_RunDLL" . (A_IsUnicode? "W": "A")
	, UInt, A_ScriptHwnd ; HWND hwnd
;	, UInt, 0 ; HWND hwnd
	, Ptr, 0 ; HINSTANCE hInstance
	, Str, "MmSys.cpl" ; LPTSTR lpszCmd
	, UInt, 1) ; nCmdShow

teadrinker пишет:

Так это самый примитивный способ автоматизации, обычно его стараются избегать

Кто бы спорил, но часто лучше как-нибудь, чем никак.

Re: AHK: Взаимодействие с диалогами, принадлежащими собственному процессу

null@example.com (teadrinker) — Thu, 10 Aug 2017 18:05:07 +0000

wisgest пишет:

DllCall("MmSys.cpl\ShowFullControlPanel"
;   , UInt, A_ScriptHwnd ; HWND hwnd
   , UInt, 0 ; HWND hwnd
   , Ptr, 0 ; HINSTANCE hInstance
   , Ptr, 0 ; LPTSTR lpszCmd
   , UInt, 1) ; nCmdShow

Так вообще ничего не происходит. На семёрке нет параметра ShowFullControlPanel.

wisgest пишет:

А AutoHotkey нужен для автоматизации, в том числе путём эмуляции действий пользователя.

Так это самый примитивный способ автоматизации, обычно его стараются избегать и действовать как-то напрямую.