ich möchte ein GUI anzeigen lassen, welches einige Fragen abfragt und diese dann später ausgibt, nachfolgend der CODE dafür, der erstmal auch funktioniert:
Code: Select all
::Formular::
Gui, New
Gui, Show, w305 h180, GUINAME)
Gui, Add, Text,, Frage1:
Gui, Add, Edit, vFrage1
Gui, Add, Text,, Frage2:
Gui, Add, Edit, vFrage2
Gui, Add, Text,, Frage3:
Gui, Add, Edit, vFrage3
Gui, Add, Button, Default gFrage, OK
Gui, Show
WinSet, AlwaysOnTop, On, GUINAME
SendInput, {TAB} ;damit springe ich zum ersten Edit Feld in meinem GUI
return
Formular:
Gui, Submit
; Den Text für SendInput erstellen und in die Zwischenablage kopieren
FrageText := "Gibt testweise alle Antworten aus" . Frage1 . " und " . Frage2 . " und " . Frage3 . " . "
Clipboard := FrageText
; Umlaute und Sonderzeichen ersetzen
FrageText := StrReplace(FrageText, "ä", "{U+00E4}")
FrageText := StrReplace(FrageText, "Ä", "{U+00C4}")
FrageText := StrReplace(FrageText, "ö", "{U+00F6}")
FrageText := StrReplace(FrageText, "Ö", "{U+00D6}")
FrageText := StrReplace(FrageText, "ü", "{U+00FC}")
FrageText := StrReplace(FrageText, "Ü", "{U+00DC}")
FrageText := StrReplace(FrageText, "ß", "{U+00DF}")
; Den Text senden
SendInput, %FrageText%
return
Ich hatte überlegt den Window Handle zu ermitteln, bevor das GUI sich aktiviert, um diesen nach dem GUI dafür zu nutzen, zurück in genau dieses Fenster zu springen. Dabei scheitert es schon...
Code: Select all
F4::
UniqueID := WinActive(WinTitle, WinText, ExcludeTitle, ExcludeText)
MsgBox, % "Die gewuenschte Variable lautet: " . UniqueID
Return