SHIFT does not appear to work for NumPad hotkeys

[Humbug]

Hi all,
all of these work:

Code: Select all

NumPad1::
while GetKeyState("NumPad1","p")
{
	;DoADoubleClick()
	DoAClick()
}
return
^NumPad1::
while GetKeyState("NumPad1","p")
{
	;DoADoubleClick()
	DoAClick()
}
return

+^NumPad1::
while GetKeyState("NumPad1","p")
{
	;DoADoubleClick()
	DoAClick()
}
return

However, these do not:

Code: Select all

+NumPad1::
while GetKeyState("NumPad1","p")
{
	;DoADoubleClick()
	DoAClick()
}
return

Shift & NumPad1::
while GetKeyState("NumPad1","p")
{
	;DoADoubleClick()
	DoAClick()
}
return

What might prevent the use of the SHIFT key?
This is also on Windows 10.
Thank you!

[mikeyww]

This might help.

https://www.autohotkey.com/boards/viewtopic.php?p=375367#p375367

[Humbug]

This might help.

https://www.autohotkey.com/boards/viewtopic.php?p=375367#p375367

There is indeed an explanation, and I found the table, too.
However, I could not figure out what a SHIFT+NUMPAD1 would become with NUMLOCK on.

[mikeyww]

The following worked for me.

Code: Select all

shiftedKey = x
Numpad1::Send % GetKeyState("Shift", "P") ? shiftedKey : 1
NumpadEnd::Send {Shift up}%shiftedKey%

[reluct]

I got 1 and x but not Shift.

[mikeyww]

What is the output that you want?

[reluct]

Hold the shift on Numpad1, and cancel the hold on it. I was looking for a script like this.

[Humbug]

What is the output that you want?

If you are asking me, I'd like it to do a click on all NUMPAD1 combinations - SHIFT, CTRL, SHIFT+CTRL like you see in the original post.
All are working except SHIFT+NUMPAD1.

[mikeyww]

Hmm. Sorry I'm not following what the desired actions are. Others may be able to chime in with solutions.

[Humbug]

Hmm. Sorry I'm not following what the desired actions are. Others may be able to chime in with solutions.

NumPad1 - works.
Shift+NumPad1 - no luck.
CTRL+NumPad1 - works.
Shift+CTRL+NumPad1 - works.

Each of these needs to call DoAClick()

[mikeyww]

Replace your script with the following.

Code: Select all

*NumpadEnd::
*Numpad1::
If !GetKeyState("Alt", "P") && !GetKeyState("LWin", "P") {
 Send {Shift up}
 DoAClick()
} Else Send 1
Return

[Humbug]

Replace your script with the following.

Nice, thank you!

[Humbug]

Here's what I ended up with.

Code: Select all

*NumpadEnd::
*Numpad1::
if (GetKeyState("NumLock", "T"))
{
	DoAClick()
}
else
{
	Send {NumpadEnd}
}
return

Now, if only there was a way to pass the original modifier keys along

[mikeyww]

It's hard to comment because I don't know what your function does.

[Humbug]

It's hard to comment because I don't know what your function does.

As the name suggests, it simply clicks

Code: Select all

DoAClick()
{
	Click
	Sleep 25
}

Problem is, I need to pass the modifiers somehow.
Meaning, for example, that a SHIFT+NumPad1 becomes a SHIFT+Click. A CTRL+SHIFT+NumPad1 becomes a CTRL+SHIFT+Click. And so on.
Same deal with the NumPadEnd.

[mikeyww]

Code: Select all

mod := {Shift: "+", Ctrl: "^"}

*NumpadEnd::
*Numpad1::
If !GetKeyState("Alt", "P") && !GetKeyState("LWin", "P") {
 str =
 For key, thisMod in mod
  str .= GetKeyState(key, "P") ? thisMod : ""
 Send {Shift up}%str%{LButton}
 Sleep, 25
} Else Send 1
Return

The following might also work (need to test):

Code: Select all

*NumpadEnd::
*Numpad1::
If !GetKeyState("Alt", "P") && !GetKeyState("LWin", "P") {
 Send % "{Blind}" (A_ThisHotkey = "*NumpadEnd" ? "+" : "") "{LButton}"
 Sleep, 25
} Else Send 1
Return