Серый форум — AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T21:15:59Z

Оставлю здесь то, что в итоге получилось.

; lbutton wheelup, WheelUp прокручен медленно - запустить Firefox, либо активировать если запущен, либо CtrlTab если открыт.
; lbutton wheelup, WheelUp прокручен быстро - AltTab.
; ctrl lbutton wheelup, WheelUp  - WheelUp.
; ctrl отпущен перед Lbutton - lbutton wheelup выполняет роль lbutton wheelup. 
; ctrl отпущен после Lbutton - lbutton wheelup выполняет хоткеи заданные в скрипте. 

#HotkeyInterval 0

Delay := 25 ; задержка между нажатиями хоткея
Repeat := 0
 
~LButton:: LButtonDown := 1 
~LButton Up:: LButtonDown := 0 

#If LButtonDown
LCtrl:: CtrlDown := 1 
LCtrl Up:: CtrlDown := 0  
WheelUp::  
	SetTimer, % CtrlDown ? "Action_Ctrl" : "Action", -%Delay% 
	++Repeat
	Return
#If

Action:
Action_Ctrl:
	_Repeat := Repeat, Repeat := 0
	If A_ThisLabel = Action_Ctrl
				send {wheelup}
			
			Else
	{
		If _Repeat < 2 ;ToolTip lbutton wheelup`, WheelUp прокручен до 2 раз - одно действие.
			{
        ifwinactive, ahk_class MozillaWindowClass
        {
    send, {Ctrl down}{Tab} 
    sleep, 500
    send, {left}
}
IfWinExist, ahk_class MozillaWindowClass
WinActivate ahk_class MozillaWindowClass
else
{
	run, "C:\Ярлыки\m Google url.lnk"
#Persistent
ToolTip, Firefox запускается`nподожди момент.
SetTimer, RemoveToolTip, 5000
return

RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return
}
    }
		Else ; ToolTip lbutton wheelup`, WheelUp прокручен больше 2 раз - второе действие.
			{
        ; sleep, 350
    send, {alt down}{Tab} 
    sleep, 800
    send, {left}
      }
       return
}
	 
	Return
	
#ifwinactive, ahk_class MozillaWindowClass
^WheelUp::Left
^WheelDown::Right
^LButton:: send {ctrl up}


#if (MouseIsOver("ahk_class TaskSwitcherWnd") && !winactive("ahk_group test"))
!lButton::
MouseGetPos, varx, vary
ControlClick, x%varx% y%vary%, ahk_class TaskSwitcherWnd
send, {alt up}
return
^!lButton:: 
MouseGetPos, varx, vary
ControlClick, x%varx% y%vary%, ahk_class TaskSwitcherWnd
send, {ctrl up} {alt up}
    return
    
#ifwinactive, ahk_class TaskSwitcherWnd
!lButton:: send, {alt up}
^!lButton:: send, {ctrl up} {alt up}
    return
    
GroupAdd, test, ahk_class TaskSwitcherWnd

MouseIsOver(WinTitle) {
      MouseGetPos, , , Win
    return WinExist(WinTitle . " ahk_id " . Win)
}

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T21:10:40Z

serzh82saratov, Огромное Спасибо! Теперь нет никакого масштабирования - то, что надо. Как понимаю отпускать lbutton можно только последним, иначе скрипт останавливается? С какой-то стороны даже полезная фича получилась, на моменты когда нужно много выделять со скролом)

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T20:19:03Z

Может так:


#HotkeyInterval 0

Delay := 200 ; задержка между нажатиями хоткея
Repeat := 0
 
~LButton:: LButtonDown := 1 
~LButton Up:: LButtonDown := 0 

#If LButtonDown
LCtrl:: CtrlDown := 1 
LCtrl Up:: CtrlDown := 0  
WheelUp::  
	SetTimer, % CtrlDown ? "Action_Ctrl" : "Action", -%Delay% 
	++Repeat
	Return
#If

Action:
Action_Ctrl:
	_Repeat := Repeat, Repeat := 0
	If A_ThisLabel = Action_Ctrl
	{
		If _Repeat = 1
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен 1 раз - одно действие.
		Else
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен больше 2 раз - второе действие.
	}
	Else
	{
		If _Repeat < 5
			ToolTip lbutton wheelup`, WheelUp прокручен до 5 раз - одно действие.
		Else
			ToolTip lbutton wheelup`, WheelUp прокручен больше 5 раз - второе действие.
	} 
	Return

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T19:37:21Z

serzh82saratov пишет:

если устраивает сначала зажимать LButton потом LControl и после WheelUp, то может получится это обойти.

В принципе сейчас так и делаю, а каким образом организовать обход проблемы?

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T18:31:52Z

Правда иногда масштабирование прорывается, как с этим бороться?

Это и есть главный вопрос. Теоретически, если устраивает сначала зажимать LButton потом LControl и после WheelUp, то может получится это обойти.

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T18:25:45Z

Предыдущий вопрос отменяется, так как вроде работает без этого. Правда иногда масштабирование прорывается, как с этим бороться?

Delay := 10 ; задержка между нажатиями хоткея
Repeat := 0

~LCtrl::
	CtrlDown := 1
	KeyWait, LControl
	CtrlDown := 0
	Return
~LButton & WheelUp::  


;Send, {Ctrl up}
	SetTimer, % CtrlDown ? "Action_Ctrl" : "Action", -%Delay% 
	++Repeat
	Return

Action:
Action_Ctrl:
	_Repeat := Repeat, Repeat := 0
	If A_ThisLabel = Action_Ctrl
				send {wheelup}
			
			Else
	{
		If _Repeat < 5 ;ToolTip lbutton wheelup`, WheelUp прокручен до 5 раз - одно действие.
			{
        ifwinactive, ahk_class MozillaWindowClass
        {
    send, {Ctrl down}{Tab} 
    sleep, 500
    send, {left}
}
IfWinExist, ahk_class MozillaWindowClass
WinActivate ahk_class MozillaWindowClass
else
{
	run, "C:\¤рлыки\m Google url.lnk"
#Persistent
ToolTip, Firefox запускаетс¤`nподожди момент.
SetTimer, RemoveToolTip, 5000
return

RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return
}
    }
		Else ; ToolTip lbutton wheelup`, WheelUp прокручен больше 5 раз - второе действие.
			{
        sleep, 200
    send, {Ctrl up}{alt down}{Tab} 
    sleep, 500
    send, {left}
      }
    Count_Presses = 0
    return
}
	 
	Return
	
#ifwinactive, ahk_class MozillaWindowClass
^WheelUp::Left
^WheelDown::Right
^LButton:: send {ctrl up}


#if (MouseIsOver("ahk_class TaskSwitcherWnd") && !winactive("ahk_group test"))
!lButton::
MouseGetPos, varx, vary
ControlClick, x%varx% y%vary%, ahk_class TaskSwitcherWnd
send, {alt up}
return
^!lButton:: 
MouseGetPos, varx, vary
ControlClick, x%varx% y%vary%, ahk_class TaskSwitcherWnd
send, {ctrl up} {alt up}
    return
    
#ifwinactive, ahk_class TaskSwitcherWnd
!lButton:: send, {alt up}
^!lButton:: send, {ctrl up} {alt up}
    return
    
GroupAdd, test, ahk_class TaskSwitcherWnd

MouseIsOver(WinTitle) {
      MouseGetPos, , , Win
    return WinExist(WinTitle . " ahk_id " . Win)
}

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T18:19:44Z

serzh82saratov, Спасибо огромное за активную помощь.

Да пожалуйста. Благодарность кстати можно увековечить в репутации.

Так же нашел один баг при нажатии ctrl lbutton wheelup, появляется сообщение "71 hotkeys have been received in the last 1903ms"

Да, там надо в начало скрипта добавить:

#HotkeyInterval 0

Как бы ещё сделать, чтобы ctrl lbutton wheelup`, WheelUp прокручен 1 раз, заменить на ctrl lbutton wheelup`, WheelUp прокручен ПЕРВЫЙ раз?

Не совсем понял.

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T18:00:18Z

Как бы ещё сделать, чтобы ctrl lbutton wheelup`, WheelUp прокручен 1 раз, заменить на ctrl lbutton wheelup`, WheelUp прокручен ПЕРВЫЙ раз?

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T17:58:16Z

В ваших примерах было всё что нужно.

Вот такой вариант заработал как надо:

Delay := 200 ; задержка между нажатиями хоткея
Repeat := 0

~LCtrl::
	CtrlDown := 1
	KeyWait, LControl
	CtrlDown := 0
	Return
~LButton & WheelUp::  


Send, {Ctrl up}
	SetTimer, % CtrlDown ? "Action_Ctrl" : "Action", -%Delay% 
	++Repeat
	Return

Action:
Action_Ctrl:
	_Repeat := Repeat, Repeat := 0
	If A_ThisLabel = Action_Ctrl
	{
		If _Repeat = 1
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен 1 раз - одно действие.
		Else
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен больше 2 раз - второе действие.
	}
	Else
	{
		If _Repeat < 5
			ToolTip lbutton wheelup`, WheelUp прокручен до 5 раз - одно действие.
		Else
			ToolTip lbutton wheelup`, WheelUp прокручен больше 5 раз - второе действие.
	} 
	Return

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T17:53:08Z

Попробовал добавить в ваш вариант хоткей, но он почему-то даже не включается...

Delay := 200 ; задержка между нажатиями хоткея
Repeat := 0

~LCtrl:: CtrlDown := 1 
~LCtrl Up:: CtrlDown := 0 
	 
~LButton & WheelUp::  

Hotkey, ctrl, cdown, on
Send, {Ctrl up}
	SetTimer, % CtrlDown ? "Action_Ctrl" : "Action", -%Delay% 
	++Repeat
	Return
Cdown:
ToolTip, ctrl
KeyWait, ctrl, L
 Hotkey, ctrl, cdown, off
return

Action:
Action_Ctrl:
	_Repeat := Repeat, Repeat := 0
	If A_ThisLabel = Action_Ctrl
	{
		If _Repeat = 1
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен 1 раз - одно действие.
		Else
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен больше 2 раз - второе действие.
	}
	Else
	{
		If _Repeat < 5
			ToolTip lbutton wheelup`, WheelUp прокручен до 5 раз - одно действие.
		Else
			ToolTip lbutton wheelup`, WheelUp прокручен больше 5 раз - второе действие.
	} 
	Return

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T17:12:15Z

serzh82saratov, Спасибо огромное за активную помощь. Сразу заметил не возможность использовать ctrl - не хорошо. Слава Богу, решение нашлось очень быстро ~Lctrl. Может оно не идеальное, пока ничего нового кроме рабочего Ctrl не заметил. Так же нашел один баг при нажатии ctrl lbutton wheelup, появляется сообщение "71 hotkeys have been received in the last 1903ms"
Так понимаю что это связано с зажатым ctrl. Сообщение появляется как в варианте с ~Lctrl так и с Lctrl.

ctrl отпущен - третье действие.
Это не понял.

Я просто не объяснил для чего все это нужно. Всё началось с того, что я вцепил хоткеи на Lbutton Wheel. И как бы всё нормально, за исключением тех ситуаций когда нужно выделить на странице что-то большого размера, содержимое которого не входит в один экран. Так как в этом случае мне как раз и нужны Lbutton Wheel. Вот и появилась идея вернуть обычные действия Lbutton Wheel при зажатом Ctrl.

Идея такая, первое нажатие - lbutton down, последующие Wheel, Ctrl опущен Lbutton up.

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T13:40:06Z

Например:


Delay := 200 ; задержка между нажатиями хоткея
Repeat := 0

LCtrl:: CtrlDown := 1 
LCtrl Up:: CtrlDown := 0 
	 
~LButton & WheelUp::  
	SetTimer, % CtrlDown ? "Action_Ctrl" : "Action", -%Delay% 
	++Repeat
	Return

Action:
Action_Ctrl:
	_Repeat := Repeat, Repeat := 0
	If A_ThisLabel = Action_Ctrl
	{
		If _Repeat = 1
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен 1 раз - одно действие.
		Else
			ToolTip ctrl lbutton wheelup`, WheelUp прокручен больше 2 раз - второе действие.
	}
	Else
	{
		If _Repeat < 5
			ToolTip lbutton wheelup`, WheelUp прокручен до 5 раз - одно действие.
		Else
			ToolTip lbutton wheelup`, WheelUp прокручен больше 5 раз - второе действие.
	} 
	Return

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

ctrl отпущен - третье действие.

Это не понял.

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T11:15:25Z

serzh82saratov, чёт не увидел ваш ответ, спасибо, позже попробую, отпишусь.

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T11:13:45Z

Вот так вроде заработал

#SingleInstance force

~lButton & WheelUp::
;#Persistent
GetKeyState, keystate, Ctrl, p
if keystate = D    ; D = down
{
    Hotkey, ctrl, cdown, on
    
    Count_Presses += 1 ; выставляем флаг, что клавиша один раз нажата
    SetTimer, Timer_Presses_5, 20 ; переходить к указанной подпрограмме через каждые 5 миллисекунд
Return ; закончить обработку горячей клавиши

Timer_Presses_5: ; подпрограмма действий в зависимости от количества нажатий
    SetTimer, Timer_Presses_5, off ; выключить таймер
    If Count_Presses = 10000000000000 ; если клавиша нажата однажды...
    {
		
          
		   Send, {ctrl up}
           
        Send, {LButton down}
		Hotkey, ctrl Up, lUp, on
        Send, {WheelUp}
		ToolTip, If Count_Presses = 1
		 return
    }
    
    If Count_Presses >= 2
    {
		ToolTip, If Count_Presses >= 2
		;send {ctrl up}
        send {wheelup}
           
			
		}	
			
    ;Count_Presses = 0

return


}
else
{
If Count_Presses > 0 ; если таймер уже запущен, то...
    {
        Count_Presses += 1 ; плюсуем каждое нажатие клавиши (число будет обрабатываться в подпрограмме соответствующего таймера)
        Return ; закончить обработку горячей клавиши (ее дальнейшую обработку уже определяет таймер и его подпрограмма)
    }
    ; иначе - это первое нажатие из новой серии
    Count_Presses = 1 ; выставляем флаг, что клавиша один раз нажата
    SetTimer, Timer_Presses_4, 700 ; переходить к указанной подпрограмме через каждые 300 миллисекунд
Return ; закончить обработку горячей клавиши

Timer_Presses_4: ; подпрограмма действий в зависимости от количества нажатий
    SetTimer, Timer_Presses_4, off ; выключить таймер
    If Count_Presses < 5 ; если клавиша нажата однажды...
    {
        ifwinactive, ahk_class MozillaWindowClass
        {
    send, {Ctrl down}{Tab} 
    sleep, 500
    send, {left}
}
IfWinExist, ahk_class MozillaWindowClass
WinActivate ahk_class MozillaWindowClass
else
{
	run, "C:\ярлыки\m Google url.lnk"
#Persistent
ToolTip, Firefox запускается`nподожди момент.
SetTimer, RemoveToolTip, 5000
return

RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return
}
    }
    
    If Count_Presses > 5
    {
        sleep, 200
    send, {Ctrl up}{alt down}{Tab} 
    sleep, 500
    send, {left}
      }
    Count_Presses = 0
    return
}
lUp:
ToolTip, ctrlup
Send, {ctrl up}
Send {lbutton up}
 Hotkey, ctrl Up, lUp, off
 Hotkey, ctrl, cdown, off
 Count_Presses = 0
