VirtuelleKeyboard

Elbolamier

Hey ich bin seit heute hier Registriet und habe auch schon gleich eine frage.
Und zwar... wie klappt es nicht so ganz mit der SHIFT-taste und wie mache ich es dass
man sie mehrmals drücken kann?

P.S. Ich kann noch nicht richtig gut programmieren also bitte bitte mit guter Erklärung. xD

thx

hier das skrip

war10ck

Erstmal herzlich willkommen bei uns im Forum!

Shift könntest du so mahcen dass du, erst shift drücken Musst, und dann die Taste, also das du z.b. wenn du Schift drückst eine Varialble von 0 auf 1 od so seztt, und damit statt den Kleinbuchstaben Großbuchstabne hin schreibst. Du müsstest die Variable dann nach dem Drücken der nächsten taste einfach wieder auf 0 stellen ud es geht weiter.

So in etwa:

Spoiler anzeigen

[autoit]

$grossklein=0
if $msg= $shift then $Grossklein=1

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

elseif $msg= $a then
if $grossklein=0 send("a")
else send("A")
endif

[/autoit]

Understood

Ich will ja nichts sagen, aber könntest du bitte den Link aus deiner Signatur nehmen, weil ich glaube, auch wenn der Link nicht funktioniert, dass es nicht gut ist Werbung für Bot-Websiten zumachen.

Elbolamier

Zitat von Understood

Ich will ja nichts sagen, aber könntest du bitte den Link aus deiner Signatur nehmen, weil ich glaube, auch wenn der Link nicht funktioniert, dass es nicht gut ist Werbung für Bot-Websiten zumachen.

Die page habe ich sowieso vorhin off gesetzt aber trotzdem danke

Understood

Jo, nicht das Mitglieder Anstoß darauf empfinden

simon

Du könntest die buttons bei den buchstaben mit guictrlread einlesen , damit es egal ist ob dort großbuchstaben oder kleinbuchstaben sthen, dass immer die beschriftung gesendet wird
aber nur bei den buttton mit dieser veränderung

Sithlord95

Ich geb dir einen Ansatz alles werde ich nich tippen

Spoiler anzeigen

[autoit]

;das ist für die State abfrageungefähr zeile 200 einzufügen bei dir
Case $Button34
If $shift = 1 Then
$shift = 0
GUICtrlSetData ($Button1, "Q")
GUICtrlSetData ($Button2,"W")
GUICtrlSetData ($Button3, "E")
GUICtrlSetData ($Button4,"R")
GUICtrlSetData ($Button5, "T")
GUICtrlSetData ($Button6,"Z")
GUICtrlSetData ($Button7, "U")
GUICtrlSetData ($Button8,"I")
GUICtrlSetData ($Button9, "O")
GUICtrlSetData ($Button10,"P")
GUICtrlSetData ($Button11, "Ü")
GUICtrlSetData ($Button12,"A")
GUICtrlSetData ($Button13, "S")
GUICtrlSetData ($Button14,"D")
GUICtrlSetData ($Button15,"F")
GUICtrlSetData ($Button16,"G")
GUICtrlSetData ($Button17, "H")
GUICtrlSetData ($Button18 ,"J")
GUICtrlSetData ($Button19, "K")
GUICtrlSetData ($Button20,"L")
GUICtrlSetData ($Button21, "Ö")
GUICtrlSetData ($Button22,"Ä")
GUICtrlSetData ($Button23, "Y")
GUICtrlSetData ($Button24,"X")
GUICtrlSetData ($Button25, "C")
GUICtrlSetData ($Button26,"V")
GUICtrlSetData ($Button27, "N")
GUICtrlSetData ($Button28,"B")
GUICtrlSetData ($Button29,"M")
elseif $shift = 0 then
$shift = 1
GUICtrlSetData ($Button1,"q")
GUICtrlSetData ($Button2,"w")
GUICtrlSetData ($Button3,"e")
GUICtrlSetData ($Button4,"r")
GUICtrlSetData ($Button5,"t")
GUICtrlSetData ($Button6,"z")
GUICtrlSetData ($Button7,"u")
GUICtrlSetData ($Button8,"i")
GUICtrlSetData ($Button9,"o")
GUICtrlSetData ($Button10,"p")
GUICtrlSetData ($Button11,"a")
GUICtrlSetData ($Button12,"s")
GUICtrlSetData ($Button13,"d")
GUICtrlSetData ($Button14,"f")
GUICtrlSetData ($Button15,"g")
GUICtrlSetData ($Button16,"h")
GUICtrlSetData ($Button17,"j")
GUICtrlSetData ($Button18,"k")
GUICtrlSetData ($Button19,"l")
GUICtrlSetData ($Button20,"ö")
GUICtrlSetData ($Button21,"ä")
GUICtrlSetData ($Button22,"y")
GUICtrlSetData ($Button23,"x")
GUICtrlSetData ($Button24,"c")
GUICtrlSetData ($Button26,"v")
GUICtrlSetData ($Button25,"n")
GUICtrlSetData ($Button27,"b")
GUICtrlSetData ($Button28,"m")
EndIf

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

