#include <GUIConstants.au3>
#include <String.au3>

Dim $shift
Dim $Buttons[45]
$shift = 0
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Angelika\Eigene Dateien\ICQ\579014273\ReceivedFiles\305563696 Zacharja\Virtual Keyboard.kxf
Global $Form1 = GUICreate("Virtual Keyboard | Virtuelle Tastatur by  Elbolamier", 714, 372, 213, 299)
Global $Buttons[0] = GUICtrlCreateButton("q", 56, 240, 25, 25, 0)
Global $Buttons[1] = GUICtrlCreateButton("w", 88, 240, 25, 25, 0)
Global $Buttons[2] = GUICtrlCreateButton("e", 120, 240, 25, 25, 0)
Global $Buttons[3] = GUICtrlCreateButton("r", 152, 240, 25, 25, 0)
Global $Buttons[4] = GUICtrlCreateButton("t", 184, 240, 25, 25, 0)
Global $Buttons[5] = GUICtrlCreateButton("z", 216, 240, 25, 25, 0)
Global $Buttons[6] = GUICtrlCreateButton("u", 248, 240, 25, 25, 0)
Global $Buttons[7] = GUICtrlCreateButton("i", 280, 240, 25, 25, 0)
Global $Buttons[8] = GUICtrlCreateButton("o", 312, 240, 25, 25, 0)
Global $Buttons[9] = GUICtrlCreateButton("p", 344, 240, 25, 25, 0)
Global $Buttons[10] = GUICtrlCreateButton("ü", 376, 240, 25, 25, 0)
Global $Buttons[12] = GUICtrlCreateButton("a", 64, 272, 25, 25, 0)
Global $Buttons[13] = GUICtrlCreateButton("s", 96, 272, 25, 25, 0)
Global $Buttons[14] = GUICtrlCreateButton("d", 128, 272, 25, 25, 0)
Global $Buttons[15] = GUICtrlCreateButton("f", 160, 272, 25, 25, 0)
Global $Buttons[16] = GUICtrlCreateButton("g", 192, 272, 25, 25, 0)
Global $Buttons[17] = GUICtrlCreateButton("h", 224, 272, 25, 25, 0)
Global $Buttons[18] = GUICtrlCreateButton("j", 256, 272, 25, 25, 0)
Global $Buttons[19] = GUICtrlCreateButton("k", 288, 272, 25, 25, 0)
Global $Buttons[20] = GUICtrlCreateButton("l", 320, 272, 25, 25, 0)
Global $Buttons[21] = GUICtrlCreateButton("ö", 352, 272, 25, 25, 0)
Global $Buttons[22] = GUICtrlCreateButton("ä", 384, 272, 25, 25, 0)
Global $Buttons[23] = GUICtrlCreateButton("y", 72, 304, 25, 25, 0)
Global $Buttons[24] = GUICtrlCreateButton("x", 104, 304, 25, 25, 0)
Global $Buttons[25] = GUICtrlCreateButton("c", 136, 304, 25, 25, 0)
Global $Buttons[26] = GUICtrlCreateButton("v", 168, 304, 25, 25, 0)
Global $Buttons[27] = GUICtrlCreateButton("n", 232, 304, 25, 25, 0)
Global $Buttons[28] = GUICtrlCreateButton("b", 200, 304, 25, 25, 0)
Global $Buttons[29] = GUICtrlCreateButton("m", 264, 304, 25, 25, 0)
Global $Buttons[30] = GUICtrlCreateButton(",", 296, 304, 25, 25, 0)
Global $Buttons[31] = GUICtrlCreateButton(".", 328, 304, 25, 25, 0)
Global $Buttons[32] = GUICtrlCreateButton("-", 360, 304, 25, 25, 0)
Global $Button33 = GUICtrlCreateButton("ENTER", 448, 240, 57, 57, 0)
Global $Button34 = GUICtrlCreateButton("SHIFT", 392, 304, 113, 25, 0)
Global $Button35 = GUICtrlCreateButton("BACKSPACE", 424, 208, 81, 25, 0)
Global $Button36 = GUICtrlCreateButton("<", 40, 304, 25, 25, 0)
Global $Button37 = GUICtrlCreateButton("SFT", 8, 304, 25, 25, 0)
Global $Button38 = GUICtrlCreateButton("CAPS", 8, 272, 49, 25, 0)
Global $Button39 = GUICtrlCreateButton("TAB", 8, 240, 41, 25, 0)
Global $Buttons[33] = GUICtrlCreateButton("^", 8, 208, 25, 25, 0)
Global $Buttons[34] = GUICtrlCreateButton("1", 40, 208, 25, 25, 0)
Global $Buttons[35] = GUICtrlCreateButton("2", 72, 208, 25, 25, 0)
Global $Buttons[36] = GUICtrlCreateButton("3", 104, 208, 25, 25, 0)
Global $Buttons[37] = GUICtrlCreateButton("4", 136, 208, 25, 25, 0)
Global $Buttons[38] = GUICtrlCreateButton("5", 168, 208, 25, 25, 0)
Global $Buttons[39] = GUICtrlCreateButton("6", 200, 208, 25, 25, 0)
Global $Buttons[30] = GUICtrlCreateButton("7", 232, 208, 25, 25, 0)
Global $Buttons[39] = GUICtrlCreateButton("8", 264, 208, 25, 25, 0)
Global $Buttons[40] = GUICtrlCreateButton("9", 296, 208, 25, 25, 0)
Global $Buttons[41] = GUICtrlCreateButton("0", 328, 208, 25, 25, 0)
Global $Buttons[42] = GUICtrlCreateButton("ß", 360, 208, 25, 25, 0)
Global $Buttons[43] = GUICtrlCreateButton("+", 408, 240, 25, 25, 0)
Global $Buttons[44] = GUICtrlCreateButton("#", 416, 272, 25, 25, 0)
Global $Buttons[45] = GUICtrlCreateButton("´", 392, 208, 25, 25, 0)
Global $Button55 = GUICtrlCreateButton("STRG", 8, 336, 65, 25, 0)
Global $Button56 = GUICtrlCreateButton("ALT", 80, 336, 65, 25, 0)
Global $Button57 = GUICtrlCreateButton("STRG", 432, 336, 73, 25, 0)
Global $Button58 = GUICtrlCreateButton("ALT GR", 352, 336, 73, 25, 0)
Global $Button59 = GUICtrlCreateButton("SPACE", 152, 336, 193, 25, 0)
Global $Button60 = GUICtrlCreateButton("ESC", 8, 168, 25, 25, 0)
Global $Button61 = GUICtrlCreateButton("F1", 64, 168, 25, 25, 0)
Global $Button62 = GUICtrlCreateButton("F2", 96, 168, 25, 25, 0)
Global $Button63 = GUICtrlCreateButton("F3", 128, 168, 25, 25, 0)
Global $Button64 = GUICtrlCreateButton("F4", 160, 168, 25, 25, 0)
Global $Button65 = GUICtrlCreateButton("F5", 224, 168, 25, 25, 0)
Global $Button66 = GUICtrlCreateButton("F6", 256, 168, 25, 25, 0)
Global $Button67 = GUICtrlCreateButton("F7", 288, 168, 25, 25, 0)
Global $Button68 = GUICtrlCreateButton("F8", 320, 168, 25, 25, 0)
Global $Button69 = GUICtrlCreateButton("F9", 384, 168, 25, 25, 0)
Global $Button70 = GUICtrlCreateButton("F10", 416, 168, 25, 25, 0)
Global $Button71 = GUICtrlCreateButton("F11", 448, 168, 25, 25, 0)
Global $Button72 = GUICtrlCreateButton("F12", 480, 168, 25, 25, 0)
Global $Button73 = GUICtrlCreateButton("INS", 520, 208, 25, 25, 0)
Global $Button74 = GUICtrlCreateButton("DEL", 520, 240, 25, 25, 0)
Global $Button75 = GUICtrlCreateButton("END", 520, 272, 25, 25, 0)
Global $Button76 = GUICtrlCreateButton("/", 592, 208, 25, 25, 0)
Global $Button77 = GUICtrlCreateButton("*", 624, 208, 25, 25, 0)
Global $Button78 = GUICtrlCreateButton("-", 656, 208, 25, 25, 0)
Global $Button79 = GUICtrlCreateButton("+", 656, 240, 25, 49, 0)
Global $Button80 = GUICtrlCreateButton("7", 560, 240, 25, 25, 0)
Global $Button81 = GUICtrlCreateButton("8", 592, 240, 25, 25, 0)
Global $Button82 = GUICtrlCreateButton("9", 624, 240, 25, 25, 0)
Global $Button83 = GUICtrlCreateButton("6", 624, 272, 25, 25, 0)
Global $Button84 = GUICtrlCreateButton("5", 592, 272, 25, 25, 0)
Global $Button85 = GUICtrlCreateButton("4", 560, 272, 25, 25, 0)
Global $Button86 = GUICtrlCreateButton("1", 560, 304, 25, 25, 0)
Global $Button87 = GUICtrlCreateButton("2", 592, 304, 25, 25, 0)
Global $Button88 = GUICtrlCreateButton("3", 624, 304, 25, 25, 0)
Global $Button89 = GUICtrlCreateButton(",", 624, 336, 25, 25, 0)
Global $Button90 = GUICtrlCreateButton("0", 560, 336, 57, 25, 0)
Global $Button91 = GUICtrlCreateButton("ENTER", 656, 304, 49, 57, 0)
Global $Button92 = GUICtrlCreateButton("Homepage", 8, 136, 81, 25, 0)
Global $Button93 = GUICtrlCreateButton("Rechner", 96, 136, 81, 25, 0)
Global $Button94 = GUICtrlCreateButton("Editor", 184, 136, 81, 25, 0)
Global $Button95 = GUICtrlCreateButton("CMD", 272, 136, 81, 25, 0)
Global $Button96 = GUICtrlCreateButton("Herunterfahren", 360, 136, 81, 25, 0)
Global $Button97 = GUICtrlCreateButton("Schließen", 624, 136, 81, 25, 0)
Global $Button98 = GUICtrlCreateButton("Neustarten", 448, 136, 83, 25, 0)
Global $Button99 = GUICtrlCreateButton("Standby", 536, 136, 81, 25, 0)
$Edit = GUICtrlCreateEdit("", 16, 16, 673, 97)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
			;Buchstaben
		Case $Buttons[0]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[0]))
		Case $Buttons[1]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[1]))
		Case $Buttons[2]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[2]))
		Case $Buttons[3]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[3]))
		Case $Buttons[4]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[4]))
		Case $Buttons[5]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[5]))
		Case $Buttons[6]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[6]))
		Case $Buttons[7]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[7]))
		Case $Buttons[8]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[8]))
		Case $Buttons[9]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[9]))
		Case $Buttons[10]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[10]))
		Case $Buttons[12]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[12]))
		Case $Buttons[13]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[13]))
		Case $Buttons[14]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[14]))
		Case $Buttons[15]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[15]))
		Case $Buttons[16]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[16]))
		Case $Buttons[17]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[17]))
		Case $Buttons[18]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[18]))
		Case $Buttons[19]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[19]))
		Case $Buttons[20]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[20]))
		Case $Buttons[21]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[21]))
		Case $Buttons[22]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[22]))
		Case $Buttons[23]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[23]))
		Case $Buttons[24]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[24]))
		Case $Buttons[25]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[25]))
		Case $Buttons[26]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[26]))
		Case $Buttons[27]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[27]))
		Case $Buttons[28]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[28]))
		Case $Buttons[29]
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & GUICtrlRead($Buttons[29]))
			;Buchstaben befehle
		Case $Button33
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & @CRLF)
		Case $Button35
			GUICtrlSetData($Edit, StringTrimRight(GUICtrlRead($Edit), 1))
		Case $Button59
			GUICtrlSetData($Edit, GUICtrlRead($Edit) & " ")
		Case $Button34
			if	$shift = 0
			For $i = 0 To 29
				GUICtrlSetData($Buttons[$i], StringUpper(GUICtrlRead($Buttons[$i])))
			Next
			$shift = 1

		ElseIf $shift = 1 Then

				GUICtrlSetData($Buttons[$i], StringLower(GUICtrlRead($Buttons[$i])))
			Next
			$shift = 0
			EndIf


EndSwitch

WEnd