HSPTV!掲示板

repeat
	redraw 0
	color white:boxf:color black

	; テンキーの[0]
	getkey key,96

	pos 0,0
	if key {
		mes "押されている"+key
	}else {
		mes "押されていない"+key
	}

	redraw 1
	wait 1
loop

上のスクリプトでテンキーの『0』を押したままNumLockを押すと『0』を押さなくてもずっと押されたままの状態に誤認されてしまいます。
しかもプログラムを再起動しても『0』が押されたままになってしまいます。

この現象を回避する方法はないでしょうか?

>この現象を回避する方法はないでしょうか?
　原則的にはないと思われます。
初期状態がテンキーモードなら、NumLockキーを押すと
カーソルモードになり、テンキーの0はカーソルモードでは
Insertキーとなり、Insertキーはモードキーですから、
もう一度押すまで同じ状態が保持されます。
　NumLockキーをもう一度押すのが最も一般的な解決法でしょう。

　以前、気づかずにうっかりScrollLockキーを押してしまい、
Excelの矢印キーの動作が変わって焦ったことがあります。

やっぱり無いですか…。
せめてプログラムを再起動したら状態が元に戻ればいいんですが…。

一応解決にします。ありがとうございました。

NumLockがOFFの場合、解放する

#uselib "user32.dll"
#func keybd_event "keybd_event" int, int, int
#func GetKeyState "GetKeyState" int
	repeat
		redraw 0
		color $FF, $FF, $FF
		boxf
		color
	
		getkey key, 96
		
		//NumLockの状態を取得
		GetKeyState 144
		if stat = 0 {
			keybd_event 96,,2
		}
	
		pos 0,0
		if key {
			mes "押されている"+key
		}else {
			mes "押されていない"+key
		}
	
		redraw 1
		wait 1
	loop

ありがとうございます！