Podwójne przyciśnięcie

[MistrzMaster]

Czesć, mógłby ktoś powiedzieć co jest nie tak w tym kodzie? W Autoit jestem słaby, a chciałem napisać sobie taki prosty programik, który po wciśnięciu Q wciska Q drugi raz.

$Key = "q"  ; zmienna ktora przechowuje przycisk
HotKeySet ($Key, "Pressed")  ; wywołuje funkcje
Func Pressed()  ; deklaracja funkcji
	If @HotKeyPressed == "q" Then  ; jeśli był wciśnięty, to:
		Send("q")
    EndIf
EndFunc



While 1
	Sleep (100)
WEnd

Z góry dzięki za odpowiedź

[Gość]

Otóż to Send nie pisze tego q, tylko znowu aktywuje tego HotKey'a, który jeszcze raz próbuje wysłać q i przez to aktywuje HotKey'a który... I tak w nieskończoność.

Oprócz tego twoje kliknięcie tylko aktywuje HotKey'a, a nie wywołuje pożądanego skutku jakim jest np. napisanie q w Notatniku. W związku z tym:

 

Musisz usunąć HotKey'a przed wysłaniem q przez program, robi się to tak:

HotKeySet($Key)

No i po wysłaniu znowu go ustawić.

 

Musisz dać drugie q do Senda, czyli zastąpić obecny Send("q") na:

Send("qq")

[MistrzMaster]

A kiedy mam przypisać HotKeySet'a do funkcji? Przed czy po? Próbowałem i tak i tak, i nie chce działać :/

[Gość]

Po Sendzie. Gotowy i działający kod wygląda tak:

$Key = "q"  ; zmienna ktora przechowuje przycisk
HotKeySet ($Key, "Pressed")  ; wywołuje funkcje
Func Pressed()  ; deklaracja funkcji
	If @HotKeyPressed = "q" Then  ; jeśli był wciśnięty, to:
		HotKeySet($Key)
		Send("qq")
		HotKeySet($Key, "Pressed")
    EndIf
EndFunc

While 1
	Sleep (100)
WEnd

[MistrzMaster]

Ahh, a ja ciągle kombinowałem po ifie. Dzięki!