Что нового

[Мышь, клавиатура] Другой клик мыши

zelich

Новичок
Сообщения
149
Репутация
0
Подскажите пожалуйста:
Есть скрипт:
Код:
#include <Misc.au3>
Local $hDLL = DllOpen("user32.dll")
While 1
    If _IsPressed("11", $hDLL) Then
        While _IsPressed("01", $hDLL)
		 MouseClick('middle')
        WEnd
    ElseIf _IsPressed("1B", $hDLL) Then
        ExitLoop
    EndIf
    Sleep(250)
WEnd
DllClose($hDLL)

Что от него требуется:
При удержании Ctrl вместо ЛКМ нажималась Центральная...

Что надо дописать?
 

Ksaan

Знающий
Сообщения
207
Репутация
15
Читать справку надо.
Код:
#include <Misc.au3>

Local $hDLL = DllOpen("user32.dll")
While 1
    If _IsPressed("11", $hDLL) Then
        While _IsPressed("11", $hDLL)
			MouseClick('middle')
			Sleep(100)
        WEnd
    ElseIf _IsPressed("1B", $hDLL) Then
        ExitLoop
    EndIf
    Sleep(250)
WEnd
DllClose($hDLL)
 
Автор
zelich

zelich

Новичок
Сообщения
149
Репутация
0
Ksaan, ваш скрипт делает 1 в 1 что и мой.
Когда нажимаешь ЛКМ идёт и левый клик и центральный...
 

Ksaan

Знающий
Сообщения
207
Репутация
15
zelich сказал(а):
При удержании Ctrl вместо ЛКМ нажималась Центральная...
У тебя была ошибка в коде я исправил

zelich сказал(а):
Когда нажимаешь ЛКМ идёт и левый клик и центральный
Это как? :shok:
Четче описывай что тебе надо
 
Автор
zelich

zelich

Новичок
Сообщения
149
Репутация
0
Ksaan сказал(а):
Четче описывай что тебе надо

Описываю:
При удержании Ctrl и левом клике происходит центральный клик (без левого). Без Ctrl всё работает в стандартном режиме
 

InnI

AutoIT Гуру
Сообщения
4,982
Репутация
1,460
zelich
При удержании Ctrl и левом клике происходит центральный клик (без левого)
MouseOnEvent - Обработка событии мышки

Код:
#include <MouseOnEvent.au3>
#include <Misc.au3>

_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "Down")
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "Up")

Global $Pressed = 0

While Sleep(1000)
WEnd

Func Down()
  If _IsPressed("11") Then
    MouseDown("middle")
    $Pressed = 1
    Return 1
  Else
    $Pressed = 0
    Return 0
  EndIf
EndFunc

Func Up()
  If $Pressed Then
    MouseUp("middle")
    $Pressed = 0
    Return 1
  Else
    Return 0
  EndIf
EndFunc
 
Верх