[Sammelthread] meine Scripts [+ Erklärungen]

[Flοw]

~ Vorwort ~

Hey Community,
heute möchte ich euch mal einen Teil in dieser Sektion in Sachen AutoIT schreiben,
aber nichts in dieser Art, wie man hier schon massenhaft vorfinden kann.
Mein Thread ist mehr oder weniger speziell,
da ich alle meine Scripts veröffentliche und diese erkläre.
Genau das sollte nämlich dem einen oder anderen helfen,
weil man sonst ja nur versucht alles nur „trocken“ zu lernen.
Ich werde mit dem einfachsten meiner Programme anfangen und so die Schwierigkeit erhöhen.
Ja, für den ein oder anderen mag das auch Kinderkram sein,
dennoch denke ich das es auch nützlich sein kann.
Wirklich wichtig ist es aber, sofern man etwas verstehen möchte, °Remus°s Grundlagen Tutorial zu lesen, bzw. überfliegen, da ich nicht alles total ausführlich machen werde,
geschweige man es ohne Grundkenntnisse nachvollziehen kann.

~ Tutorial ~

Falls ihr in den Erklärungen auf die Abkürzung „ff“ stößt,
solltet ihr wissen, dass es zeigt, dass genau die Zeile und möglicherweise weiter gemeint sind.
Alles was in den Source-Files hinter dem ; steht und orange geschrieben wurde, sind die Erklärungen dazu, was das davor bedeutet.


1.
Dies hier ist kein Programm, lediglich eine MsgBox,
aber schließlich freut man sich als Anfänger am meisten, solche erstellen zu können.

 Spoiler

MsgBox ( 0, "ERROR" , "Warning ! Keyboard not found. Press any key to continue." ) [COLOR="Orange"];
Diese Zeile erstellt eine MsgBox mit dem Titel „Warning !“, in der Box selbst steht der Text „Keyboard …“[/COLOR]

2.
Dieses Programm lässt euch einen Wort-Übersetzer schreiben.

 Spoiler

GuiCreate("Der Wortübersetzer",384,140,595,364)  [COLOR="Orange"]; generiert ein GUI-Fenster [/COLOR]
$input1=GuiCtrlCreateInput("",23,79,150,20) [COLOR="Orange"] ; generiert ein Input in der GUI [/COLOR]
$label1=GuiCtrlCreateLabel("Bitte gebe das zu suchende Wort ein.",23,18,318,15)
$label2=GuiCtrlCreateLabel("Zudem ist es wichtig, dass das Wort in der Grundform eingetragen ist.",23,48,350,15)
$button2=GUICtrlCreateButton("Info",200,110,150,20)  [COLOR="Orange"]; generiert einen Button[/COLOR]
$button1=GUICtrlCreateButton("Exit",23,110,150,20)
$button3=GUICtrlCreateButton("Los!",200,79,150,20)
GUISETSTATE()


While 1  [COLOR="Orange"]; startet eine „unendliche“ while Schlaufe[/COLOR]
$msg=GuiGetMsg()
If $msg=-3 Then Exit
If $msg=$button2 Then button2()
if $msg=$button1 Then button1()
if $msg=$button3 Then button3()
Wend  [COLOR="Orange"]; beendet die while Schlaufe[/COLOR]


func button1 ()  [COLOR="Orange"]; schreibt der Variable „$button1“ zu was beim drücken des Buttons zu tun ist[/COLOR]
	Exit  [COLOR="Orange"]; beendet durch drücken des Buttons das Programm [/COLOR]
EndFunc  [COLOR="Orange"]; beendet die Zuschreibung (Funktion)[/COLOR]

Func button2() [COLOR="Orange"]; Funktion zur Variable „$button2”[/COLOR]
BlockInput (1) [COLOR="orange"]; blockiert die Tastatur und Maus des Users[/COLOR]	
Run ("notepad.exe") [COLOR="orange"]; öffnet den “Editor”[/COLOR]
sleep (1000) [COLOR="orange"]; lässt das Programm 1000ms verweilen[/COLOR]	
send ("Alles von 'Flow") [COLOR="Orange"]; schreibt den Text[/COLOR]
send ("{enter}") [COLOR="orange"]; drückt „Enter“[/COLOR]
send ("naja, jetzt ist es für euch") [COLOR="orange"]; schreibt den Text[/COLOR]
send ("{enter}") [COLOR="orange"]; drückt „Enter“[/COLOR]
send ("Viel Spaß noch") [COLOR="orange"]; schreibt den Text[/COLOR]
BlockInput (0][COLOR="orange"]; hebt den Block der Tastatur und Maus des Users auf[/COLOR]
EndFunc [COLOR="orange"]; beendet die Zuschreibung (Funktion)[/COLOR]

func button3 ()  [COLOR="orange"];Funktion zur Variable „$button3"[/COLOR]

If GUICtrlRead($input1) = "bird" then [COLOR="orange"]; überprüft das Input1 Feld nach “bird”[/COLOR]
MsgBox (0,"Übersetzung","Vogel") [COLOR="orange"]; gibt die Übersetzung bei obiger Übereinstimmung aus[/COLOR]
Endif[COLOR="orange"] ; beendet diese “Falls-Funktion”[/COLOR]

If GUICtrlRead($input1) = "rabbit" then
MsgBox (0,"Übersetzung","Hase, Kaninchen")
endif