EndSwitch

[/autoit]

Spoiler anzeigen

[autoit]

;hier wie die buttons den großschreib state abfragen
Case $Button1
if $shift = 1 then
GUICtrlSetData ($Edit,GUICtrlRead($Edit) & "q")
guictrlsetcolor($button1,0xff);kurz blauer button sieht meine meinung nach gut aus
sleep(150)
guictrlsetcolor($button1,0x00000);wieder schwarz
else
GUICtrlSetData ($Edit,GUICtrlRead($Edit) & "Q")
endif

[/autoit]

Achja und mir ist aufgefallen das deine Tastatur an manchen Stellen nicht stimmt,kannst du wenn du zeit hast korrigieren.

Mfg
Sith

Achja und vielen Dank für die Icq-nummer in deinem Script

**BugFix**

Und wenn du statt einzelner Controls Arrays verwendest, sparst du locker 100 Zeilen Code ein.

simon

GUICtrlSetData($Edit,GUICtrlRead($Edit),GUICtrlRead($Button1))

mit diesem ^ brauchst du kein $sift da immer die button beschriftung gesetzt wird
mfg. Simon

Elbolamier

ich habe nun array mit eingebaut doch nun sagt er mir ne Fehlermeldung.
Entwerder bin ich viel zu dumm oder ich kanns einfach nicht hier das neue script

autoit.de/wcf/attachment/6495/

simon

Ersetzte mal

[autoit]

Dim $Buttons[45]

[/autoit]

mit

[autoit]

Dim $Buttons[46]

[/autoit]

Grund: Ein Array beginnt immer mit 0 wenn du aber bis 45 als zahl willst dann ist das array 45 + 1 also 46 da es bei 0 beginnt

Elbolamier

ok habe ich doch nun zeigt er mir immer noch einen fehler an

simon

Jo du die buttons also die array doppelt deklarierst die arrays sind mit dim schon deklariert und du deklarierst sie mit global nochmal stat dimm würde auch Global $Buttons[46] gehen allerdings gibt es später mit dim die möglichkeit von redim um es zu erweitern aber da brauchst du heir nicht
also nimm die globals vor den buttons weg dann müsste es gehen

Elbolamier

leider habe ich nun immer noch einen fehler und habe nun schon sehr lange gusucht und ihn nicht gefunden

**Raupi**

Wo hast du einen Fehler? Welcher Fehler? Wo ist dein aktuelles Script? im 1. Post? Fragen über Fragen.

Elbolamier

Oh sry hab ich vergessen her das neue script

[autoit]

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

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

