Typing twice for a different command

[rubbioli]

Hi!
I have the following hotkey for a specific program:

Code: Select all

appskey::
SetCapsLockState, Off
send ^+b
return

But i would like that when i press the "appkey" key fast twice it would open "notepad".
It´s possible?

[Rohwedder]

Hallo,
try:

Code: Select all

appskey Up::SetTimer, Takey,% -10-400*(Takey:=!Takey)
Takey:
IF Takey
{
	SetCapsLockState, Off
	send ^+b
}
Else Run, Notepad.exe
Takey := False
Return

or fewer script lines:

Code: Select all

appskey Up::SetTimer, Takey,% -10-400*(Takey:=!Takey)
Takey:
IF Takey And !Takey := False {
	SetCapsLockState, Off
	send ^+b
} Else Run, Notepad.exe
Return

[rubbioli]

Tks a lot my brother!
It Worked!
Have a noce day!!!

[rubbioli]

*nice day!

[rubbioli]

Hum...

unfortunately, this script conflicts with the command below, which was disabled after adopting your proposal:

Code: Select all

Loop
{ ;Format: ddMMyyyy
	Input, Key, L1 V
	IF Key is not Integer
		Date := Key := ""
	IF StrLen(Date .= Key) < 8
		Continue
	Try := (Year:=SubStr(Date,5)) (Month:=SubStr(Date,3,2)) SubStr(Date,1,2)
	Try -= A_Now, Days
	IF Try > ""
		SendInput, {BackSpace 6}/%Month%/%Year%
	Date := ""
}
return

[Mod edit: [code][/code] tags added.]


Is there any way for the two to work without conflicting with each other?

[boiler]

Is it because you put the code you just showed below Rohwedder’s code? See Structure of a Script.

[rubbioli]

Understand my friend: I don't understand much about AHK. I like it, I use it a lot, but I have limitations in its knowledge. I changed the order of the scripts, but the problem continued... one blocks the other.

[boiler]

Understand that I’m just trying to help. Do you not want me to make suggestions? Isn’t that why you’re posting?

Please post your code as you’ve modified it for further feedback.

[rubbioli]

Understand that I’m just trying to help. Do you not want me to make suggestions? Isn’t that why you’re posting?

Please post your code as you’ve modified it for further feedback.

Sorry, there was a misunderstanding. I really appreciate your suggestion, but I just wanted to say that it didn't work. Sorry if I sounded rude, but that was never my intention!

[boiler]

OK, so can you please post your code?

[rubbioli]

Code: Select all

appskey Up::SetTimer, Takey,% -10-400*(Takey:=!Takey)
Takey:
IF Takey And !Takey := False {
	SetCapsLockState, Off
	send ^+b
} Else Run, Notepad.exe
Return

[rubbioli]

Code: Select all

Loop
{ ;Format: ddMMyyyy
	Input, Key, L1 V
	IF Key is not Integer
		Date := Key := ""
	IF StrLen(Date .= Key) < 8
		Continue
	Try := (Year:=SubStr(Date,5)) (Month:=SubStr(Date,3,2)) SubStr(Date,1,2)
	Try -= A_Now, Days
	IF Try > ""
		SendInput, {BackSpace 6}/%Month%/%Year%
	Date := ""
}
return

[Mod edit: [code][/code] tags added.]

[rubbioli]

These scripts are conflicting with each other. In fact, the script that puts dates automatically has no effect after the script that uses the appskey key.

[boiler]

Don't show them separately. Show them exactly as how you have combined them into the same script that you say does not work. It's important to see how you have combined them.

[rubbioli]

Hi, just um above the other, in the same txt file!

[boiler]

You can't have the hotkey first. That was the point of the "Structure of a Script" link. You said you tried it the other way, but I can't see how this script alone would work:

Code: Select all

Loop
{ ;Format: ddMMyyyy
	Input, Key, L1 V
	IF Key is not Integer
		Date := Key := ""
	IF StrLen(Date .= Key) < 8
		Continue
	Try := (Year:=SubStr(Date,5)) (Month:=SubStr(Date,3,2)) SubStr(Date,1,2)
	Try -= A_Now, Days
	IF Try > ""
		SendInput, {BackSpace 6}/%Month%/%Year%
	Date := ""
}
return

...while this one would not:

Code: Select all

Loop
{ ;Format: ddMMyyyy
	Input, Key, L1 V
	IF Key is not Integer
		Date := Key := ""
	IF StrLen(Date .= Key) < 8
		Continue
	Try := (Year:=SubStr(Date,5)) (Month:=SubStr(Date,3,2)) SubStr(Date,1,2)
	Try -= A_Now, Days
	IF Try > ""
		SendInput, {BackSpace 6}/%Month%/%Year%
	Date := ""
}
return

appskey Up::SetTimer, Takey,% -10-400*(Takey:=!Takey)
Takey:
IF Takey And !Takey := False {
	SetCapsLockState, Off
	send ^+b
} Else Run, Notepad.exe
Return

...especially before you press a hotkey.

[rubbioli]

This one above makes the date with "/". Like that: if I type 08092022 it shows 08/08/2022 (puts "/" inside automatically):

Loop
{ ;Format: ddMMyyyy
Input, Key, L1 V
IF Key is not Integer
Date := Key := ""
IF StrLen(Date .= Key) < 8
Continue
Try := (Year:=SubStr(Date,5)) (Month:=SubStr(Date,3,2)) SubStr(Date,1,2)
Try -= A_Now, Days
IF Try > ""
SendInput, {BackSpace 6}/%Month%/%Year%
Date := ""
}
return

And it stops working after I add this one suggested by "Rohwedder":

appskey Up::SetTimer, Takey,% -10-400*(Takey:=!Takey)
Takey:
IF Takey And !Takey := False {
SetCapsLockState, Off
send ^+b
} Else Run, Notepad.exe
Return

I´m not an expert, sorry!

[boiler]

Last time I’m going to say this then I give up trying to help:

Don't show them separately. Show them exactly as how you have combined them into the same script that you say does not work. It's important to see how you have combined them.

[rubbioli]

Last time I’m going to say this then I give up trying to help:

Don't show them separately. Show them exactly as how you have combined them into the same script that you say does not work. It's important to see how you have combined them.

Dear friend, I changed the order and it started working!

Code: Select all

Loop
{ ;Format: ddMMyyyy
	Input, Key, L1 V
	IF Key is not Integer
		Date := Key := ""
	IF StrLen(Date .= Key) < 8
		Continue
	Try := (Year:=SubStr(Date,5)) (Month:=SubStr(Date,3,2)) SubStr(Date,1,2)
	Try -= A_Now, Days
	IF Try > ""
		SendInput, {BackSpace 6}/%Month%/%Year%
	Date := ""
}
return

appskey Up::SetTimer, Takey,% -10-400*(Takey:=!Takey)
Takey:
IF Takey And !Takey := False {
SetCapsLockState, Off
send ^+b
} Else Run, Notepad.exe
Return

[Mod edit: [code][/code] tags added.]

I really appreciate you taking the time to help me.