endfunc [COLOR="orange"]; beendet die Zuschreibung (Funktion)[/COLOR]

3.
Das hier ist mein lieblings Programm.
Es erstellt eine GUI, durch diese GUI könnt ihr Fensternamen umändern.

 Spoiler

("{F5}", "_Change") [COLOR="Orange"]; legt auf Taste “F5” die “_Change” Funktion[/COLOR]
$bVisible = True [COLOR="orange"]; der Wert ist auf wahr, da die GUI angezeigt wird[/COLOR]

#include <ButtonConstants.au3> [COLOR="orange"]; ff : wird für die GUI benötigt[/COLOR]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>



$Form1 = GUICreate("Switch it", 245,140, 192, 124) [COLOR="orange"]; erstellt die GUI[/COLOR]
GUISetBkColor(0xA0A0A4) [COLOR="orange"]; gibt der GUI eine Hintergrundfarbe[/COLOR]
$Label1 = GUICtrlCreateLabel("alter Fenstername:", 8, 6, 88, 17) [COLOR="orange"]; erstellt eine Textstelle[/COLOR]
$Input1 = GUICtrlCreateInput("", 108, 4, 127, 21)[COLOR="orange"] ; erstellt ein Input-Feld[/COLOR]
$Label2 = GUICtrlCreateLabel("neuer Fenstername:", 8, 28, 95, 17) [COLOR="orange"]; erstellt eine Textstelle[/COLOR]
$Input2 = GUICtrlCreateInput("", 108, 28, 127, 21)[COLOR="orange"] ; erstellt ein Input-Feld[/COLOR]
$start = GUICtrlCreateButton("Switch", 82, 56, 75, 25, $WS_GROUP) ;[COLOR="orange"] erstellt einen Button[/COLOR]
$button = GUICtrlCreatebutton("Auf 'alten Fensternamen'  zurücksetzten", 10 ,90 ,225, 25) [COLOR="orange"]; erstellt einen Button[/COLOR]
$label3 = GUICtrlCreateLabel ("by Flow", 200,125,50,20) [COLOR="orange"]; erstellt eine Textstelle[/COLOR]
$label4 = GUICtrlCreateLabel ("v2", 8,125,50,20) [COLOR="orange"]; erstellt eine Textstelle[/COLOR]
GUISetState(@SW_SHOW) [COLOR="orange"]; setzt den Status der GUI auf “anzeigen”[/COLOR]


Do [COLOR="orange"]; ff : lässt das Programm solange verweilen, bis es geschlossen wird [/COLOR]
Sleep(50)
Until GUIGetMsg() = -3


Func Change() [COLOR="orange"]; trägt der Funktion “_Change” auf was zu tun ist[/COLOR]
	Switch $bVisible[COLOR="orange"] ; ändert den Anzeigewert der GUI[/COLOR]	
	Case True [COLOR="orange"]; sofern obiges wahr ist passiert folgendes[/COLOR]	
		GUISetState(@SW_HIDE, $Form1) [COLOR="orange"]; ff: GUI wird versteckt[/COLOR]	
		$bVisible = Not $bVisible
		Case False [COLOR="orange"]; sofern obiges falsch ist passiert folgendes[/COLOR]	
		GUISetState(@SW_SHOW, $Form1) ; ff: GUI wird hervorgeholt
			$bVisible = Not $bVisible
	EndSwitch [COLOR="orange"]; beendet das wechseln des Anzeigewerts[/COLOR]
EndFunc [COLOR="orange"]; gibt an, dass die Aufgabe der Funktion “_Change” nur bis hier geht[/COLOR]

While 1[COLOR="orange"] ; startet eine Endlosschleife[/COLOR]
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE [COLOR="orange"]; ff: beauftragt das Programm sich zu beenden, sofern oben rehct das “X” gedrückt wurde[/COLOR]	
		Exit
		case $start [COLOR="orange"]; sagt was beim drücken des Buttons “$start” passiert[/COLOR]	
		winsettitle(guictrlread($Input1),"",GUICtrlRead($Input2))
		case $button[COLOR="orange"] ; sagt was beim drücken des Buttons “$button” passiert[/COLOR]
			winsettitle(guictrlread($Input2),"",GUICtrlRead($Input1))
	EndSwitch
Wend [COLOR="orange"]; beendet die Endlosschleife[/COLOR]

~ Schluss ~

Ihr dürft gerne an meinen Scripts rumbasteln, üben usw,
aber ich möchte hier keine Threads sehen,
in denen meine Scripts mit anderen Namen oder nur knapp verändert erscheinen !

Sobald ich neue Scripts habe (oder ich noch welche auf meinem PC finden sollte),
werde ich sie hier rein editieren.

Ich würde mich sehr über Thanks freuen,
da das ganze eine rießen Arbeit war und ich ja schließlich doch meine Source rausrücke.

Gruß,
’Flow

[°ecstasy°]

Nice Work

[.Eragon]

Klasse scripts
Die Erklärungen find ich auch sehr gut...THX^^

[Norbert8]

ok, ich habe den text von nummer 3 kopiert.

also wie kann ich das kompilieren??
und wie kann ich dann diesen scrip ausführen? also brauch ich dazu einen injector??

FEHLER:
Line 1 (File "C:Users\Norbert\Desktop\Test.exe")

Error: Unable to parse line.