Def GetAsyncKeyState(1) !USER32,GetAsyncKeyState Cls SetTimer 50 While 1 WaitInput WhileLoop 256 If And(GetAsyncKeyState(&loop-1),$8000) Print Str$(Int(&loop-1)) Endif EndWhile EndWhile KillTimer End
Session-Cookies