12 replies to this topic

[Klark92]

loop
{
   Stroke := Chr(a_index)
   Matchlist := Matchlist . Stroke . ","
   if (a_index==255)
      break
}

Loop
{
   Input, UserInput, V,, %Matchlist%
   msgbox % UserInput
}

How can I get messagebox while I up any key ?

[Ohnitiel]

This worked for me.

loop 255
{
	var := Chr(A_Index)
	Hotkey, %var%, sub
}

Sub:
KeyWait, %A_ThisHotkey%
Msgbox
return

!x::
ExitApp

EDIT:
Added a keywait to the code.

[Klark92]

some ansi keys is not support for this method .. and gives warning after start..

[Ohnitiel]

Well I had not given it to much though, this one goes blocking all keys including mouse ones:

SetFormat, Integer, Hex

loop 255
{
;	If (A_index = 0x02 or 0x01)
;		continue
	var = vk%A_Index%
	Hotkey, %var%, sub
}

Sub:
KeyWait, %A_ThisHotkey%
Msgbox
return

!x::
ExitApp

Uncomment the commented lines if you want to unblock mouse buttons. (Left and Right only)

[Klark92]

what is that dude ?

I only want to show message when the key is up .. not down ^^

[Maestr0]

Have you looked at GetKeyState? Hint, look at state = U:
<!-- m -->http://www.autohotke...GetKeyState.htm<!-- m -->

[Ohnitiel]

Rechecked the code and tested it this time:

loop 255
{
	If (A_index = 0x2) or (A_Index = 0x1)
		continue
	var = vk%A_Index%
	Hotkey, %var%, sub
}
return

Sub:
KeyWait, %A_ThisHotkey%
Msgbox
return

!x::
ExitApp

It blocks all but left and right mouse buttons.

[Frankie]

You may be able to use this function: [stdlib] Anykey!! What? Where is my AnyKey??

[Maestr0]

Try this:

#Persistent

#SingleInstance Force

#NoEnv  						; Recommended for performance and compatibility with future AutoHotkey releases.

SetBatchLines -1 				; maximum speed for loops



loop

{

   Stroke := Chr(a_index)

   Matchlist := Matchlist . Stroke . ","

   if (a_index==255)

      break

}



Loop

{

   Input, UserInput, V,, %Matchlist%

   while GetKeyState(UserInput)

		sleep 10 ; meaning while the key is depressed, do nothing

	msgbox % UserInput

}

[Klark92]

Thanks solved ^^

[Maestr0]

How did you end up solving it?

[Klark92]

I tested your code then solved ? no problem mate.

[Maestr0]

Ah, ok, glad I could help, you're welcome.