ih := InputHook("L0")
ih.KeyOpt("{All}", "+V N")
ih.OnKeyDown := Func("OnKeyDown")
ih.Start()
Return

SpaceDown(Time) {
	If !Time || A_TickCount - Time > 2000
	{
		MsgBox B
	} Else  {
		MsgBox A
	}
}
 
OnKeyDown(InputHook, VK, SC) {
	Critical
	Static PrTime, Keys := {"sc5":"4"}     
	If VK = 32
	{
		InputHook.Stop()
		SpaceDown(PrTime) 
		InputHook.Start()
		Return 
	} 
	If Keys["sc" SC]
		PrTime := A_TickCount
	Else 
		PrTime := ""
	Return
}