[Мышь, клавиатура] Нужен макрос по авто нажатию 2 кнопок поочередно

[Maloy]

Версия AutoIt: 3.3.12.0

Описание:

Мне нужен макрос который будет работать следующим образом , я нажимаю на Правую Кнопку Мыши и после этого нажимается клавиша NUM 1 и через 0.5секунды нажимается NUM 2 .. И мне нужно так чтобы допустим скрипт я мог включить на клавишу NUM 3 , и выключить на NUM 4... Заранее благодарен автору..

Примечания:

 

[alex33]

#include <Misc.au3>
;Opt("MouseClickDelay", 100)
;Opt("MouseClickDownDelay", 60)
Global $paused, $hDll, $rkmpressed
OnAutoItExitRegister("OnExit")
HotKeySet("{NUMPAD3}", "start")
HotKeySet("{NUMPAD4}", "pause")
HotKeySet("{ESC}", "quit")
Func OnExit()
	ToolTip("")
	DllClose($hDll)
EndFunc   ;==>OnExit
Func start()
	ToolTip("Script started... Press NUMPAD4 to pause.", 1, 1)
	$paused = False
EndFunc   ;==>start
Func pause()
	$paused = True
	ToolTip("Script paused... Press NUMPAD3 to start.", 1, 1)
	While $paused = True
		Sleep(100)
	WEnd
EndFunc   ;==>pause
Func quit()
	Exit
EndFunc   ;==>quit

start()
$hDll = DllOpen("user32.dll")
While 1
	$rkmpressed = _IsPressed("02", $hDll)
	If $rkmpressed Then
		Send("{NUMPAD1}")
		Sleep(500)
		Send("{NUMPAD2}")
	EndIf
WEnd
DllClose($hDlll)

 

[Maloy]

А в игре это будет работать?

 

[alex33]

А в игре это будет работать?

Ну я-то откуда знаю? Попробуйте...

 

[Maloy]

Я просто попробывал , вроде как не хочет(


Добавлено:

Сообщение автоматически объединено: 31 Июл 2014

Можно сделать так чтоб реагировало только в определенном окне?

 

[madmasles]

Maloy [?]

А в игре это будет работать?

[info border=#0000ff float=left]Читаем Правила обязательного оформления тем в разделе "Стол заказов" и перемещаемся в соответствующий раздел.[/info]

 

[alex33]

Maloy [?]

Можно сделать так чтоб реагировало только в определенном окне?

Спойлер

#include <Misc.au3>
;Opt("MouseClickDelay", 100)
;Opt("MouseClickDownDelay", 60)
Global $paused, $hDll, $rkmpressed
OnAutoItExitRegister("OnExit")
HotKeySet("{NUMPAD3}", "start")
HotKeySet("{NUMPAD4}", "pause")
HotKeySet("{ESC}", "quit")
Func OnExit()
    ToolTip("")
    DllClose($hDll)
EndFunc   ;==>OnExit
Func start()
    ToolTip("Script started... Press NUMPAD4 to pause.", 1, 1)
    $paused = False
EndFunc   ;==>start
Func pause()
    $paused = True
    ToolTip("Script paused... Press NUMPAD3 to start.", 1, 1)
    While $paused = True
        Sleep(100)
    WEnd
EndFunc   ;==>pause
Func quit()
    Exit
EndFunc   ;==>quit

start()
$hDll = DllOpen("user32.dll")
While 1
    If Not WinActive("заголовок / класс / дескриптор окна") Then ContinueLoop
    $rkmpressed = _IsPressed("02", $hDll)
    If $rkmpressed Then
        Send("{NUMPAD1}")
        Sleep(500)
        Send("{NUMPAD2}")
    EndIf
WEnd
DllClose($hDlll)