Beiträge von BugFix

**BugFix**

Mit _IsPressed() kannst du feststellen, ob eine Taste gedrückt wird.
Das in einer Schleife, in der du bei jedem Drücken eine Zählervariable um eins erhöhst.
Wenn Zählervariable den Max-Wert hat -> Schleife verlassen, 'M' ausgeben (Send)
ferddisch..

**BugFix**

Schaudoch mal hier nach: FAQ

**BugFix**

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

[autoit]

Func bClipClick()
GUICtrlSetImage($bclip,$pathBMP & 'to_clip_pressed.bmp')
Sleep(200)
_ClipUp()
EndFunc
Func _ClipUp()
ClipPut($string)
GUICtrlSetImage($bclip, $pathBMP & 'to_clip.bmp')
EndFunc

[/autoit]

Spoiler anzeigen

[autoit]

#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)

[/autoit] [autoit][/autoit] [autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

While 1
If $winOn And TimerDiff($delayWin) > 1500 Then _WinUp()
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func bClipClick()
_ButtonClick($bclip,'to_clip_pressed.bmp','_ClipUp')
EndFunc
Func _ClipUp()
GUICtrlSetImage($bclip, $pathBMP & 'to_clip.bmp')
ClipPut($string)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _MouseUp()
Call($funcName)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Form1_1Close()
Exit
EndFunc

[/autoit]

**BugFix**

Etwas genauer:

[autoit]

Opt("WinTitleMatchMode", 2)

[/autoit]

Wird dem Skript vorangestellt, "WinTitleMatchMode" ist ein Schlüsselwort,dass besagt, wie Fenster erkannt werden. Flag 2 heißt, dass Teile des Fensternamens ausreichen.

Gib mal in der Hilfe 'Opt' ein und schau dir die unterschiedlichen Schlüsselwörter an. Sind viele interessante Optionen.

WinSetTitle() läßt sich natürlich nur auf Programme anwenden, die im Fenstermodus laufen.
Aber ich verwende z.B. eine Steuersoftware in mehreren Instanzen. Damit ich sie unterscheiden kann, benenne ich sofort nach dem Aufruf das aktive Fenster um.

Probiere es einfach mal aus.

**BugFix**

[OT] Ich nehme eh lieber GIMP [/OT]

**BugFix**

Für Fenstererkennung kannst du auch Teile des Titels verwenden mit:

[autoit]

Opt("WinTitleMatchMode", 2)

[/autoit]

Damit wird von "Dokument 1 - Wordpad" sowohl "Dokument" als auch "Wordpad" als Titel erkannt.

Wenn du mehrere Instanzen eines Programms startest, ändere doch den Fenstertitel mit WinSetTitle.

**BugFix**

2 Sachen

1. Du liest in ein Array ein, arbeitest aber nicht die Arrayeinträge ($array[$i]) ab.

2. Du willst eine INI lesen - dafür hat Autoit doch eigene Funktionen (INIRead, INIReadSection)

**BugFix**

Da würde ich doch einfach mal vorher den Inhalt der Inputs auslesen

[autoit]

$Inhalt = GUICtrlRead($Input)

[/autoit]

Das Programm kann ja nicht erahnen, dass du den Inhalt der Inputs verwenden möchtest.

**BugFix**

Ich kann diesen Fehler nicht reproduzieren. Also gehe ich mal von aus, dass er in deinem System liegt. Evtl. IE7 ? - Wäre 'ne mögliche Fehlerquelle, da geht ab und an was schief, aber ob das nun diese Fehler verursachen kann weiß ich nicht.

**BugFix**

Du hast doch schon das richtige Bsp. gefunden.
Dort ist es halt mit einer HTM-Datei erklärt, paß es auf TXT an und schon klappt es.
Nicht vergessen: Variable $Input muß vor der Verwendung deklariert werden.

[autoit]

$filePath = "S:\VORLAGE.htm" ; ====> hier '*.TXT'
_FileReadToArray($filePath, $Input)
For $i = 1 To $Input[0]
; $titel = _StringBetween($Input[$i], '<title>', '</title>') ====> brauchst du dann nicht
;If Not @error And $titel[0] <> '' Then
_GUICtrlComboAddString($Combo,$Input[$i]) ;$titel[0])
;EndIf
Next

[/autoit]

**BugFix**

Die Suche ist dein Freund.
Wenn du dort 'outlook' eingibst, stößt du auch auf diesen Thread.
Dort ist erklärt, wie du auf Outlook zugreifen kannst (ohne Klicks zu simulieren).
Näheres zu den Methoden findest du unter Google mit 'Outlook Objektmodell'.

**BugFix**

- doch, genauso funzt das.