Dim $shift
Dim $Buttons[46]
$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)
$Buttons[0] = GUICtrlCreateButton("q", 56, 240, 25, 25, 0)
$Buttons[1] = GUICtrlCreateButton("w", 88, 240, 25, 25, 0)
$Buttons[2] = GUICtrlCreateButton("e", 120, 240, 25, 25, 0)
$Buttons[3] = GUICtrlCreateButton("r", 152, 240, 25, 25, 0)
$Buttons[4] = GUICtrlCreateButton("t", 184, 240, 25, 25, 0)
$Buttons[5] = GUICtrlCreateButton("z", 216, 240, 25, 25, 0)
$Buttons[6] = GUICtrlCreateButton("u", 248, 240, 25, 25, 0)
$Buttons[7] = GUICtrlCreateButton("i", 280, 240, 25, 25, 0)
$Buttons[8] = GUICtrlCreateButton("o", 312, 240, 25, 25, 0)
$Buttons[9] = GUICtrlCreateButton("p", 344, 240, 25, 25, 0)
$Buttons[10] = GUICtrlCreateButton("ü", 376, 240, 25, 25, 0)
$Buttons[12] = GUICtrlCreateButton("a", 64, 272, 25, 25, 0)
$Buttons[13] = GUICtrlCreateButton("s", 96, 272, 25, 25, 0)
$Buttons[14] = GUICtrlCreateButton("d", 128, 272, 25, 25, 0)
$Buttons[15] = GUICtrlCreateButton("f", 160, 272, 25, 25, 0)
$Buttons[16] = GUICtrlCreateButton("g", 192, 272, 25, 25, 0)
$Buttons[17] = GUICtrlCreateButton("h", 224, 272, 25, 25, 0)
$Buttons[18] = GUICtrlCreateButton("j", 256, 272, 25, 25, 0)
$Buttons[19] = GUICtrlCreateButton("k", 288, 272, 25, 25, 0)
$Buttons[20] = GUICtrlCreateButton("l", 320, 272, 25, 25, 0)
$Buttons[21] = GUICtrlCreateButton("ö", 352, 272, 25, 25, 0)
$Buttons[22] = GUICtrlCreateButton("ä", 384, 272, 25, 25, 0)
$Buttons[23] = GUICtrlCreateButton("y", 72, 304, 25, 25, 0)
$Buttons[24] = GUICtrlCreateButton("x", 104, 304, 25, 25, 0)
$Buttons[25] = GUICtrlCreateButton("c", 136, 304, 25, 25, 0)
$Buttons[26] = GUICtrlCreateButton("v", 168, 304, 25, 25, 0)
$Buttons[27] = GUICtrlCreateButton("n", 232, 304, 25, 25, 0)
$Buttons[28] = GUICtrlCreateButton("b", 200, 304, 25, 25, 0)
$Buttons[29] = GUICtrlCreateButton("m", 264, 304, 25, 25, 0)
$Buttons[30] = GUICtrlCreateButton(",", 296, 304, 25, 25, 0)
$Buttons[31] = GUICtrlCreateButton(".", 328, 304, 25, 25, 0)
$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)
$Buttons[33] = GUICtrlCreateButton("^", 8, 208, 25, 25, 0)
$Buttons[34] = GUICtrlCreateButton("1", 40, 208, 25, 25, 0)
$Buttons[35] = GUICtrlCreateButton("2", 72, 208, 25, 25, 0)
$Buttons[36] = GUICtrlCreateButton("3", 104, 208, 25, 25, 0)
$Buttons[37] = GUICtrlCreateButton("4", 136, 208, 25, 25, 0)
$Buttons[38] = GUICtrlCreateButton("5", 168, 208, 25, 25, 0)
$Buttons[39] = GUICtrlCreateButton("6", 200, 208, 25, 25, 0)
$Buttons[30] = GUICtrlCreateButton("7", 232, 208, 25, 25, 0)
$Buttons[39] = GUICtrlCreateButton("8", 264, 208, 25, 25, 0)
$Buttons[40] = GUICtrlCreateButton("9", 296, 208, 25, 25, 0)
$Buttons[41] = GUICtrlCreateButton("0", 328, 208, 25, 25, 0)
$Buttons[42] = GUICtrlCreateButton("ß", 360, 208, 25, 25, 0)
$Buttons[43] = GUICtrlCreateButton("+", 408, 240, 25, 25, 0)
$Buttons[44] = GUICtrlCreateButton("#", 416, 272, 25, 25, 0)
$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)

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

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

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

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 Then
For $i = 0 To 29
GUICtrlSetData($Buttons[$i], StringUpper(GUICtrlRead($Buttons[$i])))
^
$shift = 1
ElseIf $shift = 1 Then
GUICtrlSetData($Buttons[$i], StringLower(GUICtrlRead($Buttons[$i])))
^
$shift = 0
EndIf
EndSwitch
WEnd

[/autoit]

Jonathan

wäre eventuel besser, das script in einen spoiler zu setzten.

Techmix

Nur so zur Anregung, musst n´n bischen mehr versuchen

Spoiler anzeigen

[autoit]

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

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

