Да, с кликом наверное не получится, он деактивирует меню.
Т.е. деактивирует до момента выбора пункта меню? Значит, использовать версию, где подразумевается только перемещение указателя на исходную позицию и в начале того пункта меню, где это необходимо, добавить MouseClick, Left?
upd.: Насколько мне стало ясным, скрипт начинает некорректно работать, если я указываю пятым параметром значение 2, т.е. кликать мышью перед началом действия выбранного пункта. Т.е. буду использовать предыдущую редакцию, т.к. все равно нет необходимости в клике всегда, а только для некоторых пунктов меню.
]]>Может, метод вызова меню, который испоьзуется в моем случае, не полностью соответствует последней редакции сценария?
Тут я даже непонимаю как оно должно появится. Нажимаем RButton и потом ждём когда его отпустят.
While (GetKeyState("RButton", "P")И далее блок.
Menu1.Show("Center", 10, "M",, 2) ; 1 - mousemove, 2 - mouseclick
;~ MouseGetPos, MenuRunX, MenuRunY
KeyWait, RButton
Menu1.Hide(1)Где KeyWait уже не ждёт, соответственно меню сразу исчезает.
]]>
#If WheelDownOn
WheelDown::WheelDownCounter++
#If
$RButton::
WheelDownOn := RButtonLong := WheelDownCounter := 0
SetTimer, RButtonTimer, -150
While (GetKeyState("RButton", "P") && !WheelDownCounter)
Sleep 10
SetTimer, RButtonTimer, Off
WheelDownOn := 0
If WheelDownCounter
{
Send {vk56}^!+{k} ; отправить V+Ctrl+Alt+Shift+K перед вызовом меню
Menu1.Show("Center", 10, "M",, 2) ; 1 - mousemove, 2 - mouseclick
;~ MouseGetPos, MenuRunX, MenuRunY
KeyWait, RButton
Menu1.Hide(1)
}
If !RButtonLong
Send, {RButton}
Else If !WheelDownCounter
SendInput {vk56}
Return
RButtonTimer:
RButtonLong := WheelDownOn := 1
SendInput {vk43}
ReturnВ предыдущей редакции меню появлялось по центру. Наугад поменял Center на Right, и вроде исправилось.
Любой текст кроме "Center" эквивалентен нулю.
]]>Error: Invalid option
Поправил.
]]>А что тут значит Right?
В предыдущей редакции меню появлялось по центру. Наугад поменял Center на Right, и вроде исправилось.
]]>Error: Invalid option
Gui, %Hwnd%:Show, NA AutoSize x%sx% y%sy% Menu1.Show("Right", 10, "M",, 1)
А что тут значит Right?
]]>
...
Menu1.Show("Right", 10, "M",, 1)
MouseGetPos, MenuRunX, MenuRunY
...Это добавил.
Открыл, но не нашел переменные координат.
]]>А как можно совершить клик в эти координаты отдельным действием?
Это добавил.
upd.: a вообще, было бы удобнее, если можно было включать или исключать возвращение курсора к месту вызова в зависимости от выбранного пункта меню. Например, добавить соответсвующий параметр в переменные.
Можно конечно всё что угодно добавить, но можно и самому, указать просто возвращать мышь, а кликать или не кликать уже из подпрограммы выбранного пункта.
]]>