Серый форум — AHK: Назначить действие на движение мыши

Re: AHK: Назначить действие на движение мыши

2012-09-23T22:24:34Z

На офф.форуме имеется тема Lex' Mouse Gestures by Lexicos.

Re: AHK: Назначить действие на движение мыши

2012-09-23T18:19:48Z

По теме.
Кажется всё проще, нужно отслеживать, насколько курсор сместился от центра. А чтобы он не доходил до края экрана, периодически возвращать его в центр.

Re: AHK: Назначить действие на движение мыши

2011-05-29T16:57:37Z

Спасибо

Re: AHK: Назначить действие на движение мыши

2011-05-25T15:24:38Z

Заменить

Send, % Gestures

на

Sendplay, % Gestures

Re: AHK: Назначить действие на движение мыши

2011-05-25T12:57:11Z

Можно ли как-то сделать, чтобы

If (Abs(DX) >= Sensitivity)
            Gesture := (DX > 0 ? "{Right}" : "{Left}"), NewGesture := 1
         If (Abs(DY) >= Sensitivity)
            Gesture := (DY > 0 ? "{Down}" : "{Up}"), NewGesture := 1

Up, Down..... посылались как sendplay?

Re: AHK: Назначить действие на движение мыши

2011-05-12T03:34:38Z

Спасибо. Убавляешь sensitivity и тянешь мышь, вроде оно... Лучше бы было конечно при отпускании RButton.

Re: AHK: Назначить действие на движение мыши

2011-05-07T18:18:25Z

andysss пишет:

...а можно чтобы постоянно шло нажатие до тех пор, пока не отожмётся RButton?

Можно, но уже без варианта когда в хоткее есть функция посыла самой себя в статичном состоянии, хотя наверное можно и это исправить (я не имею ввиду ~ перед хоткеем).:

Sensitivity = 20
CoordMode, Mouse
Return
Esc:: ExitApp
#IfWinActive, ahk_class Notepad
RButton::
   NewGesture = 1
   Loop
      {
         If NewGesture
         {
            MouseGetPos, StartX, StartY
            NewGesture =
         }
         MouseGetPos, X, Y
         DX := X - StartX, DY := Y - StartY
         If (Abs(DX) >= Sensitivity)
            Gesture := (DX > 0 ? "{Right}" : "{Left}"), NewGesture := 1
         If (Abs(DY) >= Sensitivity)
            Gesture := (DY > 0 ? "{Down}" : "{Up}"), NewGesture := 1
         If (NewGesture && Gesture != PrevGesture)
            Gestures .= Gesture, PrevGesture := Gesture
         Sleep, 10
         Send, % Gestures
         Gestures := Gesture := PrevGesture := ""
         If GetKeyState("RButton", "P") = 0
            break
      }
Return
RButton Up::Return

Re: AHK: Назначить действие на движение мыши

2011-05-07T09:30:45Z

Ещё нюанс, а можно чтобы постоянно шло нажатие до тех пор, пока не отожмётся RButton?

Re: AHK: Назначить действие на движение мыши

2011-05-06T19:17:44Z

OFF:2andysss: далеко, очень далеко не пару секунд.

Re: AHK: Назначить действие на движение мыши

2011-05-06T18:09:18Z

Спасибо! Для вас это пару секунд, для меня тёмный лес, иногда с просветами))

Re: AHK: Назначить действие на движение мыши

2011-05-06T17:52:33Z

Или так:

Sensitivity = 20
CoordMode, Mouse
Return
Esc:: ExitApp
#IfWinActive, ahk_class Notepad
RButton::
   NewGesture = 1
   While GetKeyState("RButton", "P")
      {
         If NewGesture
         {
            MouseGetPos, StartX, StartY
            NewGesture =
         }
         MouseGetPos, X, Y
         DX := X - StartX, DY := Y - StartY
         If (Abs(DX) >= Sensitivity)
            Gesture := (DX > 0 ? "{Right}" : "{Left}"), NewGesture := 1
         If (Abs(DY) >= Sensitivity)
            Gesture := (DY > 0 ? "{Down}" : "{Up}"), NewGesture := 1
         If (NewGesture && Gesture != PrevGesture)
            Gestures .= Gesture, PrevGesture := Gesture
         Sleep, 10
      }
   If !Gestures
      Send, {RButton}
   Else
      Send, % Gestures
      Gestures := Gesture := PrevGesture := ""
Return
RButton Up::Return

Разници нет (кроме оформления).

Re: AHK: Назначить действие на движение мыши

2011-05-06T17:31:37Z

andysss пишет:

Подскажите как...?

Sensitivity = 20
   CoordMode, Mouse
   Return
Esc:: ExitApp
#IfWinActive, ahk_class Notepad
RButton::
   NewGesture = 1
   While GetKeyState("RButton", "P")
   {
      if NewGesture
      {
         MouseGetPos, StartX, StartY
         NewGesture =
      }
      MouseGetPos, X, Y
      DX := X - StartX, DY := Y - StartY
      if (Abs(DX) >= Sensitivity)
         Gesture := (DX > 0 ? "Right" : "Left"), NewGesture := 1
      if (Abs(DY) >= Sensitivity)
         Gesture := (DY > 0 ? "Down" : "Up"), NewGesture := 1
      if (NewGesture && Gesture != PrevGesture)
         Gestures .= Gesture, PrevGesture := Gesture
      Sleep, 10
   }
   if !Gestures
      Send, {RButton}
   else
Send, {%Gestures%}
   Gestures := Gesture := PrevGesture := ""
   Return
RButton Up::Return

Re: AHK: Назначить действие на движение мыши

2011-05-06T13:40:04Z

Подскажите как в этом коде с блокнотом посылать нажатия клавиш Right, Left, Up, Down чтобы нажимались эти клавиши?

Sensitivity = 20
   CoordMode, Mouse
   Return

Esc:: ExitApp

#IfWinActive, ahk_class Notepad
RButton::
   NewGesture = 1
   While GetKeyState("RButton", "P")
   {
      if NewGesture
      {
         MouseGetPos, StartX, StartY
         NewGesture =
      }

      MouseGetPos, X, Y
      DX := X - StartX, DY := Y - StartY
      
      if (Abs(DX) >= Sensitivity)
         Gesture := (DX > 0 ? "R" : "L"), NewGesture := 1
         
      if (Abs(DY) >= Sensitivity)
         Gesture := (DY > 0 ? "D" : "U"), NewGesture := 1
         
      if (NewGesture && Gesture != PrevGesture)
         Gestures .= Gesture, PrevGesture := Gesture
         
      Sleep, 10
   }
   if !Gestures
      Send, {RButton}
   else
      MsgBox, % Gestures   ; здесь назначить действие в зависимости от значения Gestures
   Gestures := Gesture := PrevGesture := ""
   Return

RButton Up::Return

Re: AHK: Назначить действие на движение мыши

2011-01-18T00:09:59Z

ypppu пишет:

...А если курсор упрётся в край экрана? Программа не поймёт, что мышка всё ещё двигается?

На этот случай есть CursorUS

Re: AHK: Назначить действие на движение мыши

2010-11-27T19:03:50Z

ypppu пишет:

с 3 раз не поняли

Ну, видно ума не хватило!