- Offizieller Beitrag
Hi,
das hier fällt nun sicher nicht in die Kategorie großer Programmierkunst, sondern eher unter Fleißarbeit
Aber da wir ja nun bald umzingelt sind von bundesstaatlichen Keyloggern sollte man sensible Daten vielleicht mittels Bildschirmtastatur eintippen und nur noch per Copy&Paste übergeben.
Insofern vielleicht doch nicht ganz unnütz.
Damit ihr nicht nur 'ne nackte GUI seht (dann wären ja auch meine Zeichenkünste umsonst ), müßt ihr die "tastatur_bmp.zip" mit runterladen, entpacken und den Pfad im Skript angeben.
Den F-Tasten habe ich einfach mal eigene Code-Nr. verpaßt, damit ich sie selektieren kann. Da lassen sich dann z.B. Programmstarts hinterlegen.
Ansonsten habe ich versucht, die Funktionsweise einer realen Tastatur weitestgehend nachzuempfinden. Allerdings hatte ich jetzt keine echte Verwendung für Pfeile etc.
Ließe sich natürlich problemlos erweitern. Die Tasten sind alle definiert und lassen sich bei Bedarf abfragen.
Die Reihenfolge der Definition ist identisch mit der Tastenanordnung einer Standardtastatur (ohne Nummernblock).
Für die "Win"-Taste habe ich momentan nur die Kombinationen Win+E und Win+Pause eingebunden.
Die Win-Taste arbeitet als eigene Taste, wenn innerhalb von 1,5 sec keine weitere Taste gedrückt wird.
Viel besser hätte mir natürlich gefallen, wenn man wahlweise auch in einem Real-Mode arbeiten kann. Aber das ist ja technisch leider nicht möglich.
EDIT: Hab noch 'nen Fehler gefunden, sry.
Die beiden Func ab Zeile 545 mal wie folgt ändern:
Spoiler anzeigen
Func bClipClick()
GUICtrlSetImage($bclip,$pathBMP & 'to_clip_pressed.bmp')
Sleep(200)
_ClipUp()
EndFunc
Func _ClipUp()
ClipPut($string)
GUICtrlSetImage($bclip, $pathBMP & 'to_clip.bmp')
EndFunc
Spoiler anzeigen
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Global $pathBMP = 'C:\Dokumente und Einstellungen\Standard\Eigene Dateien\Tastatur_bmp\' ;##### ANPASSEN!
Global $funcName = '', $funcShift = '', $funcCtrl = ''
Global $shiftOn = False, $capsLock = False, $ctrlOn = False, $scrollOn = False
Global $winOn = False, $altOn = False, $altgrOn = False, $buffer = True
Global $delayWin, $Red = 0xFF0000, $font="Comic Sans MS"
Global $string = '', $ascii
Global $arKey[87][4]
;~ $arKey[n][0] = Control-ID
;~ $arKey[n][1] = ASCII low ==> für F-Tasten frei erfunden
;~ $arKey[n][2] = ASCII up
;~ $arKey[n][3] = ASCII AltGr
#region - GUI
$GUI = GUICreate("", 835, 323, -1, -1,BitOR($WS_POPUP,$WS_THICKFRAME),$GUI_WS_EX_PARENTDRAG)
GUICtrlCreatePic($pathBMP & 'gui_blue3.bmp', 0, 0, 835, 323)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_MouseUp")
$bEnde = GUICtrlCreateButton("", 16, 20, 20, 20, $BS_ICON)
GUICtrlSetImage(-1, 'shell32.dll', 329)
GUICtrlSetOnEvent(-1, "Form1_1Close")
$bclip = GUICtrlCreateButton('', 692, 19, 126, 21, $BS_BITMAP)
GUICtrlSetImage(-1, $pathBMP & 'to_clip.bmp')
GUICtrlSetOnEvent(-1, "bClipClick")
#region - line1
$arKey[0][0] = GUICtrlCreateButton("", 16, 53, 40, 40, $BS_BITMAP)
$arKey[0][1] = 27
GUICtrlSetImage(-1, $pathBMP & 'esc.bmp')
GUICtrlSetOnEvent(-1, "bEscClick")
$arKey[1][0] = GUICtrlCreateButton("", 87, 53, 40, 40, $BS_BITMAP)
$arKey[1][1] = 901
GUICtrlSetImage(-1, $pathBMP & 'f1.bmp')
GUICtrlSetOnEvent(-1, "bF1Click")
$arKey[2][0] = GUICtrlCreateButton("", 133, 53, 40, 40, $BS_BITMAP)
$arKey[2][1] = 902
GUICtrlSetImage(-1, $pathBMP & 'f2.bmp')
GUICtrlSetOnEvent(-1, "bF2Click")
$arKey[3][0] = GUICtrlCreateButton("", 180, 53, 40, 40, $BS_BITMAP)
$arKey[3][1] = 903
GUICtrlSetImage(-1, $pathBMP & 'f3.bmp')
GUICtrlSetOnEvent(-1, "bF3Click")
$arKey[4][0] = GUICtrlCreateButton("", 226, 53, 40, 40, $BS_BITMAP)
$arKey[4][1] = 904
GUICtrlSetImage(-1, $pathBMP & 'f4.bmp')
GUICtrlSetOnEvent(-1, "bF4Click")
$arKey[5][0] = GUICtrlCreateButton("", 294, 53, 40, 40, $BS_BITMAP)
$arKey[5][1] = 905
GUICtrlSetImage(-1, $pathBMP & 'f5.bmp')
GUICtrlSetOnEvent(-1, "bF5Click")
$arKey[6][0] = GUICtrlCreateButton("", 340, 53, 40, 40, $BS_BITMAP)
$arKey[6][1] = 906
GUICtrlSetImage(-1, $pathBMP & 'f6.bmp')
GUICtrlSetOnEvent(-1, "bF6Click")
$arKey[7][0] = GUICtrlCreateButton("", 387, 53, 40, 40, $BS_BITMAP)
$arKey[7][1] = 907
GUICtrlSetImage(-1, $pathBMP & 'f7.bmp')
GUICtrlSetOnEvent(-1, "bF7Click")
$arKey[8][0] = GUICtrlCreateButton("", 433, 53, 40, 40, $BS_BITMAP)
$arKey[8][1] = 908
GUICtrlSetImage(-1, $pathBMP & 'f8.bmp')
GUICtrlSetOnEvent(-1, "bF8Click")
$arKey[9][0] = GUICtrlCreateButton("", 505, 53, 40, 40, $BS_BITMAP)
$arKey[9][1] = 909
GUICtrlSetImage(-1, $pathBMP & 'f9.bmp')
GUICtrlSetOnEvent(-1, "bF9Click")
$arKey[10][0] = GUICtrlCreateButton("", 551, 53, 40, 40, $BS_BITMAP)
$arKey[10][1] = 910
GUICtrlSetImage(-1, $pathBMP & 'f10.bmp')
GUICtrlSetOnEvent(-1, "bF10Click")
$arKey[11][0] = GUICtrlCreateButton("", 598, 53, 40, 40, $BS_BITMAP)
$arKey[11][1] = 911
GUICtrlSetImage(-1, $pathBMP & 'f11.bmp')
GUICtrlSetOnEvent(-1, "bF11Click")
$arKey[12][0] = GUICtrlCreateButton("", 644, 53, 40, 40, $BS_BITMAP)
$arKey[12][1] = 912
GUICtrlSetImage(-1, $pathBMP & 'f12.bmp')
GUICtrlSetOnEvent(-1, "bF12Click")
$arKey[13][0] = GUICtrlCreateButton("", 692, 53, 40, 40, $BS_BITMAP)
$arKey[13][1] = 913
GUICtrlSetImage(-1, $pathBMP & 'druck.bmp')
GUICtrlSetOnEvent(-1, "bPrintClick")
$arKey[14][0] = GUICtrlCreateButton("", 735, 53, 40, 40, $BS_BITMAP)
$arKey[14][1] = 914
GUICtrlSetImage(-1, $pathBMP & 'scroll.bmp')
GUICtrlSetOnEvent(-1, "bScrollClick")
$arKey[15][0] = GUICtrlCreateButton("", 778, 53, 40, 40, $BS_BITMAP)
$arKey[15][1] = 915 ;'Pause'
GUICtrlSetImage(-1, $pathBMP & 'pause.bmp')
GUICtrlSetOnEvent(-1, "bPauseClick")
#endregion
#region - line2
$arKey[16][0] = GUICtrlCreateButton("", 16, 99, 40, 40, $BS_BITMAP)
$arKey[16][1] = 94
$arKey[16][2] = 186
GUICtrlSetImage(-1, $pathBMP & 'caret.bmp')
GUICtrlSetOnEvent(-1, "bCaretClick")
$arKey[17][0] = GUICtrlCreateButton("", 59, 99, 40, 40, $BS_BITMAP)
$arKey[17][1] = 49
$arKey[17][2] = 33
GUICtrlSetImage(-1, $pathBMP & '1.bmp')
GUICtrlSetOnEvent(-1, "b1Click")
$arKey[18][0] = GUICtrlCreateButton("", 101, 99, 40, 40, $BS_BITMAP)
$arKey[18][1] = 50
$arKey[18][2] = 34
$arKey[18][3] = 178
GUICtrlSetImage(-1, $pathBMP & '2.bmp')
GUICtrlSetOnEvent(-1, "b2Click")
$arKey[19][0] = GUICtrlCreateButton("", 144, 99, 40, 40, $BS_BITMAP)
$arKey[19][1] = 51
$arKey[19][2] = 167
$arKey[19][3] = 179
GUICtrlSetImage(-1, $pathBMP & '3.bmp')
GUICtrlSetOnEvent(-1, "b3Click")
$arKey[20][0] = GUICtrlCreateButton("", 187, 99, 40, 40, $BS_BITMAP)
$arKey[20][1] = 52
$arKey[20][2] = 36
GUICtrlSetImage(-1, $pathBMP & '4.bmp')
GUICtrlSetOnEvent(-1, "b4Click")
$arKey[21][0] = GUICtrlCreateButton("", 230, 99, 40, 40, $BS_BITMAP)
$arKey[21][1] = 53
$arKey[21][2] = 37
GUICtrlSetImage(-1, $pathBMP & '5.bmp')
GUICtrlSetOnEvent(-1, "b5Click")
$arKey[22][0] = GUICtrlCreateButton("", 273, 99, 40, 40, $BS_BITMAP)
$arKey[22][1] = 54
$arKey[22][2] = 38
GUICtrlSetImage(-1, $pathBMP & '6.bmp')
GUICtrlSetOnEvent(-1, "b6Click")
$arKey[23][0] = GUICtrlCreateButton("", 315, 99, 40, 40, $BS_BITMAP)
$arKey[23][1] = 55
$arKey[23][2] = 47
$arKey[23][3] = 123
GUICtrlSetImage(-1, $pathBMP & '7.bmp')
GUICtrlSetOnEvent(-1, "b7Click")
$arKey[24][0] = GUICtrlCreateButton("", 358, 99, 40, 40, $BS_BITMAP)
$arKey[24][1] = 56
$arKey[24][2] = 40
$arKey[24][3] = 91
GUICtrlSetImage(-1, $pathBMP & '8.bmp')
GUICtrlSetOnEvent(-1, "b8Click")
$arKey[25][0] = GUICtrlCreateButton("", 401, 99, 40, 40, $BS_BITMAP)
$arKey[25][1] = 57
$arKey[25][2] = 41
$arKey[25][3] = 93
GUICtrlSetImage(-1, $pathBMP & '9.bmp')
GUICtrlSetOnEvent(-1, "b9Click")
$arKey[26][0] = GUICtrlCreateButton("", 443, 99, 40, 40, $BS_BITMAP)
$arKey[26][1] = 48
$arKey[26][2] = 61
$arKey[26][3] = 125
GUICtrlSetImage(-1, $pathBMP & '0.bmp')
GUICtrlSetOnEvent(-1, "bNullClick")
$arKey[27][0] = GUICtrlCreateButton("", 486, 99, 40, 40, $BS_BITMAP)
$arKey[27][1] = 223
$arKey[27][2] = 63
$arKey[27][3] = 92
GUICtrlSetImage(-1, $pathBMP & 'szett.bmp')
GUICtrlSetOnEvent(-1, "bszClick")
$arKey[28][0] = GUICtrlCreateButton("", 529, 99, 40, 40, $BS_BITMAP)
$arKey[28][1] = 180
$arKey[28][2] = 96
GUICtrlSetImage(-1, $pathBMP & 'apostroph.bmp')
GUICtrlSetOnEvent(-1, "bAposClick")
$arKey[29][0] = GUICtrlCreateButton("", 572, 99, 112, 40, $BS_BITMAP)
$arKey[29][1] = 8
GUICtrlSetImage(-1, $pathBMP & 'backspace.bmp')
GUICtrlSetOnEvent(-1, "bBackspaceClick")
$arKey[30][0] = GUICtrlCreateButton("", 692, 99, 40, 40, $BS_BITMAP)
$arKey[30][1] = 'Einfg'
GUICtrlSetImage(-1, $pathBMP & 'ins.bmp')
GUICtrlSetOnEvent(-1, "bEinfgClick")
$arKey[31][0] = GUICtrlCreateButton("", 735, 99, 40, 40, $BS_BITMAP)
$arKey[31][1] = 'Pos1'
GUICtrlSetImage(-1, $pathBMP & 'home.bmp')
GUICtrlSetOnEvent(-1, "bHomeClick")
$arKey[32][0] = GUICtrlCreateButton("", 778, 99, 40, 40, $BS_BITMAP)
$arKey[32][1] = 'Bild Auf'
GUICtrlSetImage(-1, $pathBMP & 'bildauf.bmp')
GUICtrlSetOnEvent(-1, "bBildaufClick")
#endregion
#region - line3
$arKey[33][0] = GUICtrlCreateButton("", 16, 141, 90, 40, $BS_BITMAP)
$arKey[33][1] = 9
GUICtrlSetImage(-1, $pathBMP & 'tab.bmp')
GUICtrlSetOnEvent(-1, "bTabClick")
$arKey[34][0] = GUICtrlCreateButton("", 109, 141, 40, 40, $BS_BITMAP)
$arKey[34][1] = 113
$arKey[34][2] = 81
$arKey[34][3] = 64
GUICtrlSetImage(-1, $pathBMP & 'q.bmp')
GUICtrlSetOnEvent(-1, "bQClick")
$arKey[35][0] = GUICtrlCreateButton("", 152, 141, 40, 40, $BS_BITMAP)
$arKey[35][1] = 119
$arKey[35][2] = 87
GUICtrlSetImage(-1, $pathBMP & 'w.bmp')
GUICtrlSetOnEvent(-1, "bWClick")
$arKey[36][0] = GUICtrlCreateButton("", 195, 141, 40, 40, $BS_BITMAP)
$arKey[36][1] = 101
$arKey[36][2] = 69
$arKey[36][3] = 128
GUICtrlSetImage(-1, $pathBMP & 'e.bmp')
GUICtrlSetOnEvent(-1, "bEClick")
$arKey[37][0] = GUICtrlCreateButton("", 238, 141, 40, 40, $BS_BITMAP)
$arKey[37][1] = 114
$arKey[37][2] = 82
GUICtrlSetImage(-1, $pathBMP & 'r.bmp')
GUICtrlSetOnEvent(-1, "bRClick")
$arKey[38][0] = GUICtrlCreateButton("", 281, 141, 40, 40, $BS_BITMAP)
$arKey[38][1] = 116
$arKey[38][2] = 84
GUICtrlSetImage(-1, $pathBMP & 't.bmp')
GUICtrlSetOnEvent(-1, "bTClick")
$arKey[39][0] = GUICtrlCreateButton("", 324, 141, 40, 40, $BS_BITMAP)
$arKey[39][1] = 122
$arKey[39][2] = 90
GUICtrlSetImage(-1, $pathBMP & 'z.bmp')
GUICtrlSetOnEvent(-1, "bZClick")
$arKey[40][0] = GUICtrlCreateButton("", 367, 141, 40, 40, $BS_BITMAP)
$arKey[40][1] = 117
$arKey[40][2] = 85
GUICtrlSetImage(-1, $pathBMP & 'u.bmp')
GUICtrlSetOnEvent(-1, "bUClick")
$arKey[41][0] = GUICtrlCreateButton("", 410, 141, 40, 40, $BS_BITMAP)
$arKey[41][1] = 105
$arKey[41][2] = 73
GUICtrlSetImage(-1, $pathBMP & 'i.bmp')
GUICtrlSetOnEvent(-1, "bIClick")
$arKey[42][0] = GUICtrlCreateButton("", 453, 141, 40, 40, $BS_BITMAP)
$arKey[42][1] = 111
$arKey[42][2] = 79
GUICtrlSetImage(-1, $pathBMP & 'o.bmp')
GUICtrlSetOnEvent(-1, "bOClick")
$arKey[43][0] = GUICtrlCreateButton("", 496, 141, 40, 40, $BS_BITMAP)
$arKey[43][1] = 112
$arKey[43][2] = 80
GUICtrlSetImage(-1, $pathBMP & 'p.bmp')
GUICtrlSetOnEvent(-1, "bPClick")
$arKey[44][0] = GUICtrlCreateButton("", 539, 141, 40, 40, $BS_BITMAP)
$arKey[44][1] = 252
$arKey[44][2] = 220
GUICtrlSetImage(-1, $pathBMP & 'ue.bmp')
GUICtrlSetOnEvent(-1, "bUeClick")
$arKey[45][0] = GUICtrlCreateButton("", 582, 141, 40, 40, $BS_BITMAP)
$arKey[45][1] = 43
$arKey[45][2] = 42
$arKey[45][3] = 126
GUICtrlSetImage(-1, $pathBMP & 'plus.bmp')
GUICtrlSetOnEvent(-1, "bPlusClick")
$arKey[46][0] = GUICtrlCreateButton("", 625, 141, 59, 82, $BS_BITMAP)
$arKey[46][1] = 'Enter'
GUICtrlSetImage(-1, $pathBMP & 'enter.bmp')
GUICtrlSetOnEvent(-1, "bEnterClick")
$arKey[47][0] = GUICtrlCreateButton("", 692, 141, 40, 40, $BS_BITMAP)
$arKey[47][1] = 'Entf'
GUICtrlSetImage(-1, $pathBMP & 'del.bmp')
GUICtrlSetOnEvent(-1, "bEntfClick")
$arKey[48][0] = GUICtrlCreateButton("", 735, 141, 40, 40, $BS_BITMAP)
$arKey[48][1] = 'Ende'
GUICtrlSetImage(-1, $pathBMP & 'end.bmp')
GUICtrlSetOnEvent(-1, "bEndClick")
$arKey[49][0] = GUICtrlCreateButton("", 778, 141, 40, 40, $BS_BITMAP)
$arKey[49][1] = 'Bild Ab'
GUICtrlSetImage(-1, $pathBMP & 'bildab.bmp')
GUICtrlSetOnEvent(-1, "bBildabClick")
#endregion
#region - line4
$arKey[50][0] = GUICtrlCreateButton("", 16, 183, 90, 40, $BS_BITMAP)
$arKey[50][1] = 'Capslock'
GUICtrlSetImage(-1, $pathBMP & 'capslock.bmp')
GUICtrlSetOnEvent(-1, "bCapsLockClick")
$arKey[51][0] = GUICtrlCreateButton("", 109, 183, 40, 40, $BS_BITMAP)
$arKey[51][1] = 97
$arKey[51][2] = 65
GUICtrlSetImage(-1, $pathBMP & 'a.bmp')
GUICtrlSetOnEvent(-1, "bAClick")
$arKey[52][0] = GUICtrlCreateButton("", 152, 183, 40, 40, $BS_BITMAP)
$arKey[52][1] = 115
$arKey[52][2] = 83
GUICtrlSetImage(-1, $pathBMP & 's.bmp')
GUICtrlSetOnEvent(-1, "bSClick")
$arKey[53][0] = GUICtrlCreateButton("", 195, 183, 40, 40, $BS_BITMAP)
$arKey[53][1] = 100
$arKey[53][2] = 68
GUICtrlSetImage(-1, $pathBMP & 'd.bmp')
GUICtrlSetOnEvent(-1, "bDClick")
$arKey[54][0] = GUICtrlCreateButton("", 238, 183, 40, 40, $BS_BITMAP)
$arKey[54][1] = 102
$arKey[54][2] = 70
GUICtrlSetImage(-1, $pathBMP & 'f.bmp')
GUICtrlSetOnEvent(-1, "bFClick")
$arKey[55][0] = GUICtrlCreateButton("", 281, 183, 40, 40, $BS_BITMAP)
$arKey[55][1] = 103
$arKey[55][2] = 71
GUICtrlSetImage(-1, $pathBMP & 'g.bmp')
GUICtrlSetOnEvent(-1, "bGClick")
$arKey[56][0] = GUICtrlCreateButton("", 324, 183, 40, 40, $BS_BITMAP)
$arKey[56][1] = 104
$arKey[56][2] = 72
GUICtrlSetImage(-1, $pathBMP & 'h.bmp')
GUICtrlSetOnEvent(-1, "bHClick")
$arKey[57][0] = GUICtrlCreateButton("", 367, 183, 40, 40, $BS_BITMAP)
$arKey[57][1] = 106
$arKey[57][2] = 74
GUICtrlSetImage(-1, $pathBMP & 'j.bmp')
GUICtrlSetOnEvent(-1, "bJClick")
$arKey[58][0] = GUICtrlCreateButton("", 410, 183, 40, 40, $BS_BITMAP)
$arKey[58][1] = 107
$arKey[58][2] = 75
GUICtrlSetImage(-1, $pathBMP & 'k.bmp')
GUICtrlSetOnEvent(-1, "bKClick")
$arKey[59][0] = GUICtrlCreateButton("", 453, 183, 40, 40, $BS_BITMAP)
$arKey[59][1] = 108
$arKey[59][2] = 76
GUICtrlSetImage(-1, $pathBMP & 'l.bmp')
GUICtrlSetOnEvent(-1, "bLClick")
$arKey[60][0] = GUICtrlCreateButton("", 496, 183, 40, 40, $BS_BITMAP)
$arKey[60][1] = 246
$arKey[60][2] = 214
GUICtrlSetImage(-1, $pathBMP & 'oe.bmp')
GUICtrlSetOnEvent(-1, "bOeClick")
$arKey[61][0] = GUICtrlCreateButton("", 539, 183, 40, 40, $BS_BITMAP)
$arKey[61][1] = 228
$arKey[61][2] = 196
GUICtrlSetImage(-1, $pathBMP & 'ae.bmp')
GUICtrlSetOnEvent(-1, "bAeClick")
$arKey[62][0] = GUICtrlCreateButton("", 582, 183, 40, 40, $BS_BITMAP)
$arKey[62][1] = 35
$arKey[62][2] = 39
GUICtrlSetImage(-1, $pathBMP & 'dblcross.bmp')
GUICtrlSetOnEvent(-1, "bDoubleCrossClick")
#endregion
#region - line5
$arKey[63][0] = GUICtrlCreateButton("", 16, 226, 95, 40, $BS_BITMAP)
$arKey[63][1] = 'Shift'
GUICtrlSetImage(-1, $pathBMP & 'shift.bmp')
GUICtrlSetOnEvent(-1, "bShift1Click")
$arKey[64][0] = GUICtrlCreateButton("", 114, 226, 40, 40, $BS_BITMAP)
$arKey[64][1] = 60
$arKey[64][2] = 62
$arKey[64][3] = 124
GUICtrlSetImage(-1, $pathBMP & 'kleinerals.bmp')
GUICtrlSetOnEvent(-1, "bKleinerClick")
$arKey[65][0] = GUICtrlCreateButton("", 157, 226, 40, 40, $BS_BITMAP)
$arKey[65][1] = 121
$arKey[65][2] = 89
GUICtrlSetImage(-1, $pathBMP & 'y.bmp')
GUICtrlSetOnEvent(-1, "bYClick")
$arKey[66][0] = GUICtrlCreateButton("", 200, 226, 40, 40, $BS_BITMAP)
$arKey[66][1] = 120
$arKey[66][2] = 88
GUICtrlSetImage(-1, $pathBMP & 'x.bmp')
GUICtrlSetOnEvent(-1, "bXClick")
$arKey[67][0] = GUICtrlCreateButton("", 244, 226, 40, 40, $BS_BITMAP)
$arKey[67][1] = 99
$arKey[67][2] = 67
GUICtrlSetImage(-1, $pathBMP & 'c.bmp')
GUICtrlSetOnEvent(-1, "bCClick")
$arKey[68][0] = GUICtrlCreateButton("", 287, 226, 40, 40, $BS_BITMAP)
$arKey[68][1] = 118
$arKey[68][2] = 86
GUICtrlSetImage(-1, $pathBMP & 'v.bmp')
GUICtrlSetOnEvent(-1, "bVClick")
$arKey[69][0] = GUICtrlCreateButton("", 330, 226, 40, 40, $BS_BITMAP)
$arKey[69][1] = 98
$arKey[69][2] = 66
GUICtrlSetImage(-1, $pathBMP & 'b.bmp')
GUICtrlSetOnEvent(-1, "bBClick")
$arKey[70][0] = GUICtrlCreateButton("", 373, 226, 40, 40, $BS_BITMAP)
$arKey[70][1] = 110
$arKey[70][2] = 78
GUICtrlSetImage(-1, $pathBMP & 'n.bmp')
GUICtrlSetOnEvent(-1, "bNClick")
$arKey[71][0] = GUICtrlCreateButton("", 416, 226, 40, 40, $BS_BITMAP)
$arKey[71][1] = 109
$arKey[71][2] = 77
$arKey[71][3] = 181
GUICtrlSetImage(-1, $pathBMP & 'm.bmp')
GUICtrlSetOnEvent(-1, "bMClick")
$arKey[72][0] = GUICtrlCreateButton("", 460, 226, 40, 40, $BS_BITMAP)
$arKey[72][1] = 44
$arKey[72][2] = 59
GUICtrlSetImage(-1, $pathBMP & 'komma.bmp')
GUICtrlSetOnEvent(-1, "bKommaClick")
$arKey[73][0] = GUICtrlCreateButton("", 503, 226, 40, 40, $BS_BITMAP)
$arKey[73][1] = 46
$arKey[73][2] = 58
GUICtrlSetImage(-1, $pathBMP & 'punkt.bmp')
GUICtrlSetOnEvent(-1, "bPunktClick")
$arKey[74][0] = GUICtrlCreateButton("", 546, 226, 40, 40, $BS_BITMAP)
$arKey[74][1] = 45
$arKey[74][2] = 95
GUICtrlSetImage(-1, $pathBMP & 'minus.bmp')
GUICtrlSetOnEvent(-1, "bMinusClick")
$arKey[75][0] = GUICtrlCreateButton("", 589, 226, 95, 40, $BS_BITMAP)
$arKey[75][1] = 'Shift'
GUICtrlSetImage(-1, $pathBMP & 'shift.bmp')
GUICtrlSetOnEvent(-1, "bShift2Click")
$arKey[76][0] = GUICtrlCreateButton("", 735, 226, 40, 40, $BS_BITMAP)
$arKey[76][1] = 'Pfeil Auf'
GUICtrlSetImage(-1, $pathBMP & 'pfeilauf.bmp')
GUICtrlSetOnEvent(-1, "bPfeilaufClick")
#endregion
#region - line6
$arKey[77][0] = GUICtrlCreateButton("", 16, 268, 110, 40, $BS_BITMAP)
$arKey[77][1] = 'Strg'
GUICtrlSetImage(-1, $pathBMP & 'strg.bmp')
GUICtrlSetOnEvent(-1, "bCtrl1Click")
$arKey[78][0] = GUICtrlCreateButton("", 129, 268, 40, 40, $BS_BITMAP)
$arKey[78][1] = 'Win'
GUICtrlSetImage(-1, $pathBMP & 'win.bmp')
GUICtrlSetOnEvent(-1, "bWinClick")
$arKey[79][0] = GUICtrlCreateButton("", 172, 268, 40, 40, $BS_BITMAP)
$arKey[79][1] = 'Alt'
GUICtrlSetImage(-1, $pathBMP & 'alt.bmp')
GUICtrlSetOnEvent(-1, "bAltClick")
$arKey[80][0] = GUICtrlCreateButton("", 214, 268, 273, 40, $BS_BITMAP)
$arKey[80][1] = 32
GUICtrlSetImage(-1, $pathBMP & 'space.bmp')
GUICtrlSetOnEvent(-1, "bSpaceClick")
$arKey[81][0] = GUICtrlCreateButton("", 489, 268, 40, 40, $BS_BITMAP)
$arKey[81][1] = 'AltGr'
GUICtrlSetImage(-1, $pathBMP & 'altgr.bmp')
GUICtrlSetOnEvent(-1, "bAltGrClick")
$arKey[82][0] = GUICtrlCreateButton("", 531, 268, 40, 40, $BS_BITMAP)
$arKey[82][1] = 'Winmenu'
GUICtrlSetImage(-1, $pathBMP & 'winmenü.bmp')
GUICtrlSetOnEvent(-1, "bWinMenuClick")
$arKey[83][0] = GUICtrlCreateButton("", 574, 268, 110, 40, $BS_BITMAP)
$arKey[83][1] = 'Strg'
GUICtrlSetImage(-1, $pathBMP & 'strg.bmp')
GUICtrlSetOnEvent(-1, "bCtrl2Click")
$arKey[84][0] = GUICtrlCreateButton("", 692, 268, 40, 40, $BS_BITMAP)
$arKey[84][1] = 'Pfeil Links'
GUICtrlSetImage(-1, $pathBMP & 'pfeillinks.bmp')
GUICtrlSetOnEvent(-1, "bPfeillinksClick")
$arKey[85][0] = GUICtrlCreateButton("", 735, 268, 40, 40, $BS_BITMAP)
$arKey[85][1] = 'Pfeil Ab'
GUICtrlSetImage(-1, $pathBMP & 'pfeilab.bmp')
GUICtrlSetOnEvent(-1, "bPfeilabClick")
$arKey[86][0] = GUICtrlCreateButton("", 778, 268, 40, 40, $BS_BITMAP)
$arKey[86][1] = 'Pfeil Rechts'
GUICtrlSetImage(-1, $pathBMP & 'pfeilrechts.bmp')
GUICtrlSetOnEvent(-1, "bPfeilrechtsClick")
#endregion
GUISetState(@SW_SHOW)
$GUItext = GUICreate("", 597, 21, 87, 0, $WS_POPUP, $WS_EX_MDICHILD, $GUI)
WinSetTrans($GUItext, "", 150)
$text = GUICtrlCreateInput('', 0, 0, 597, 21, $ES_READONLY)
GUICtrlSetColor(-1, $Red)
GUICtrlSetFont(-1, 10, 800, 2, $font)
GUISetState(@SW_SHOW)
#endregion
While 1
If $winOn And TimerDiff($delayWin) > 1500 Then _WinUp()
Sleep(100)
WEnd
Func _ButtonClick($ID, $BMP, $FUNC)
GUICtrlSetImage($ID, $pathBMP & $BMP)
Sleep(200)
$funcName = $FUNC
$ascii = $arKey[_Index($arKey, $ID)][1]
If IsNumber($ascii) Then
If $ascii = 8 Then
$string = StringLeft($string, StringLen($string)-1)
Else
Select
Case ((Not $shiftOn) And (Not $capsLock) And (Not $ctrlOn) And (Not $winOn) And (Not $altOn) And (Not $altgrOn)) Or _
($shiftOn And $capsLock And (Not $ctrlOn) And (Not $winOn) And (Not $altOn) And (Not $altgrOn))
$string &= Chr($arKey[_Index($arKey, $ID)][1])
Case ($shiftOn And (Not $capsLock) And (Not $ctrlOn) And (Not $winOn) And (Not $altOn) And (Not $altgrOn)) Or _
((Not $shiftOn) And $capsLock And (Not $ctrlOn) And (Not $winOn) And (Not $altOn) And (Not $altgrOn))
$string &= Chr($arKey[_Index($arKey, $ID)][2])
Case $altgrOn
$string &= Chr($arKey[_Index($arKey, $ID)][3])
EndSelect
Switch $ascii
Case 901 ; F1
$string &= '-F1-'
Case 902 ; F2
$string &= '-F2-'
Case 903 ; F3
$string &= '-F3-'
Case 904 ; F4
$string &= '-F4-'
Case 905 ; F5
$string &= '-F5-'
Case 906 ; F6
$string &= '-F6-'
Case 907 ; F7
$string &= '-F7-'
Case 908 ; F8
$string &= '-F8-'
Case 909 ; F9
$string &= '-F9-'
Case 910 ; F10
$string &= '-F10-'
Case 911 ; F11
$string &= '-F11-'
Case 912 ; F12
$string &= '-F12-'
EndSwitch
If $winOn Then
_WinUp()
$winOn = Not $winOn
Switch $ascii
Case 101 ; Win+E
ShellExecute("explorer.exe")
Case 915 ; Win+Pause
Run('control.exe SYSDM.CPL,,0')
EndSwitch
EndIf
If $altOn Then
_AltUp()
$altOn = Not $altOn
EndIf
If $altgrOn Then
_AltGrUp()
$altgrOn = Not $altgrOn
EndIf
If $ctrlOn Then
Call($funcCtrl)
$ctrlOn = Not $ctrlOn
EndIf
If $shiftOn Then
Call($funcShift)
$shiftOn = Not $shiftOn
EndIf
EndIf
GUICtrlSetData($text, $string)
Call($funcName)
EndIf
EndFunc
Func _Index(ByRef $ARRAY, $ID)
For $i = 0 To UBound($ARRAY) -1
If $ARRAY[$i][0] = $ID Then ExitLoop
Next
Return $i
EndFunc
Func bClipClick()
_ButtonClick($bclip,'to_clip_pressed.bmp','_ClipUp')
EndFunc
Func _ClipUp()
GUICtrlSetImage($bclip, $pathBMP & 'to_clip.bmp')
ClipPut($string)
EndFunc
Func bEscClick()
_ButtonClick( $arKey[0][0], 'esc_pressed.bmp', '_EscUp')
EndFunc
Func _EscUp()
GUICtrlSetImage($arKey[0][0], $pathBMP & 'esc.bmp')
EndFunc
Func bF1Click()
_ButtonClick( $arKey[1][0], 'f1_pressed.bmp', '_F1Up')
EndFunc
Func _F1Up()
GUICtrlSetImage($arKey[1][0], $pathBMP & 'f1.bmp')
EndFunc
Func bF2Click()
_ButtonClick( $arKey[2][0], 'f2_pressed.bmp', '_F2Up')
EndFunc
Func _F2Up()
GUICtrlSetImage($arKey[2][0], $pathBMP & 'f2.bmp')
EndFunc
Func bF3Click()
_ButtonClick( $arKey[3][0], 'f3_pressed.bmp', '_F3Up')
EndFunc
Func _F3Up()
GUICtrlSetImage($arKey[3][0], $pathBMP & 'f3.bmp')
EndFunc
Func bF4Click()
_ButtonClick( $arKey[4][0], 'f4_pressed.bmp', '_F4Up')
EndFunc
Func _F4Up()
GUICtrlSetImage($arKey[4][0], $pathBMP & 'f4.bmp')
EndFunc
Func bF5Click()
_ButtonClick( $arKey[5][0], 'f5_pressed.bmp', '_F5Up')
EndFunc
Func _F5Up()
GUICtrlSetImage($arKey[5][0], $pathBMP & 'f5.bmp')
EndFunc
Func bF6Click()
_ButtonClick( $arKey[6][0], 'f6_pressed.bmp', '_F6Up')
EndFunc
Func _F6Up()
GUICtrlSetImage($arKey[6][0], $pathBMP & 'f6.bmp')
EndFunc
Func bF7Click()
_ButtonClick( $arKey[7][0], 'f7_pressed.bmp', '_F7Up')
EndFunc
Func _F7Up()
GUICtrlSetImage($arKey[7][0], $pathBMP & 'f7.bmp')
EndFunc
Func bF8Click()
_ButtonClick( $arKey[8][0], 'f8_pressed.bmp', '_F8Up')
EndFunc
Func _F8Up()
GUICtrlSetImage($arKey[8][0], $pathBMP & 'f8.bmp')
EndFunc
Func bF9Click()
_ButtonClick( $arKey[9][0], 'f9_pressed.bmp', '_F9Up')
EndFunc
Func _F9Up()
GUICtrlSetImage($arKey[9][0], $pathBMP & 'f9.bmp')
EndFunc
Func bF10Click()
_ButtonClick($arKey[10][0], 'f10_pressed.bmp', '_F10Up')
EndFunc
Func _F10Up()
GUICtrlSetImage($arKey[10][0], $pathBMP & 'f10.bmp')
EndFunc
Func bF11Click()
_ButtonClick( $arKey[11][0], 'f11_pressed.bmp', '_F11Up')
EndFunc
Func _F11Up()
GUICtrlSetImage($arKey[11][0], $pathBMP & 'f11.bmp')
EndFunc
Func bF12Click()
_ButtonClick( $arKey[12][0], 'f12_pressed.bmp', '_F12Up')
EndFunc
Func _F12Up()
GUICtrlSetImage($arKey[12][0], $pathBMP & 'f12.bmp')
EndFunc
Func bPrintClick()
_ButtonClick( $arKey[13][0], 'druck_pressed.bmp', '_PrintUp')
EndFunc
Func _PrintUp()
GUICtrlSetImage($arKey[13][0], $pathBMP & 'druck.bmp')
EndFunc
Func bScrollClick()
If $scrollOn Then
GUICtrlSetImage($arKey[14][0], $pathBMP & 'scroll.bmp')
Else
GUICtrlSetImage($arKey[14][0], $pathBMP & 'scroll_pressed.bmp')
EndIf
$scrollOn = Not $scrollOn
EndFunc
Func bPauseClick()
_ButtonClick( $arKey[15][0], 'pause_pressed.bmp', '_PauseUp')
EndFunc
Func _PauseUp()
GUICtrlSetImage($arKey[15][0], $pathBMP & 'pause.bmp')
EndFunc
Func bCaretClick()
_ButtonClick($arKey[16][0],'caret_pressed.bmp','_CaretUp')
EndFunc
Func _CaretUp()
GUICtrlSetImage($arKey[16][0], $pathBMP & 'caret.bmp')
EndFunc
Func b1Click()
_ButtonClick($arKey[17][0], '1_pressed.bmp','_1Up')
EndFunc
Func _1Up()
GUICtrlSetImage($arKey[17][0], $pathBMP & '1.bmp')
EndFunc
Func b2Click()
_ButtonClick($arKey[18][0], '2_pressed.bmp','_2Up')
EndFunc
Func _2Up()
GUICtrlSetImage($arKey[18][0], $pathBMP & '2.bmp')
EndFunc
Func b3Click()
_ButtonClick($arKey[19][0], '3_pressed.bmp','_3Up')
EndFunc
Func _3Up()
GUICtrlSetImage($arKey[19][0], $pathBMP & '3.bmp')
EndFunc
Func b4Click()
_ButtonClick($arKey[20][0],'4_pressed.bmp' ,'_4Up')
EndFunc
Func _4Up()
GUICtrlSetImage($arKey[20][0], $pathBMP & '4.bmp')
EndFunc
Func b5Click()
_ButtonClick($arKey[21][0],'5_pressed.bmp','_5Up')
EndFunc
Func _5Up()
GUICtrlSetImage($arKey[21][0], $pathBMP & '5.bmp')
EndFunc
Func b6Click()
_ButtonClick($arKey[22][0],'6_pressed.bmp','_6Up')
EndFunc
Func _6Up()
GUICtrlSetImage($arKey[22][0], $pathBMP & '6.bmp')
EndFunc
Func b7Click()
_ButtonClick($arKey[23][0],'7_pressed.bmp','_7Up')
EndFunc
Func _7Up()
GUICtrlSetImage($arKey[23][0], $pathBMP & '7.bmp')
EndFunc
Func b8Click()
_ButtonClick($arKey[24][0],'8_pressed.bmp','_8Up')
EndFunc
Func _8Up()
GUICtrlSetImage($arKey[24][0], $pathBMP & '8.bmp')
EndFunc
Func b9Click()
_ButtonClick($arKey[25][0],'9_pressed.bmp','_9Up')
EndFunc
Func _9Up()
GUICtrlSetImage($arKey[25][0], $pathBMP & '9.bmp')
EndFunc
Func bNullClick()
_ButtonClick($arKey[26][0],'0_pressed.bmp', '_NullUp')
EndFunc
Func _NullUp()
GUICtrlSetImage($arKey[26][0], $pathBMP & '0.bmp')
EndFunc
Func bszClick()
_ButtonClick( $arKey[27][0], 'szett_pressed.bmp', '_SzUp')
EndFunc
Func _SzUp()
GUICtrlSetImage($arKey[27][0], $pathBMP & 'szett.bmp')
EndFunc
Func bAposClick()
_ButtonClick($arKey[28][0],'apostroph_pressed.bmp','_AposUp')
EndFunc
Func _AposUp()
GUICtrlSetImage($arKey[28][0], $pathBMP & 'apostroph.bmp')
EndFunc
Func bBackspaceClick()
_ButtonClick($arKey[29][0],'backspace_pressed.bmp','_BackspaceUp')
EndFunc
Func _BackspaceUp()
GUICtrlSetImage($arKey[29][0], $pathBMP & 'backspace.bmp')
EndFunc
Func bEinfgClick()
_ButtonClick( $arKey[30][0],'ins_pressed.bmp' , '_EinfgUp')
EndFunc
Func _EinfgUp()
GUICtrlSetImage($arKey[30][0], $pathBMP & 'ins.bmp')
EndFunc
Func bHomeClick()
_ButtonClick( $arKey[31][0], 'home_pressed.bmp', '_HomeUp')
EndFunc
Func _HomeUp()
GUICtrlSetImage($arKey[31][0], $pathBMP & 'home.bmp')
EndFunc
Func bBildaufClick()
_ButtonClick($arKey[32][0],'bildauf_pressed.bmp','_BildaufUp')
EndFunc
Func _BildaufUp()
GUICtrlSetImage($arKey[32][0], $pathBMP & 'bildauf.bmp')
EndFunc
Func bTabClick()
_ButtonClick( $arKey[33][0], 'tab_pressed.bmp', '_TabUp')
EndFunc
Func _TabUp()
GUICtrlSetImage($arKey[33][0], $pathBMP & 'tab.bmp')
EndFunc
Func bQClick()
_ButtonClick( $arKey[34][0], 'q_pressed.bmp', '_QUp')
EndFunc
Func _QUp()
GUICtrlSetImage($arKey[34][0], $pathBMP & 'q.bmp')
EndFunc
Func bWClick()
_ButtonClick( $arKey[35][0], 'w_pressed.bmp', '_WUp')
EndFunc
Func _WUp()
GUICtrlSetImage($arKey[35][0], $pathBMP & 'w.bmp')
EndFunc
Func bEClick()
_ButtonClick( $arKey[36][0], 'e_pressed.bmp', '_EUp')
EndFunc
Func _EUp()
GUICtrlSetImage($arKey[36][0], $pathBMP & 'e.bmp')
EndFunc
Func bRClick()
_ButtonClick( $arKey[37][0], 'r_pressed.bmp', '_RUp')
EndFunc
Func _RUp()
GUICtrlSetImage($arKey[37][0], $pathBMP & 'r.bmp')
EndFunc
Func bTClick()
_ButtonClick( $arKey[38][0], 't_pressed.bmp', '_TUp')
EndFunc
Func _TUp()
GUICtrlSetImage($arKey[38][0], $pathBMP & 't.bmp')
EndFunc
Func bZClick()
_ButtonClick( $arKey[39][0], 'z_pressed.bmp', '_ZUp')
EndFunc
Func _ZUp()
GUICtrlSetImage($arKey[39][0], $pathBMP & 'z.bmp')
EndFunc
Func bUClick()
_ButtonClick( $arKey[40][0], 'u_pressed.bmp', '_UUp')
EndFunc
Func _UUp()
GUICtrlSetImage($arKey[40][0], $pathBMP & 'u.bmp')
EndFunc
Func bIClick()
_ButtonClick( $arKey[41][0], 'i_pressed.bmp', '_IUp')
EndFunc
Func _IUp()
GUICtrlSetImage($arKey[41][0], $pathBMP & 'i.bmp')
EndFunc
Func bOClick()
_ButtonClick( $arKey[42][0], 'o_pressed.bmp', '_OUp')
EndFunc
Func _OUp()
GUICtrlSetImage($arKey[42][0], $pathBMP & 'o.bmp')
EndFunc
Func bPClick()
_ButtonClick( $arKey[43][0], 'p_pressed.bmp', '_PUp')
EndFunc
Func _PUp()
GUICtrlSetImage($arKey[43][0], $pathBMP & 'p.bmp')
EndFunc
Func bUeClick()
_ButtonClick( $arKey[44][0], 'ue_pressed.bmp', '_UeUp')
EndFunc
Func _UeUp()
GUICtrlSetImage($arKey[44][0], $pathBMP & 'ue.bmp')
EndFunc
Func bPlusClick()
_ButtonClick( $arKey[45][0], 'plus_pressed.bmp', '_PlusUp')
EndFunc
Func _PlusUp()
GUICtrlSetImage($arKey[45][0], $pathBMP & 'plus.bmp')
EndFunc
Func bEnterClick()
_ButtonClick( $arKey[46][0], 'enter_pressed.bmp', '_EnterUp')
EndFunc
Func _EnterUp()
GUICtrlSetImage($arKey[46][0], $pathBMP & 'enter.bmp')
EndFunc
Func bEntfClick()
_ButtonClick( $arKey[47][0], 'del_pressed.bmp', '_EntfUp')
EndFunc
Func _EntfUp()
GUICtrlSetImage($arKey[47][0], $pathBMP & 'del.bmp')
EndFunc
Func bEndClick()
_ButtonClick( $arKey[48][0], 'end_pressed.bmp', '_EndUp')
EndFunc
Func _EndUp()
GUICtrlSetImage($arKey[48][0], $pathBMP & 'end.bmp')
EndFunc
Func bBildabClick()
_ButtonClick($arKey[49][0],'bildab_pressed.bmp','_BildabUp')
EndFunc
Func _BildabUp()
GUICtrlSetImage($arKey[49][0], $pathBMP & 'bildab.bmp')
EndFunc
Func bCapsLockClick()
If $capsLock Then
GUICtrlSetImage($arKey[50][0], $pathBMP & 'capslock.bmp')
Else
GUICtrlSetImage($arKey[50][0], $pathBMP & 'capslock_pressed.bmp')
EndIf
$capsLock = Not $capsLock
EndFunc
Func bAClick()
_ButtonClick($arKey[51][0],'a_pressed.bmp','_AUp')
EndFunc
Func _AUp()
GUICtrlSetImage($arKey[51][0], $pathBMP & 'a.bmp')
EndFunc
Func bSClick()
_ButtonClick( $arKey[52][0], 's_pressed.bmp', '_SUp')
EndFunc
Func _SUp()
GUICtrlSetImage($arKey[52][0], $pathBMP & 's.bmp')
EndFunc
Func bDClick()
_ButtonClick( $arKey[53][0], 'd_pressed.bmp', '_DUp')
EndFunc
Func _DUp()
GUICtrlSetImage($arKey[53][0], $pathBMP & 'd.bmp')
EndFunc
Func bFClick()
_ButtonClick( $arKey[54][0], 'f_pressed.bmp', '_FUp')
EndFunc
Func _FUp()
GUICtrlSetImage($arKey[54][0], $pathBMP & 'f.bmp')
EndFunc
Func bGClick()
_ButtonClick( $arKey[55][0], 'g_pressed.bmp', '_GUp')
EndFunc
Func _GUp()
GUICtrlSetImage($arKey[55][0], $pathBMP & 'g.bmp')
EndFunc
Func bHClick()
_ButtonClick( $arKey[56][0], 'h_pressed.bmp', '_HUp')
EndFunc
Func _HUp()
GUICtrlSetImage($arKey[56][0], $pathBMP & 'h.bmp')
EndFunc
Func bJClick()
_ButtonClick( $arKey[57][0], 'j_pressed.bmp', '_JUp')
EndFunc
Func _JUp()
GUICtrlSetImage($arKey[57][0], $pathBMP & 'j.bmp')
EndFunc
Func bKClick()
_ButtonClick( $arKey[58][0], 'k_pressed.bmp', '_KUp')
EndFunc
Func _KUp()
GUICtrlSetImage($arKey[58][0], $pathBMP & 'k.bmp')
EndFunc
Func bLClick()
_ButtonClick( $arKey[59][0], 'l_pressed.bmp', '_LUp')
EndFunc
Func _LUp()
GUICtrlSetImage($arKey[59][0], $pathBMP & 'l.bmp')
EndFunc
Func bOeClick()
_ButtonClick( $arKey[60][0], 'oe_pressed.bmp', '_OeUp')
EndFunc
Func _OeUp()
GUICtrlSetImage($arKey[60][0], $pathBMP & 'oe.bmp')
EndFunc
Func bAeClick()
_ButtonClick($arKey[61][0],'ae_pressed.bmp','_AeUp')
EndFunc
Func _AeUp()
GUICtrlSetImage($arKey[61][0], $pathBMP & 'ae.bmp')
EndFunc
Func bDoubleCrossClick()
_ButtonClick( $arKey[62][0], 'dblcross_pressed.bmp', '_DOubleCrossUp')
EndFunc
Func _DoubleCrossUp()
GUICtrlSetImage($arKey[62][0], $pathBMP & 'dblcross.bmp')
EndFunc
Func bShift1Click()
GUICtrlSetImage($arKey[63][0], $pathBMP & 'shift_pressed.bmp')
If $funcShift = '_Shift2Up' Then GUICtrlSetImage($arKey[75][0], $pathBMP & 'shift.bmp')
$shiftOn = True
$funcShift = '_Shift1Up'
EndFunc
Func _Shift1Up()
GUICtrlSetImage($arKey[63][0], $pathBMP & 'shift.bmp')
EndFunc
Func bKleinerClick()
_ButtonClick( $arKey[64][0], 'kleinerals_pressed.bmp', '_KleinerUp')
EndFunc
Func _KleinerUp()
GUICtrlSetImage($arKey[64][0], $pathBMP & 'kleinerals.bmp')
EndFunc
Func bYClick()
_ButtonClick( $arKey[65][0], 'y_pressed.bmp', '_YUp')
EndFunc
Func _YUp()
GUICtrlSetImage($arKey[65][0], $pathBMP & 'y.bmp')
EndFunc
Func bXClick()
_ButtonClick( $arKey[66][0], 'x_pressed.bmp', '_XUp')
EndFunc
Func _XUp()
GUICtrlSetImage($arKey[66][0], $pathBMP & 'x.bmp')
EndFunc
Func bCClick()
_ButtonClick($arKey[67][0],'c_pressed.bmp','_CUp')
EndFunc
Func _CUp()
GUICtrlSetImage($arKey[67][0], $pathBMP & 'c.bmp')
EndFunc
Func bVClick()
_ButtonClick( $arKey[68][0], 'v_pressed.bmp', '_VUp')
EndFunc
Func _VUp()
GUICtrlSetImage($arKey[68][0], $pathBMP & 'v.bmp')
EndFunc
Func bBClick()
_ButtonClick($arKey[69][0],'b_pressed.bmp','_BUp')
EndFunc
Func _BUp()
GUICtrlSetImage($arKey[69][0], $pathBMP & 'b.bmp')
EndFunc
Func bNClick()
_ButtonClick( $arKey[70][0], 'n_pressed.bmp', '_NUp')
EndFunc
Func _NUp()
GUICtrlSetImage($arKey[70][0], $pathBMP & 'n.bmp')
EndFunc
Func bMClick()
_ButtonClick( $arKey[71][0], 'm_pressed.bmp', '_MUp')
EndFunc
Func _MUp()
GUICtrlSetImage($arKey[71][0], $pathBMP & 'm.bmp')
EndFunc
Func bKommaClick()
_ButtonClick( $arKey[72][0], 'komma_pressed.bmp', '_KommaUp')
EndFunc
Func _KommaUp()
GUICtrlSetImage($arKey[72][0], $pathBMP & 'komma.bmp')
EndFunc
Func bPunktClick()
_ButtonClick( $arKey[73][0], 'punkt_pressed.bmp', '_PunktUp')
EndFunc
Func _PunktUp()
GUICtrlSetImage($arKey[73][0], $pathBMP & 'punkt.bmp')
EndFunc
Func bMinusClick()
_ButtonClick( $arKey[74][0], 'minus_pressed.bmp', '_MinusUp')
EndFunc
Func _MinusUp()
GUICtrlSetImage($arKey[74][0], $pathBMP & 'minus.bmp')
EndFunc
Func bShift2Click()
GUICtrlSetImage($arKey[75][0], $pathBMP & 'shift_pressed.bmp')
If $funcShift = '_Shift1Up' Then GUICtrlSetImage($arKey[63][0], $pathBMP & 'shift.bmp')
$shiftOn = True
$funcShift = '_Shift2Up'
EndFunc
Func _Shift2Up()
GUICtrlSetImage($arKey[75][0], $pathBMP & 'shift.bmp')
EndFunc
Func bPfeilaufClick()
_ButtonClick( $arKey[76][0], 'pfeilauf_pressed.bmp', '_PfeilaufUp')
EndFunc
Func _PfeilaufUp()
GUICtrlSetImage($arKey[76][0], $pathBMP & 'pfeilauf.bmp')
EndFunc
Func bCtrl1Click()
GUICtrlSetImage($arKey[77][0], $pathBMP & 'strg_pressed.bmp')
If $funcCtrl = '_Ctrl2Up' Then GUICtrlSetImage($arKey[83][0], $pathBMP & 'strg.bmp')
$ctrlOn = True
$funcCtrl = '_Ctrl1Up'
EndFunc
Func _Ctrl1Up()
GUICtrlSetImage($arKey[77][0], $pathBMP & 'strg.bmp')
EndFunc
Func bWinClick()
$delayWin = TimerInit()
GUICtrlSetImage($arKey[78][0], $pathBMP & 'win_pressed.bmp')
$winOn = True
EndFunc
Func _WinUp()
GUICtrlSetImage($arKey[78][0], $pathBMP & 'win.bmp')
EndFunc
Func bAltClick()
GUICtrlSetImage($arKey[79][0], $pathBMP & 'alt_pressed.bmp')
$altOn = True
EndFunc
Func _AltUp()
GUICtrlSetImage($arKey[79][0], $pathBMP & 'alt.bmp')
EndFunc
Func bSpaceClick()
_ButtonClick( $arKey[80][0], 'space_pressed.bmp', '_SpaceUp')
EndFunc
Func _SpaceUp()
GUICtrlSetImage($arKey[80][0], $pathBMP & 'space.bmp')
EndFunc
Func bAltGrClick()
GUICtrlSetImage($arKey[81][0], $pathBMP & 'altgr_pressed.bmp')
$altgrOn = True
EndFunc
Func _AltGrUp()
GUICtrlSetImage($arKey[81][0], $pathBMP & 'altgr.bmp')
EndFunc
Func bWinMenuClick()
_ButtonClick( $arKey[82][0], 'winmenü_pressed.bmp', '_WinMenuUp')
EndFunc
Func _WinMenuUp()
GUICtrlSetImage($arKey[82][0], $pathBMP & 'winmenü.bmp')
EndFunc
Func bCtrl2Click()
GUICtrlSetImage($arKey[83][0], $pathBMP & 'strg_pressed.bmp')
If $funcCtrl = '_Ctrl1Up' Then GUICtrlSetImage($arKey[77][0], $pathBMP & 'strg.bmp')
$ctrlOn = True
$funcCtrl = '_Ctrl2Up'
EndFunc
Func _Ctrl2Up()
GUICtrlSetImage($arKey[83][0], $pathBMP & 'strg.bmp')
EndFunc
Func bPfeillinksClick()
_ButtonClick( $arKey[84][0], 'pfeillinks_pressed.bmp', '_PfeillinksUp')
EndFunc
Func _PfeillinksUp()
GUICtrlSetImage($arKey[84][0], $pathBMP & 'pfeillinks.bmp')
EndFunc
Func bPfeilabClick()
_ButtonClick( $arKey[85][0], 'pfeilab_pressed.bmp', '_PfeilabUp')
EndFunc
Func _PfeilabUp()
GUICtrlSetImage($arKey[85][0], $pathBMP & 'pfeilab.bmp')
EndFunc
Func bPfeilrechtsClick()
_ButtonClick( $arKey[86][0], 'pfeilrechts_pressed.bmp', '_PfeilrechtsUp')
EndFunc
Func _PfeilrechtsUp()
GUICtrlSetImage($arKey[86][0], $pathBMP & 'pfeilrechts.bmp')
EndFunc
Func _MouseUp()
Call($funcName)
EndFunc
Func Form1_1Close()
Exit
EndFunc