return
Cdown:
ToolTip, ctrl
KeyWait, ctrl, L
Hotkey, ctrl, cdown, off
 Hotkey, ctrl Up, lUp, off
ToolTip, ctrl_off
send, {Ctrl up}
Count_Presses = 0
return

Когда освобожусь, нужно будет прибраться в скрипте, удалить лишнее.

serzh82saratov спасибо за наводку.

Re: AHK: Lbutton WheelUp Firefox CtrlTab AltTab + возмож выделения текста

2015-11-07T10:38:05Z

Вот так придумал, но всё равно как-то результат не 100%

#SingleInstance force

~lButton & WheelUp::
;#Persistent
GetKeyState, keystate, Ctrl, p
if keystate = D    ; D = down
{
    Hotkey, ctrl, cdown, on
    Count_Presses += 1 ; выставляем флаг, что клавиша один раз нажата
    SetTimer, Timer_Presses_5, 20 ; переходить к указанной подпрограмме через каждые 5 миллисекунд
Return ; закончить обработку горячей клавиши

Timer_Presses_5: ; подпрограмма действий в зависимости от количества нажатий
    SetTimer, Timer_Presses_5, off ; выключить таймер
    If Count_Presses = 1 ; если клавиша нажата однажды...
    {
		
           Send, {ctrl up}
		   Send, {ctrl up}
        Send, {LButton down}
		Hotkey, ctrl Up, lUp, on
        Send, {WheelUp}
		ToolTip, If Count_Presses = 1
		 return
    }
    
    If Count_Presses >= 2
    {
		ToolTip, If Count_Presses >= 2
		;send {ctrl up}
        send {wheelup}
           
			
		}	
			
    ;Count_Presses = 0

return


}
else
{
If Count_Presses > 0 ; если таймер уже запущен, то...
    {
        Count_Presses += 1 ; плюсуем каждое нажатие клавиши (число будет обрабатываться в подпрограмме соответствующего таймера)
        Return ; закончить обработку горячей клавиши (ее дальнейшую обработку уже определяет таймер и его подпрограмма)
    }
    ; иначе - это первое нажатие из новой серии
    Count_Presses = 1 ; выставляем флаг, что клавиша один раз нажата
    SetTimer, Timer_Presses_4, 700 ; переходить к указанной подпрограмме через каждые 300 миллисекунд
Return ; закончить обработку горячей клавиши

Timer_Presses_4: ; подпрограмма действий в зависимости от количества нажатий
    SetTimer, Timer_Presses_4, off ; выключить таймер
    If Count_Presses < 5 ; если клавиша нажата однажды...
    {
        ifwinactive, ahk_class MozillaWindowClass
        {
    send, {Ctrl down}{Tab} 
    sleep, 500
    send, {left}
}
IfWinExist, ahk_class MozillaWindowClass
WinActivate ahk_class MozillaWindowClass
else
{
	run, "C:\ярлыки\m Google url.lnk"
#Persistent
ToolTip, Firefox запускается`nподожди момент.
SetTimer, RemoveToolTip, 5000
return

RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return
}
    }
    
    If Count_Presses > 5
    {
        sleep, 200
    send, {Ctrl up}{alt down}{Tab} 
    sleep, 500
    send, {left}
      }
    Count_Presses = 0
    return
}
lUp:
ToolTip, ctrlup
Send {lbutton up}
 Hotkey, ctrl Up, lUp, off
 Hotkey, ctrl, cdown, off
 Count_Presses = 0
return
Cdown:
ToolTip, ctrl
KeyWait, ctrl, L
return