AutoIt – Wikipedia

$sName = InputBox("Fenstertitel", "Geben Sie hier Ihren Namen ein!") 

MsgBox(64, "Fenstertitel", "Hallo " & $sName & "!") 

#cs	Startet einen Kommentar-Block  Standard-Präfixe für Variablen:  	- $h 	- Handle von z. B. einem Fenster oder einer Datei 	- $id 	- ID's von Controls, wie z. B. Buttons und Eingabefelder 	- $s	- Strings (Zeichenketten) 	- $i	- Integers (Ganzzahlen)  	Variablennamen werden normalerweise in Englisch verfasst! (Kein Standard)  #ce	; Beendet einen Kommentar-Block   #include <FTPEx.au3> ; Einbinden von mehreren vordefinierten Scripten. #include <GUIConstantsEx.au3>  ;############# Änderbare Daten ################ $sIP = "IP von FTP-Server" $sUser = "Benutzername vom FTP-Benutzer" $sPassword = "Passwort vom FTP-Benutzer" $sFTP_Path = "Pfad auf dem Server" ;##############################################  $hGUI = GUICreate("TestGUI", 445, 339) ; In der Mitte des Bildschirms wird mit der X-Koordinate 445, und der Y-Koordinate 339 ein Fenster gezeichnet. GUISetBkColor(0xBFCDDB) ; Die Hintergrundfarbe wird vom Standard geändert. $idSend = GUICtrlCreateButton("Versenden", 0, 288, 203, 49) ; Der "Versenden"-Knopf wird erstellt. $idEdit = GUICtrlCreateEdit("", 0, 0, 441, 289) ; Ein Eingabefeld wird erstellt. GUICtrlSetData($idEdit, "Beispiel-Text" & @CRLF & "Nächste Zeile") ; Ein Text wird in das Eingabefeld geschrieben. @CRLF markiert einen Zeilenumbruch. GUICtrlSetBkColor($idEdit, 0xC0C0C0) ; Die Hintergrundfarbe des Eingabefeldes wird geändert. GUISetState(@SW_SHOW) ; Das Fenster wird angezeigt.  While 1 ; Eine While-Schleife wird geöffnet, die immer wieder bestimmte Sachen abfragt. Endlosschleife, in diesem Fall die "Messageloop" des Fensters.         $iMsg = GUIGetMsg() ; Die Variable die abgefragt werden soll, wird immer wieder neu erstellt. (Einmal pro durchlauf der Schleife.)         Switch $iMsg ; Die Variable wird als Ereignisauslöser definiert.             Case $GUI_EVENT_CLOSE ; Falls der "Schließenknopf"(X oben rechts in der Ecke) gedrückt wird,                 Exit ; beendet sich das Script.             Case $idSend ; Falls der "Versenden"-Button gedrückt wird,                 _Put_on_FTP() ; wird die "_Put_on_FTP" Funktion ausgeführt.         EndSwitch ; Die Abfrage der Variable $nMsg wird beendet. WEnd ; Markiert das Ende einer "While"-Schleife(n) definition. Falls die Schleife endet, arbeitet das Skript von hier weiter.  Func _Put_on_FTP() ; Benutzerdefinierte Funktionen haben normalerweise das Präfix "_" und der Name sollte auch in Englisch gehalten sein.         Local $sFilePath = "ftp.txt" ; Eine lokale Variable wird deklariert und ein Wert zugewiesen (diese ist nur in dieser Funktion verfügbar).          $hFile = FileOpen($sFilePath, 10) ; Eine Datei wird zum Schreiben geöffnet, und falls sie nicht existiert, wird diese erstellt.         $sText = GUICtrlRead($idEdit) ; Der Text aus dem Eingabefeld wird eingelesen.         FileWrite($hFile, $sText) ; In die zuvor geöffnete Datei wird der Text aus der Variablen $sText geschrieben.         FileClose($hFile) ; Die Datei wird geschlossen und die Ressourcen wird freigegeben.         $hFTP = _FTP_Open("TestFTP") ; Die FTP-Sitzung wird gestartet.         $hFTP_Connection = _FTP_Connect($hFTP, $sIP, $sUser, $sPassword) ; Eine FTP-Verbindung zum angegebenen Server wird aufgebaut.         If @error <> 0 Then ; Falls @error ungleich 0 ist (ein Fehler ist aufgetreten),                 MsgBox(0, "Error", "Der FTP-Server scheint nicht erreichbar zu sein.") ; Eine Fehlermeldung wird ausgegeben.             ElseIf @error = 0 Then ; Falls @error gleich 0 ist (kein Fehler ist aufgetreten),                 _FTP_FilePut($hFTP_Connection, $sFilePath, $sFTP_Path) ; wird Die Testdatei auf den Server geschrieben.                 If @error Then ; Falls es einen Fehler gibt, ...                         MsgBox(0, "Error", "Es trat ein Fehler beim Übertragen auf.") ; ... wird eine Fehlermeldung angezeigt, ansonsten ...                     Else ; Wenn kein Fehler aufgetreten ist,                         MsgBox(0, "Erfolg", "Die Datei wurde erfolgreich übertragen.") ; ... war die Operation erfolgreich.                 EndIf ; Die If-Abfrage wird geschlossen.         EndIf ; Die erste If-Abfrage wird geschlossen.         _FTP_Close($hFTP) ; Die FTP-Verbindung wird geschlossen und die FTP-Sitzung wird beendet.         FileDelete($sFilePath) ; Die temporäre Datei wird gelöscht.          Return ; Funktion beenden und mit der eigentlichen Skript-Ausführung fortfahren. EndFunc ; Markiert das Ende einer Funktion.