Dim $shift
Dim $Buttons[46]
$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)
$Buttons[0] = GUICtrlCreateButton("q", 56, 240, 25, 25, 0)
$Buttons[1] = GUICtrlCreateButton("w", 88, 240, 25, 25, 0)
$Buttons[2] = GUICtrlCreateButton("e", 120, 240, 25, 25, 0)
$Buttons[3] = GUICtrlCreateButton("r", 152, 240, 25, 25, 0)
$Buttons[4] = GUICtrlCreateButton("t", 184, 240, 25, 25, 0)
$Buttons[5] = GUICtrlCreateButton("z", 216, 240, 25, 25, 0)
$Buttons[6] = GUICtrlCreateButton("u", 248, 240, 25, 25, 0)
$Buttons[7] = GUICtrlCreateButton("i", 280, 240, 25, 25, 0)
$Buttons[8] = GUICtrlCreateButton("o", 312, 240, 25, 25, 0)
$Buttons[9] = GUICtrlCreateButton("p", 344, 240, 25, 25, 0)
$Buttons[10] = GUICtrlCreateButton("ü", 376, 240, 25, 25, 0)
$Buttons[12] = GUICtrlCreateButton("a", 64, 272, 25, 25, 0)
$Buttons[13] = GUICtrlCreateButton("s", 96, 272, 25, 25, 0)
$Buttons[14] = GUICtrlCreateButton("d", 128, 272, 25, 25, 0)
$Buttons[15] = GUICtrlCreateButton("f", 160, 272, 25, 25, 0)
$Buttons[16] = GUICtrlCreateButton("g", 192, 272, 25, 25, 0)
$Buttons[17] = GUICtrlCreateButton("h", 224, 272, 25, 25, 0)
$Buttons[18] = GUICtrlCreateButton("j", 256, 272, 25, 25, 0)
$Buttons[19] = GUICtrlCreateButton("k", 288, 272, 25, 25, 0)
$Buttons[20] = GUICtrlCreateButton("l", 320, 272, 25, 25, 0)
$Buttons[21] = GUICtrlCreateButton("ö", 352, 272, 25, 25, 0)
$Buttons[22] = GUICtrlCreateButton("ä", 384, 272, 25, 25, 0)
$Buttons[23] = GUICtrlCreateButton("y", 72, 304, 25, 25, 0)
$Buttons[24] = GUICtrlCreateButton("x", 104, 304, 25, 25, 0)
$Buttons[25] = GUICtrlCreateButton("c", 136, 304, 25, 25, 0)
$Buttons[26] = GUICtrlCreateButton("v", 168, 304, 25, 25, 0)
$Buttons[27] = GUICtrlCreateButton("n", 232, 304, 25, 25, 0)
$Buttons[28] = GUICtrlCreateButton("b", 200, 304, 25, 25, 0)
$Buttons[29] = GUICtrlCreateButton("m", 264, 304, 25, 25, 0)
$Buttons[30] = GUICtrlCreateButton(",", 296, 304, 25, 25, 0)
$Buttons[31] = GUICtrlCreateButton(".", 328, 304, 25, 25, 0)
$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)
$Buttons[33] = GUICtrlCreateButton("^", 8, 208, 25, 25, 0)
$Buttons[34] = GUICtrlCreateButton("1", 40, 208, 25, 25, 0)
$Buttons[35] = GUICtrlCreateButton("2", 72, 208, 25, 25, 0)
$Buttons[36] = GUICtrlCreateButton("3", 104, 208, 25, 25, 0)
$Buttons[37] = GUICtrlCreateButton("4", 136, 208, 25, 25, 0)
$Buttons[38] = GUICtrlCreateButton("5", 168, 208, 25, 25, 0)
$Buttons[39] = GUICtrlCreateButton("6", 200, 208, 25, 25, 0)
$Buttons[30] = GUICtrlCreateButton("7", 232, 208, 25, 25, 0)
$Buttons[39] = GUICtrlCreateButton("8", 264, 208, 25, 25, 0)
$Buttons[40] = GUICtrlCreateButton("9", 296, 208, 25, 25, 0)
$Buttons[41] = GUICtrlCreateButton("0", 328, 208, 25, 25, 0)
$Buttons[42] = GUICtrlCreateButton("ß", 360, 208, 25, 25, 0)
$Buttons[43] = GUICtrlCreateButton("+", 408, 240, 25, 25, 0)
$Buttons[44] = GUICtrlCreateButton("#", 416, 272, 25, 25, 0)
$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)

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

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

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

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
grossklein()
Case $Button37
grossklein()
EndSwitch
sleep(5)
WEnd

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

func grossklein()
If $shift = 0 Then
For $i = 0 To 29
GUICtrlSetData($Buttons[$i], StringUpper(GUICtrlRead($Buttons[$i])))
next
$shift = 1
Else
For $i = 0 To 29
GUICtrlSetData($Buttons[$i], StringLower(GUICtrlRead($Buttons[$i])))
next
$shift = 0
EndIf

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

endfunc

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

und sowas kommt normalerweise in die Rubrik Hilfe & Unterstützung

Und versuch ruhig weiter! Nimm dir die Deutsche Hilfe zur Brust, ist wirklich gut!

tobi_girst

Elbolamier: 2 Dinge:
1. Bitte anstatt

Code

[autoit][/autoit]

das

Code

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

verwenden! Dann gibt's eine Box zum Aufklappen!
2. Ändere den Titel im 1. Post von "VirtuelleKeyboard" bitte auf "Virtuelles Keyboard", das tut beim Anschauen schon weh.
Zum Script: Finde es eine tolle Idee, auch gut umgesetzt, was sich so finde.
MfG tobi_girst

**Oscar**

Zitat von tobi_girst

2. Ändere den Titel im 1. Post von "VirtuelleKeyboard" bitte auf "Virtuelles Keyboard", das tut beim Anschauen schon weh.

Also, wenn schon ändern, dann aber richtig:
Entweder "Virtual Keyboard" oder "Virtuelle Tastatur".