Ruby Quellcode

class W32API
  def initialize()
	@key_push = Win32API.new('user32', "GetAsyncKeyState", 'i', 'i')
	$key_press = Win32API.new('user32', "keybd_event", 'iiii', '')
	@tasten = Hash.new(
  	#--------------------------Maus
  	"l mouse" =>  	0x01,   #Linke Maustaste
  	"r mouse" =>  	0x02,   #Rechte Maustaste
  	"m mouse" =>  	0x04,   #Mittlere Maustaste
  	#--------------------------Special
  	"back" =>     	0x08,   #Backspace
  	"tab" =>      	0x09,   #Tabulator-Taste
  	"enter" =>    	0x0D,   #Enter
  	"shift" =>    	0x10,   #Eine der Shift-Tasten
  	"strg" =>     	0x11,   #Alt Gr-Taste oder eine der Strg-Tasten
  	"alt" =>      	0x12,   #Eine alt oder die Num-Block-Taste5 mit num lock
  	"umschalt" => 	0x14,   #Umschalttaste
  	"esc" =>      	0x1B,   #Escape
  	"space" =>    	0x20,   #Leertaste
  	#--------------------------Extra-Block
  	"bild oben" =>	0x21,
  	"bild unten" =>   0x22,
  	"ende" =>     	0x23,
  	"pos1" =>     	0x24,
  	#--------------------------Pfeil
  	"left" =>     	0x25,
  	"links" =>    	0x25,   #-
  	"up" =>       	0x26,
  	"hoch" =>     	0x26,   #-
  	"oben" =>     	0x26,   #-
  	"right" =>    	0x27,
  	"rechts" =>   	0x27,   #-
  	"down" =>     	0x28,
  	"unten" =>    	0x28,   #-
  	#--------------------------Extra-Block
  	"snapshot" => 	0x2C,
  	"einfg" =>    	0x2D,
  	"entf" =>     	0x2E,
  	#--------------------------Zahlen
  	"0" =>        	0x30,
  	"1" =>        	0x31,
  	"2" =>        	0x32,
  	"3" =>        	0x33,
  	"4" =>        	0x34,
  	"5" =>        	0x35,
  	"6" =>        	0x36,
  	"7" =>        	0x37,
  	"8" =>        	0x38,
  	"9" =>        	0x39,
  	#--------------------------Alphabet
  	"a" =>        	0x41,
  	"b" =>        	0x42,
  	"c" =>        	0x43,
  	"d" =>        	0x44,
  	"e" =>        	0x45,
  	"f" =>        	0x46,
  	"g" =>        	0x47,
  	"h" =>        	0x48,
  	"i" =>        	0x49,
  	"j" =>        	0x4A,
  	"k" =>        	0x4B,
  	"l" =>        	0x4C,
  	"m" =>        	0x4D,
  	"n" =>        	0x4E,
  	"o" =>        	0x4F,
  	"p" =>        	0x50,
  	"q" =>        	0x51,
  	"r" =>        	0x52,
  	"s" =>        	0x53,
  	"t" =>        	0x54,
  	"u" =>        	0x55,
  	"v" =>        	0x56,
  	"w" =>        	0x57,
  	"x" =>        	0x58,
  	"y" =>        	0x59,
  	"z" =>        	0x5A,
  	#--------------------------Special
  	"l windows" =>	0x5B,   #linke "Windows-Taste"
  	"r windows" =>	0x5C,   #rechte "Windows-Taste"
  	#--------------------------Num-Block
  	"num 0" =>    	0x60,
  	"num 1" =>    	0x61,
  	"num 2" =>    	0x62,
  	"num 3" =>    	0x63,
  	"num 4" =>    	0x64,
  	"num 5" =>    	0x65,
  	"num 6" =>    	0x66,
  	"num 7" =>    	0x67,
  	"num 8" =>    	0x68,
  	"num 9" =>    	0x69,
  	"num *" =>    	0x6A,
  	"num +" =>    	0x6B,
  	"num -" =>    	0x6D,
  	"num ," =>    	0x6E,
  	"num /" =>    	0x6F,
  	#--------------------------F-Zeichen
  	"F1" =>       	0x70,
  	"F2" =>       	0x71,
  	"F3" =>       	0x72,
  	"F4" =>       	0x73,
  	"F5" =>       	0x74,
  	"F6" =>       	0x75,
  	"F7" =>       	0x76,
  	"F8" =>       	0x77,
  	"F9" =>       	0x78,
  	"F10" =>      	0x79,
  	"F11" =>      	0x7A,
  	"F12" =>      	0x7B,
  	#--------------------------Num-Block
  	"num lock" => 	0x90,
  	#--------------------------Extra-Block
  	"scroll" =>   	0x91,
  	#--------------------------Special
  	"l shift" =>  	0xA0,
  	"r shift" =>  	0xA1,
  	"l strg" =>   	0xA2,
  	"r strg" =>   	0xA3,
  	"l alt" =>    	0xA4,
  	"alt gr" =>   	0xA5,
  	#--------------------------Sonderzeichen
  	"ü" =>        	0xBA,
  	"+" =>        	0xBB,
  	"," =>        	0xBC,
  	"-" =>        	0xBD,
  	"." =>        	0xBE,
  	"#" =>        	0xBF,
  	"ö" =>        	0xC0,
  	#--------------------------Special
  	"menü" =>     	0xD5,
  	#--------------------------Sonderzeichen
  	"ß" =>        	0xDB,
  	"^" =>        	0xDC,
  	"´" =>        	0xDD,
  	"ä" =>        	0xDE,
  	"<" =>        	0xE2
	)
	@tasten = @tasten[1]
  end
  def an?(taste)
	if(@tasten[taste])
  	iff = @key_push.call(@tasten[taste])
  	if(iff < 0)
    	ret=true
  	else
    	ret=false
  	end
  	return(ret)
	else
  	return(false)
	end
  end
  def press?(taste)
	if(@tasten[taste])
  	iff = @key_push.call(@tasten[taste])
  	if(iff != 0 and iff != 1)
    	ret=true
  	else
    	ret=false
  	end
  	return(ret)
	else
  	return(false)
	end
  end
  def keydown(taste)
	if(@tasten[taste])
  	$key_press.call(@tasten[taste], 0, 0x0, 0)
	end
  end
  def keyup(taste)
	if(@tasten[taste])
  	$key_press.call(@tasten[taste], 0, 0x2, 0)
	end
  end
end
$api = W32API.new