Что нового

Мышь, клавиатура Запуск скрипта нажатием ПКМ

zelich

Новичок
Сообщения
117
Репутация
0
Есть простенький скрипт:
Код:
TraySetToolTip('AutoClicker 2.0')

HotKeySet('+{Esc}', '_Exit')
HotKeySet('{F9}', 'LeftC')
HotKeySet('{F11}', '_Break')
MsgBox(4096, "Cliks", "F9  ====> Клик"&@CRLF&"F11  ====> Стоп", 2)
Global  $zX
Global  $zY
$i = 0


While 1
    Sleep(10)
   If $i <> 0 Then
      TraySetIcon("shell32.dll", -74)
   Else
      TraySetIcon()
   EndIf
WEnd


Func LeftC()
   $i = 1
    $aMousePos = MouseGetPos()
    $zX = $aMousePos[0]
    $zY = $aMousePos[1]
   While $i = 1
    MouseClick('RIGHT')
    MouseMove(620,340)
    MouseClick('LEFT')
    MouseMove(1340,340)
    Sleep(300)
    MouseClick('LEFT')
    MouseMove($zX,$zY)
    Sleep(900)
    MouseClick('LEFT')
   WEnd
EndFunc

Func _Break()
   $i = 0
EndFunc

Func _Exit()
    Exit
 EndFunc


Нужно, чтоб "запускался не при нажатие F9, а с нажатием ПКМ
Помогите пожалуйста
 

Oki

Новичок
Сообщения
82
Репутация
4
Поиск сразу даёт ссылки раз и два, которые обе отсылают к топику MouseOnEvent - Обработка событии мышки.

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

zelich

Новичок
Сообщения
117
Репутация
0
Важно и то и то т.е. мне и нужен готовый код, и хочу разобратся, чтоб в след. раз сделать самому
 
Последнее редактирование:

Oki

Новичок
Сообщения
82
Репутация
4
Поскольку никто не отвечает, можно для начала попробовать такую редакцию скрипта, которая не лишена недостатков, но для некоторых целей вполне годится.
Код:
TraySetToolTip('AutoClicker 2.0.1')

#include <Misc.au3>
HotKeySet('+{Esc}', '_Exit')
HotKeySet('{F11}', '_Break')
MsgBox(4096, "Cliks", "F9  ====> Клик"&@CRLF&"F11  ====> Стоп", 2)
Global $zX
Global $zY
$i = 0
$bFlag = 1

While 1
   Sleep(10)
   If $i <> 0 Then
      TraySetIcon("shell32.dll", -74)
   Else
      TraySetIcon()
   EndIf
   $bFlagPrev = $bFlag
   $bFlag = _IsPressed("02")
   If $bFlag = 1 And $bFlagPrev = 0 Then
      LeftC()
   EndIf
WEnd

Func LeftC()
   $i = 1
   $aMousePos = MouseGetPos()
   $zX = $aMousePos[0]
   $zY = $aMousePos[1]
   While $i = 1
      MouseClick('RIGHT')
      MouseMove(620,340)
      MouseClick('LEFT')
      MouseMove(1340,340)
      Sleep(300)
      MouseClick('LEFT')
      MouseMove($zX,$zY)
      Sleep(900)
      MouseClick('LEFT')
   WEnd
EndFunc

Func _Break()
   $i = 0
EndFunc

Func _Exit()
   Exit
EndFunc
Но лучше, полагаю, разобраться с MouseOnEvent от CreatoR'а по ссылке выше.
 
Последнее редактирование:
Верх