между (step = 2) и (step = 3) и почему они не могут быть в одном «потоке» — уже не очень
По всей видимости, по той же причине, что и между 1 и 2 — открывается новое диалоговое окно и поток ждёт его закрытия.
]]>Хотя как раз в этом случае весь сыр-бор ни к чему, поскольку можно просто
Run intl.cpl
— это открытие *.cpl сопоставленным приложением, т.е. rundll32.exe…
Думаю, это решение можно воспроизвести и встроенной командой SetTimer:
Я подозреваю, хотя и не проверял, что если перед этим местом установить следующий таймер, то чего-то и можно добиться, но как-то это некрасиво выглядит.
Т.е. почему требуется разрыв между (step = 1) и (step = 2) понятно, а между (step = 2) и (step = 3) и почему они не могут быть в одном «потоке» — уже не очень…
]]>
Конечно Ptr.Вот так у меня срабатывает на семёрке вызов диалога «Язык и региональные стандарты»
Хотя как раз в этом случае весь сыр-бор ни к чему, поскольку можно просто
Run intl.cplбез привязки к окну диалога.
]]>#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
}
}Ок, если так?
Так работает, если в моём случае изменить «Звук» на «Свойства: Звуки и аудиоустройства», но оно работает и через
SetTimer MyTimer, -1Отличий не заметил.
]]>основной диалог уже вручную не закрывается
Эту проблему я пропустил, тоже не закрывается.
]]>
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
}
Так вообще ничего не происходит.
А так?
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
Так это самый примитивный способ автоматизации, обычно его стараются избегать
Кто бы спорил, но часто лучше как-нибудь, чем никак.
]]>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.
А AutoHotkey нужен для автоматизации, в том числе путём эмуляции действий пользователя.
Так это самый примитивный способ автоматизации, обычно его стараются избегать и действовать как-то напрямую.
]]>