#include <GUIConstants.au3> ;Eine Datei von Koda (Wenn ihr AutoIT nicht installiert habt, könnt ihr die Anwendung nicht schliessen!)

#Region ### START Koda GUI section ### Form= ;Anfang von Koda GUI section
$Form1 = GUICreate("Kleines Example", 625, 445, 193, 125)
$Slider1 = GUICtrlCreateSlider(56, 80, 113, 25)
$ListView1 = GUICtrlCreateListView("Name|Beschreibung|Größe", 304, 56, 217, 201)
$Button1 = GUICtrlCreateButton("Statusbar nach 100%", 24, 368, 113, 33, 0)
$Button2 = GUICtrlCreateButton("Slider deaktivieren", 88, 48, 97, 33, 0)
$Button3 = GUICtrlCreateButton("Einträge hinzufügen", 312, 24, 121, 25, 0)
$Button4 = GUICtrlCreateButton("Gebe ein, sonst passiert was!", 50, 260, 200, 25, 0) ;Das sind alles Objekte in der Form
$Button5 = GUICtrlCreateButton("Schreibe etwas in Editor rein", 300, 260, 200, 25, 0)
$Button6 = GUICtrlCreateButton("Schliessen", 500, 368, 60, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;Das Ende von Koda Gui section

While 1 ;Eine Schleife
	$nMsg = GUIGetMsg() ;Unbekannter Begriff von Koda
	Switch $nMsg ;Gehört zum Unbekannten Begriff
		Case $GUI_EVENT_CLOSE ;Sagt das wenn man auf das Kreuz klickt, das er dann...
			Exit ; <-- ... schliesst
		Case $Button1 ;Der Button für die Statusleiste
			_goto100() ;Die Funktion vom Button
		Case $Button2 ;Der Button vom Slider
			_deactivateslider() ;Die Funktion vom Slider
		Case $Button3 ;Der Button für die Liste
			_additems() ;Die Funktion für die Liste
		Case $Button4 ;Der Button für Gebe was ein, sonst passiert was!
			_input() ;Die Funktion für Gebe was ein, sonst passiert was!
		Case $Button5 ;Der Button von Schreibe etwas in den Editor rein
			_send() ;Die Funktion von Schreibe etwas in den Editor rein
		Case $Button6 ;Der Button, der das Programm schliesst
			_close() ;Die Funktion, die das Programm schliesst
	EndSwitch ;Schliesst den Kreis vom Unbekannten Befehl
WEnd ;Beendet die Schleife

Func _goto100() ;Die Funktion für die Statusleiste
	$Progress1 = GUICtrlCreateProgress(0, 419, 624, 25) ;Er erstellt eine Statusleiste
	GUICtrlSetData(-1, 20) ;Gehe zu 20%
	Sleep(1000) ;Warte, wie bei einer Installation
	GUICtrlSetData(-1, 40) ;Gehe zu 40%
	Sleep(1000) ;Warte
	GUICtrlSetData(-1, 60) ;Gehe zu 60%
	Sleep(1000) ;Warte
	GUICtrlSetData(-1, 80) ;Gehe zu 80%
	Sleep(1000) ;Warte
	GUICtrlSetData(-1, 100) ;Gehe zu 100%
	MsgBox(64,"Fertig","Die Statusbar ist bei 100% angekommen!") ;Zeige mir, das er fertig ist
EndFunc	;Beendet die Funktion

Func _deactivateslider() ;Die Funktion für das deaktivieren des Sliders
	$Slider1 = GUICtrlCreateSlider(56, 80, 113, 25) ;Er erstellt einen Slider
	GUICtrlSetLimit(-1, 10, 0) ;Er sagt dem Slider das er von 0-10 geht.
    GUICtrlSetState(-1, $GUI_DISABLE) ;Legt fest, das er aktiviert ist.
MsgBox(64,"Deaktiviert!","Slider ist deaktiviert!") ;Zeigt mir, das er deaktiviert ist.
EndFunc 

Func _additems() ;Funktion für die Liste
	$ListView1_0 = GUICtrlCreateListViewItem("Item 1|Ein Item|100000000TB", $ListView1) ;Erstellt ein Item
	MsgBox(64,"Items hinzugefügt!","Es wurden Items hinzugefügt!") ;Zeigt mir, das eins erstellt wurde.
EndFunc	;Beendet die Func

Func _input() ;Die Funktion für "Gebe was ein, oder es passiert was!"
	$Text = InputBox("Gib was ein! Oder es passiert was!","Gebe das Wort ""AutoIT"" ein!") ;Erstellt ein Pop-UP Fenster mit Eingabe-Box
	
	If $Text <> "AutoIT" Then ;Auf Deutsch: Wenn in $Text (Das was oben steht) das Wort "AutoIT" eingegeben wird, dann
	    MsgBox(16,"Falsch!","Du hast falsch eingegeben!") ;Gibt eine Meldung aus, das es Falsch war
	Else ;Oder
		MsgBox(64,"Super!","Du hast richtig eingegeben!") ;Gibt eine Meldung aus, das es richtig war.
	EndIf ;Beendet den Wenn- Teil
EndFunc	;Beendet die Func

Func _send() ;Die Funktion von Schreibe etwas in den Editor rein
	Run("NOTEPAD.exe") ;Er fürt den Editor aus
	WinWaitActive("Unbenannt - Editor") ;Er wartet bis er Aktiv ist (ist er nach dem Starten)
	Send("Der Befehl Send schreibt etwas hinein" & @CR & "was man selber gar nicht hinein geschrieben hat.") ;Er schreibt das hinein
	WinWaitClose("Unbenannt - Editor") ;Er wartet bis es jemand schliesst
	WinClose("Unbennant - Editor") ;Wenn jemand es  geschlossen hat...
	MsgBox(64,"Guter Trick!","Mit dem Befehl kannst du jemanden reinlegen!") ;... zeigt er mir eine Meldung.
EndFunc	;Beendet die Func

Func _close() ;Die Funktion die das Programm schliesst
	WinClose("Kleines Example") ;Der Befehl der das Programm schliesst.
	MsgBox(64,"Danke","Danke, das du mein Example genutzt hast!")
EndFunc	

#cs

 Autor: Jonathan Verbeek
 Script: Jonathan Verbeek
 Version: 1.0.0.0
 
 Bereitgestellt für Anfänger
 
 Copyright (c) 2010 by Jonathan Verbeek
 #ce