Const VKKEYDOWN = 1
Const VKKEYDOWNLASTCALL = 2
Function GetAsyncKeyState(VK)
	Ret = api_GetAsyncKeyState(VK)
	If Ret Shr 23 = 1 Then Return VKKEYDOWN
	If Ret = 1 Then Return VKKEYDOWNLASTCALL
	Return False
End Function

Function RAW_KeyDown (VirtualKey, IgnoreFocus= False)
	If (IgnoreFocus= True) And (api_GetActiveWindow()= 0) Then Return
	
	Return (GetAsyncKeyState( VirtualKey) And %1000000000000000)> 0
End Function

Const MAPVK_VK_TO_VSC		=	0
Const MAPVK_VSC_TO_VK		=	1
Const MAPVK_VK_TO_CHAR		=	2
Const MAPVK_VSC_TO_VK_EX	=	3
Const MAPVK_VK_TO_VSK_EX	=	4

Function KeyDown(key)
	If api_GetActiveWindow() <> SystemProperty("AppHWND") Then Return False
	vk = api_MapVirtualKey(key,MAPVK_VSC_TO_VK)
	Return api_GetAsyncKeyState(vk) Shl 16 Shr 31
End Function
Function KeyHit(key)		;KeyDown beeinflusst das hier auch. Lässt sich durch zwischenspeichern der KeyHit variablen ändern, siehe KeyHitEx/FlipEx
	If api_GetActiveWindow() <> SystemProperty("AppHWND") Then Return False
	vk = api_MapVirtualKey(key,MAPVK_VSC_TO_VK)
	Return api_GetAsyncKeyState(vk) Shl 31 Shr 31
End Function

;Fix für "KeyHit"
Global A_KHE[255]
Function FlipEx(VWat=True)
	Flip VWat
	For ABCDEF = 0 To 255
		A_KHE = api_GetAsyncKeyState(vk) Shl 31 Shr 31
	Next
End Function
Function KeyHitEx(key)
	If api_GetActiveWindow() <> SystemProperty("AppHWND") Then Return False
	Ret=A_KHE[key]
	A_KHE[key] = False
	Return Ret
End Function