Hier der Beweis:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 542, 309, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Group1 = GUICtrlCreateGroup("Group1", 76, 48, 373, 193)
$Radio1 = GUICtrlCreateRadio("Radio1", 106, 78, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Radio2", 106, 102, 113, 17)
$Radio3 = GUICtrlCreateRadio("Radio3", 106, 125, 113, 17)
$Radio4 = GUICtrlCreateRadio("Radio4", 106, 148, 113, 17)
$Radio5 = GUICtrlCreateRadio("Radio5", 106, 172, 113, 17)
$Radio6 = GUICtrlCreateRadio("Radio6", 106, 196, 113, 17)
$Input1 = GUICtrlCreateInput("", 279, 79, 121, 21)
$MyButton1 = GUICtrlCreateButton("MyButton1", 300, 180, 100, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "MyButton1Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Form1Close()
Exit
EndFunc
Func MyButton1Click()
For $i = $Radio1 To $Radio6
If GUICtrlRead($i) = $GUI_CHECKED Then
Switch $i
Case $Radio1
GUICtrlSetData($Input1, 'Radio1')
Case $Radio2
GUICtrlSetData($Input1, 'Radio2')
Case $Radio3
GUICtrlSetData($Input1, 'Radio3')
Case $Radio4
GUICtrlSetData($Input1, 'Radio4')
Case $Radio5
GUICtrlSetData($Input1, 'Radio5')
Case $Radio6
GUICtrlSetData($Input1, 'Radio6')
EndSwitch
ExitLoop
EndIf
Next
EndFunc

[/autoit]

**BugFix**

Wenn möglich, den Silentparameter der Installprogramme nutzen.
Falls nicht vorhanden, schau dir mal "WinSetState()" an.

**BugFix**

[autoit]

; Group mit $radio1 bis $radio6
For $i = $radio1 To $radio6
If GUICtrlRead($i) = $GUI_CHECKED Then
; Code zu diesem Radio
ExitLoop
EndIf
Next

[/autoit]

**BugFix**

Schau mal in unsere Skripte. Netzwerksettings haben wir schon mehrfach gehabt.

**BugFix**

Hi thunder-man,
das Problem hatte ich auch. Dir fehlt vermutlich noch ein PlugIn.
Du brauchst
- Sidekick
und
- CtagsSideKick ==> hier in den Opt. den Pfad zu deiner "ctags.exe" eintragen

Anschließend in den Opt. zu SideKick - Parser: bei AutoIt ctags als Parser wählen.

Dann klappts auch mit dem Nachbarn.

**BugFix**

Zitat

"Macros" zum Umschalten von Kommentaren sind schon "eingebaut":
Menü: Edit/Source/"Range Comment" und "Line Comment"

Damit läßt sich aber der Kommentar nur setzen - aber nicht zurückschalten.

Zitat

AutoComplete:
Ich wiederhol mich Augenzwinkern Im SideKick-Plugin "Code Complete Options" einstellen - fertig.
Nun wird alles vervollständigt was in der au3.xml steht

Eingestellt ist das - aber ohne Wirkung
Oder erwarte ich hier was falsches?
Ich meinte, dass schon ab Eingabe des ersten Buchstabens alle verfügbaren Befehle selektiert und angezeigt werden.

**BugFix**

Optisch schöner als eine GUI, die du nach eigenem Geschmack schön einrichten kannst?
Hmm... - nö.

Was stört dich an der GUI-Lösung? $WS_POPUP - Style und schon sieht das gut aus.

**BugFix**

Manchmal hilft [Blockierte Grafik: http://home.arcor.de/bugfix/google.gif]
guckst du

**BugFix**

Hi,
heute wurde tatsächlich mein Beitrag in der Regionalzeitung veröffentlicht.
Allerdings haben sie den letzten Satz rausgeschnitten. Naja, immerhin wurde es überhaupt gedruckt.

Beiträge von BugFix

Nach 10 Mausklick eine Taste drücken

Hilfe bei #GuiList

Tastatur für Bildschirm

Autoit v2 newbee braucht hilfe...

Photoshop cs2 will nicht mehr

Autoit v2 newbee braucht hilfe...

zeichen löschen lassen

[Nicht gelöst] Tenso Font Editor - Einstellungen

"Guckloch"

Automatisch Combobox Menupunkte erstellen

Listbox abfragen

Wert aus Radio Button Group in Variable übergeben??

Fenster im Hintergrund halten

Wert aus Radio Button Group in Variable übergeben??

Lan Installer

jEdit für AutoIt

jEdit für AutoIt

Link in GuiCtrlSetTip

Router mit Internet autom.verbinden

Verbot von sogenannten "Hacker-Tools"