#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Bearbeiter = GUICreate("Bearbeiter", 444, 251, 192, 271)
$Pic1 = GUICtrlCreatePic("Tester.jpg", 0, 64, 441, 185)
$Input1 = GUICtrlCreateInput("", 0, 0, 441, 21)
$Editor = GUICtrlCreateButton("Editor", 0, 32, 65, 25)
$DateiErstellen = GUICtrlCreateButton("Datei Erstellen", 72, 32, 81, 25)
$Eingabe = GUICtrlCreateButton("Eingabe", 160, 32, 65, 25)
$Minimieren = GUICtrlCreateButton("Minimieren", 232, 32, 65, 25)
$Hilfe = GUICtrlCreateButton("Hilfe", 304, 32, 65, 25)
$Beenden = GUICtrlCreateButton("Beenden", 376, 32, 57, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
HotKeySet("{F1}", "EditorStart")
HotKeySet("{F2}", "Datei_Erstellen")
HotKeySet("{F3}", "Eingaben")
HotKeySet("{F5}", "Helper")
HotKeySet("{F6}", "Beender")
HotKeySet("{F8}", "Minimieren123")
HotKeySet("{F9}", "Maximieren")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $DateiErstellen
Datei_Ersteller()
Case $Minimieren
Minimieren123()
Case $Editor
EditorStart()
Case $Eingabe
Eingeben()
Case $Beenden
Beender()
Case $Hilfe
Helper()
EndSwitch
WEnd
Func Datei_Ersteller()
$Input2 = InputBox("", "Was soll in der Datei drinnen stehen?")
$Text1 = GUICtrlRead($Input1)
MsgBox(0, "Datei", "Datei erfolgreich erstellt")
MsgBox(0, "Datei", "Da wo der Starter von dem Programm ist!")
_FileCreate($Text1)
FileWrite($Text1, $Input2)
EndFunc ;==>Datei_Ersteller
Func Minimieren123()
GUISetState(@SW_SHOWMINIMIZED)
EndFunc ;==>Minimieren123
Func Maximieren()
GUISetState(@SW_RESTORE)
EndFunc ;==>Maximieren
Func EditorStart()
Run("NotePad.exe")
WinWaitActive("Unbenannt")
EndFunc ;==>EditorStart
Func Eingeben()
$Text1 = GUICtrlRead($Input1)
WinWaitActive("Unbenannt")
Send($Text1)
EndFunc ;==>Eingeben
Func Beender()
$Input3 = InputBox("", "Wirklich alles beenden(Editor/Programm) Ja oder Nein")
If $Input3 = "Ja" Then
ProcessClose("Notepad.exe")
Exit
ElseIf $Input3 = "Nein" Then
MsgBox(0, "Editor", "Nichts Passiert
!")
Else
MsgBox(0, "Editor", "Bitte Ja oder Nein eingeben!")
EndIf
EndFunc ;==>Beender
Func Helper()
$List1 = GUICtrlCreateList("", 60, 60, 260, 130)
_GUICtrlListBox_AddString($List1, "1.Hallo Hier mal ein par Hotkeys")
_GUICtrlListBox_AddString($List1, "F1 Den Editor zu Starten")
_GUICtrlListBox_AddString($List1, "F2 Eine Datei zu erstellen mit mehrerer zeilen")
_GUICtrlListBox_AddString($List1, "F3 In dem Editor was rein zu schreiben")
_GUICtrlListBox_AddString($List1, "F4 Um den Hilfe Editor aufzurufen")
_GUICtrlListBox_AddString($List1, "F5 Um den Helfer aufzurufen")
_GUICtrlListBox_AddString($List1, "F6 Um alles zu Beenden")
_GUICtrlListBox_AddString($List1, "F8 Um den Bearbeiter zu Minimieren")
_GUICtrlListBox_AddString($List1, "F9 Und es wieder zu Maximieren/Herstellen")
HotKeySet("{F1}", "EditorStart")
HotKeySet("{F2}", "Datei_Erstellen")
HotKeySet("{F3}", "Eingaben")
HotKeySet("{F5}", "Helper")
HotKeySet("{F6}", "Beender")
HotKeySet("{F8}", "Minimieren123")
HotKeySet("{F9}", "Maximieren")
GUISetState(@SW_SHOW)
EndFunc ;==>Helper
Func Datei_Erstellen()
$Input8 = InputBox("", "Wie soll die Datei heißen?")
$Input9 = InputBox("", "Was soll in der Datei drinnen stehen?")
$Input10 = InputBox("", "Was soll in der zweiten zeile stehen?")
$Input11 = InputBox("", "Was soll in der dritten zeile stehen?")
$Input12 = InputBox("", "Was soll in der vierten zeile stehen?")
$Input13 = InputBox("", "Was soll in der fünften zeile stehen?")
$Input14 = InputBox("", "Was soll in der sechsten zeile stehen?")
$Input15 = InputBox("", "Was soll in der letsten/siebte zeile stehen?")
$Text11 = GUICtrlRead($Input8)
MsgBox(0, "Datei", "Datei erfolgreich erstellt")
MsgBox(0, "Datei", "Da wo der Starter von dem Programm ist")
MsgBox(0, "Datei", "ist auch die erstellte Datei!")
_FileCreate($Input8)
FileWrite($Input8, $Input9)
FileWriteLine($Input8, $Input10)
FileWriteLine($Input8, $Input11)
FileWriteLine($Input8, $Input12)
FileWriteLine($Input8, $Input13)
FileWriteLine($Input8, $Input14)
FileWriteLine($Input8, $Input15)
EndFunc ;==>Datei_Erstellen
Func Eingaben()
$Input7 = InputBox("", "Was soll in den Editor Reingeschrieben werden?")
$Text6 = GUICtrlRead($Input7)
TrayTip("Editor", "Warten auf Editor", 0, 0)
WinWaitActive("Unbenannt")
Send($Input7)
EndFunc ;==>Eingaben