Problem mit HotKeySet

Alastor

Hallo Leute,

Bitte um Rücksicht, bin noch nicht ganz mit Autoit vertraut, sonst hätte ich das problem wahrscheinlich nicht.[Blockierte Grafik: http://www.autoit.de/wcf/images/smilies/unsure.png]

bin mittlerweile am verzweifeln, kurz der Sachverhalt:

Hab mir ein Script mit einfachen MouseMove- und Mouseclick- Funktionen ertellt.
Das Script ist in einzelne Funktionen unterteilt (Func - Endfunc) und läuft so in einer ewigen schleife.
Weiters hab ich eine Func die mir ein GUI erstellt mit Inputfeldern und ein paar Bottens.
Das GUI wird beim ersten mal ausführen vom Script ausgelöst (funktioniert wunderbar) und wenn ein HotKey gedrückt wird (Funktioniert fast).

Mein problem ist das wenn ich den HotKey drücke erstens die schleife mit den MouseMoves weiterläuft und zweitens das GUI sich nicht bedienen lässt,
sprich die Bottens verlieren ihre Funktion, man kann sie drücken aber das was passieren soll bleibt aus.

Habt ihr vielleicht eine Lösung für mein Problem?

LG Alastor

**Oscar**

Ich dachte ja erst an ein Bot, wegen "Bottens", aber Du meinst vermutlich Buttons.

Deine Hotkeys rufen vermutlich Funktionen auf, in denen Du eine Schleife programmiert hast. Während sich das Programm in dieser Funktion befindet kann somit die MessageLoop-Schleife nicht abgearbeitet und auf einen Buttonklick reagiert werden.
Eventuell könntest Du das Problem mit dem OnEvent-Mode lösen, aber das läßt sich ohne Quellcode nicht mit Sicherheit sagen. Also poste doch mal Dein Script.

Jam00

Also, als erstes, wilkommenm in Forum, und als zweites, warum erklärst du uns was du gemacht hast? Zeig es uns doch einfach
Einfach einen Spoiler machen, und in den Spoiler ein AutoIt-Quellcode machen, und da deinen Code rein machen! guck im edit-feld mal oben in der leiste, das kann man den spoiler machen, und den quellcode!
EDIT:
Oscar
du warst schneller

Alastor

Mein Script ist 4300 zeilen lang, ich denke nicht das sich dort so schnell einer zurecht findet...

Ausserdem möchte ich nicht das es jeder sehen kann, nichts für ungut.

Es so umzuschreiben das man es herzeigen kann würde stunden dauren.

Jam00

Zitat von Alastor

Bitte um Rücksicht, bin noch nicht ganz mit Autoit vertraut, sonst hätte ich das problem wahrscheinlich nicht.

dein script ist 4300 zeilen lang, obwold du noch nicht mit autoit vertraut bist? Und auserdem, wie sollen wir dir helfen wenn wir kein Script haben?

Alastor

ok, kurzer auszug, alle variablen werden im script vorher ausdefiniert und passen

Spoiler anzeigen

HotKeySet ("{b}" , "GUI")
If FileExists ( "C:\config.ini" ) = 1 Then
IniWrite("C:\config.ini", "Variablen", "Belt1leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt2leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt3leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt4leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt5leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt6leer", 0)
Call ("Miner")
Endif

Call ("GUI")

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Func GUI()

#include <GUIConstants.au3>
Global $YesID, $NoID, $ExitID, $msg, $Start

GUICreate ("Configuration", 430, 530)
GUISetState (@SW_SHOW)
;GUI Erstellt!
GUICtrlCreateLabel("Bitte Koordinaten Eingeben", 10, 10)
$Start = GUICtrlCreateButton("Übernemen und AM Starten",60,500,150,20)
$YesID = GUICtrlCreateButton("Übernemen", 210, 500, 70, 20)
$NoID = GUICtrlCreateButton("Verwerfen", 280, 500, 70, 20)
$ExitID = GUICtrlCreateButton("Schliessen", 350, 500, 70, 20)

;Belt 1 Eingabe
$Var1 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Beltkoordinaten", "Beltx", ""), 80, 50, 50)
GUICtrlCreateLabel ( "Belt X", 10, 54 )

$Var2 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Beltkoordinaten", "Belty", ""), 220, 50,50)
GUICtrlCreateLabel ( "Belt Y", 155, 54 )

;Overview Eingabe
$Var3 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Overviewx", ""), 80, 80, 50)
GUICtrlCreateLabel ( "Overview X", 10, 84 )

$Var4 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Overviewy", ""), 220, 80,50)
GUICtrlCreateLabel ( "Overview Y", 155, 84 )

$Var5 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Asteroidx", ""), 80, 110, 50)
GUICtrlCreateLabel ( "Asteroid X", 10, 114 )

$Var6 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Asteroidy", ""), 220, 110,50)
GUICtrlCreateLabel ( "Asteroid Y", 155, 114 )

;Select Eingabe
$Var7 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Selectx", ""), 80, 140, 50)
GUICtrlCreateLabel ( "Select X", 10, 144 )

$Var8 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Selecty", ""), 220, 140,50)
GUICtrlCreateLabel ( "Select Y", 155, 144 )

$Var9 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Cargox", ""), 80, 170, 50)
GUICtrlCreateLabel ( "Cargo X", 10, 174 )

$Var10 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Cargoy", ""), 220, 170,50)
GUICtrlCreateLabel ( "Cargo Y", 155, 174 )

$Var11 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Hangarx", ""), 80, 200, 50)
GUICtrlCreateLabel ( "Hanger X", 10, 204 )

$Var12 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Hangary", ""), 220, 200,50)
GUICtrlCreateLabel ( "Hanger Y", 155, 204 )
;Color Eingabe
$Var13 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizx", ""), 80, 230,50)
GUICtrlCreateLabel ( "Notiz X", 10, 234 )

$Var14 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizy", ""), 220, 230, 50)
GUICtrlCreateLabel ( "Notiz Y", 155, 234 )

$Var15 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizcolor", ""), 340, 230,70)
GUICtrlCreateLabel ( "Farbe", 300, 234 )

$Var16 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedx", ""), 80, 260,50)
GUICtrlCreateLabel ( "Locked X", 10, 264 )

$Var17 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedy", ""), 220, 260, 50)
GUICtrlCreateLabel ( "Locked Y", 155, 264 )

$Var18 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedcolor", ""), 340, 260,70)
GUICtrlCreateLabel ( "Farbe", 300, 264 )

$Var19 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minerx", ""), 80, 290,50)
GUICtrlCreateLabel ( "Miner X", 10, 294 )

$Var20 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minery", ""), 220, 290, 50)
GUICtrlCreateLabel ( "Miner Y", 155, 294 )

$Var21 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minercolor", ""), 340, 290,70)
GUICtrlCreateLabel ( "Farbe", 300, 294 )

$Var22 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infox", ""), 80, 320,50)
GUICtrlCreateLabel ( "Info X", 10, 324 )

$Var23 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infoy", ""), 220, 320, 50)
GUICtrlCreateLabel ( "Info Y", 155, 324 )

$Var24 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infocolor", ""), 340, 320,70)
GUICtrlCreateLabel ( "Farbe", 300, 324 )

$Var25 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Nutzerx", ""), 80, 350,50)
GUICtrlCreateLabel ( "Nutzer X", 10, 354 )

$Var26 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Nutzery", ""), 220, 350, 50)
GUICtrlCreateLabel ( "Nutzer Y", 155, 354 )

$Var27 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Undockx", ""), 80, 380,50)
GUICtrlCreateLabel ( "Undock X", 10, 384 )

$Var28 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Undocky", ""), 220, 380, 50)
GUICtrlCreateLabel ( "Undock Y", 155, 384 )

$Var29 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Characterx", ""), 80, 410,50)
GUICtrlCreateLabel ( "Avatar X", 10, 414 )

$Var30 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Charactery", ""), 220, 410, 50)
GUICtrlCreateLabel ( "Avatar Y", 155, 414 )

$Var31 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Characterpass", ""), 340, 410,70)
GUICtrlCreateLabel ( "Kennung", 285, 414 )

$Var32 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infox", ""), 80, 440,50)
GUICtrlCreateLabel ( "Link X", 10, 444 )

$Var33 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Linky", ""), 220, 440, 50)
GUICtrlCreateLabel ( "Link Y", 155, 444 )

$Var34 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleerx", ""), 80, 470,50)
GUICtrlCreateLabel ( "Cargoleer X", 10, 474 )

$Var35 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleery", ""), 220, 470, 50)
GUICtrlCreateLabel ( "Cargoleer Y", 155, 474 )

$Var36 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleercolor", ""), 340, 470,70)
GUICtrlCreateLabel ( "Farbe", 300, 474 )

Do
$msg = GUIGetMsg()

Select
Case $msg = $YesID
IniWrite("C:\config.ini", "Beltkoordinaten", "Beltx", GUICtrlRead ($Var1))
IniWrite("C:\config.ini", "Beltkoordinaten", "Belty", GUICtrlRead ($Var2))
IniWrite("C:\config.ini", "Overview", "Overviewx", GUICtrlRead ($Var3))
IniWrite("C:\config.ini", "Overview", "Overviewy", GUICtrlRead ($Var4))
IniWrite("C:\config.ini", "Overview", "Asteroidx", GUICtrlRead ($Var5))
IniWrite("C:\config.ini", "Overview", "Asteroidy", GUICtrlRead ($Var6))
IniWrite("C:\config.ini", "Select", "Selectx", GUICtrlRead ($Var7))
IniWrite("C:\config.ini", "Select", "Selecty", GUICtrlRead ($Var8))
IniWrite("C:\config.ini", "Select", "Cargox", GUICtrlRead ($Var9))
IniWrite("C:\config.ini", "Select", "Cargoy", GUICtrlRead ($Var10))
IniWrite("C:\config.ini", "Select", "Hangarx", GUICtrlRead ($Var11))
IniWrite("C:\config.ini", "Select", "Hangary", GUICtrlRead ($Var12))
IniWrite("C:\config.ini", "Color", "Notizx", GUICtrlRead ($Var13))
IniWrite("C:\config.ini", "Color", "Notizy", GUICtrlRead ($Var14))
IniWrite("C:\config.ini", "Color", "Notizcolor", GUICtrlRead ($Var15))
IniWrite("C:\config.ini", "Color", "Lockedx", GUICtrlRead ($Var16))
IniWrite("C:\config.ini", "Color", "Lockedy", GUICtrlRead ($Var17))
IniWrite("C:\config.ini", "Color", "Lockedcolor", GUICtrlRead ($Var18))
IniWrite("C:\config.ini", "Color", "Minerx", GUICtrlRead ($Var19))
IniWrite("C:\config.ini", "Color", "Minery", GUICtrlRead ($Var20))
IniWrite("C:\config.ini", "Color", "Minercolor", GUICtrlRead ($Var21))
IniWrite("C:\config.ini", "Color", "Infox", GUICtrlRead ($Var22))
IniWrite("C:\config.ini", "Color", "Infoy", GUICtrlRead ($Var23))
IniWrite("C:\config.ini", "Color", "Infocolor", GUICtrlRead ($Var24))
IniWrite("C:\config.ini", "Color", "Nutzerx", GUICtrlRead ($Var25))
IniWrite("C:\config.ini", "Color", "Nutzery", GUICtrlRead ($Var26))
IniWrite("C:\config.ini", "Color", "Undockx", GUICtrlRead ($Var27))
IniWrite("C:\config.ini", "Color", "Undocky", GUICtrlRead ($Var28))
IniWrite("C:\config.ini", "Color", "Characterx", GUICtrlRead ($Var29))
IniWrite("C:\config.ini", "Color", "Charactery", GUICtrlRead ($Var30))
IniWrite("C:\config.ini", "Color", "Characterpass", GUICtrlRead ($Var31))
IniWrite("C:\config.ini", "Color", "Linkx", GUICtrlRead ($Var32))
IniWrite("C:\config.ini", "Color", "Linky", GUICtrlRead ($Var33))
IniWrite("C:\config.ini", "Color", "Cargoleerx", GUICtrlRead ($Var34))
IniWrite("C:\config.ini", "Color", "Cargoleery", GUICtrlRead ($Var35))
IniWrite("C:\config.ini", "Color", "Cargoleercolor", GUICtrlRead ($Var36))
Case $msg = $NoID
GUICtrlSetData ( $Var1, "")
GUICtrlSetData ( $Var2, "")
GUICtrlSetData ( $Var3, "")
GUICtrlSetData ( $Var4, "")
GUICtrlSetData ( $Var5, "")
GUICtrlSetData ( $Var6, "")
GUICtrlSetData ( $Var7, "")
GUICtrlSetData ( $Var8, "")
GUICtrlSetData ( $Var9, "")
GUICtrlSetData ( $Var10, "")
GUICtrlSetData ( $Var11, "")
GUICtrlSetData ( $Var12, "")
GUICtrlSetData ( $Var13, "")
GUICtrlSetData ( $Var14, "")
GUICtrlSetData ( $Var15, "")
GUICtrlSetData ( $Var16, "")
GUICtrlSetData ( $Var17, "")
GUICtrlSetData ( $Var18, "")
GUICtrlSetData ( $Var19, "")
GUICtrlSetData ( $Var20, "")
GUICtrlSetData ( $Var21, "")
GUICtrlSetData ( $Var22, "")
GUICtrlSetData ( $Var23, "")
GUICtrlSetData ( $Var24, "")
GUICtrlSetData ( $Var25, "")
GUICtrlSetData ( $Var26, "")
GUICtrlSetData ( $Var27, "")
GUICtrlSetData ( $Var28, "")
GUICtrlSetData ( $Var29, "")
GUICtrlSetData ( $Var30, "")
GUICtrlSetData ( $Var31, "")
GUICtrlSetData ( $Var32, "")
GUICtrlSetData ( $Var33, "")
GUICtrlSetData ( $Var34, "")
GUICtrlSetData ( $Var35, "")
GUICtrlSetData ( $Var36, "")
Case $msg = $Start
IniWrite("C:\config.ini", "Beltkoordinaten", "Beltx", GUICtrlRead ($Var1))
IniWrite("C:\config.ini", "Beltkoordinaten", "Belty", GUICtrlRead ($Var2))
IniWrite("C:\config.ini", "Overview", "Overviewx", GUICtrlRead ($Var3))
IniWrite("C:\config.ini", "Overview", "Overviewy", GUICtrlRead ($Var4))
IniWrite("C:\config.ini", "Overview", "Asteroidx", GUICtrlRead ($Var5))
IniWrite("C:\config.ini", "Overview", "Asteroidy", GUICtrlRead ($Var6))
IniWrite("C:\config.ini", "Select", "Selectx", GUICtrlRead ($Var7))
IniWrite("C:\config.ini", "Select", "Selecty", GUICtrlRead ($Var8))
IniWrite("C:\config.ini", "Select", "Cargox", GUICtrlRead ($Var9))
IniWrite("C:\config.ini", "Select", "Cargoy", GUICtrlRead ($Var10))
IniWrite("C:\config.ini", "Select", "Hangarx", GUICtrlRead ($Var11))
IniWrite("C:\config.ini", "Select", "Hangary", GUICtrlRead ($Var12))
IniWrite("C:\config.ini", "Color", "Notizx", GUICtrlRead ($Var13))
IniWrite("C:\config.ini", "Color", "Notizy", GUICtrlRead ($Var14))
IniWrite("C:\config.ini", "Color", "Notizcolor", GUICtrlRead ($Var15))
IniWrite("C:\config.ini", "Color", "Lockedx", GUICtrlRead ($Var16))
IniWrite("C:\config.ini", "Color", "Lockedy", GUICtrlRead ($Var17))
IniWrite("C:\config.ini", "Color", "Lockedcolor", GUICtrlRead ($Var18))
IniWrite("C:\config.ini", "Color", "Minerx", GUICtrlRead ($Var19))
IniWrite("C:\config.ini", "Color", "Minery", GUICtrlRead ($Var20))
IniWrite("C:\config.ini", "Color", "Minercolor", GUICtrlRead ($Var21))
IniWrite("C:\config.ini", "Color", "Infox", GUICtrlRead ($Var22))
IniWrite("C:\config.ini", "Color", "Infoy", GUICtrlRead ($Var23))
IniWrite("C:\config.ini", "Color", "Infocolor", GUICtrlRead ($Var24))
IniWrite("C:\config.ini", "Color", "Nutzerx", GUICtrlRead ($Var25))
IniWrite("C:\config.ini", "Color", "Nutzery", GUICtrlRead ($Var26))
IniWrite("C:\config.ini", "Color", "Undockx", GUICtrlRead ($Var27))
IniWrite("C:\config.ini", "Color", "Undocky", GUICtrlRead ($Var28))
IniWrite("C:\config.ini", "Color", "Characterx", GUICtrlRead ($Var29))
IniWrite("C:\config.ini", "Color", "Charactery", GUICtrlRead ($Var30))
IniWrite("C:\config.ini", "Color", "Characterpass", GUICtrlRead ($Var31))
IniWrite("C:\config.ini", "Color", "Linkx", GUICtrlRead ($Var32))
IniWrite("C:\config.ini", "Color", "Linky", GUICtrlRead ($Var33))
IniWrite("C:\config.ini", "Color", "Cargoleerx", GUICtrlRead ($Var34))
IniWrite("C:\config.ini", "Color", "Cargoleery", GUICtrlRead ($Var35))
IniWrite("C:\config.ini", "Color", "Cargoleercolor", GUICtrlRead ($Var36))
GUIDelete()
Call ("Vorlauf")
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Schliessen", "Das Konfigurationsprogramm wird beendet")
EndSelect

Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

EndFunc

Func Miner ()

If IniRead("C:\config.ini","Variablen","Belt1leer","NichtGefunden") = 1 Then
Call ("Belt2Undock")
EndIf

If @HOUR = $Uhr Then
sleep (7200000)
Call ("Vorlauf")
EndIf

If PixelGetColor ($Notizx,$Notizy) <> $Notizcolor Then
Call ("Vorlauf")
Endif

MouseMove ($Undockx,$Undocky,$Maus1)
Sleep ($Klickpause)
MouseClick ("left")
Sleep ($Undock)
Call ("Belt1Beltwarpen")
EndFunc

Func Belt1Beltwarpen ()

MouseMove ($Beltx,$Belty,$Maus1)
MouseClick ("right")
MouseMove ($Belt1dx,$Belt1dy,$Maus2)
Sleep ($Pause)
MouseClick ("left")
Sleep ($Warp1)
MouseMove ($Overviewx, $Overviewy, $Maus5)
Sleep ($Klickpause)
Mouseclick ("right")
Sleep ($Pause)
MouseMove ($Overviewdx, $Overviewdy, $Maus1)
Sleep ($Klickpause1)
MouseClick ("left")
Sleep ($Klickpause1)

If @HOUR = $Uhr Then
sleep (7200000)
Call ("Vorlauf")
EndIf

If PixelGetColor ($Notizx,$Notizy) <> $Notizcolor Then
Call ("Vorlauf")
Endif

Call ("Miner")
EndFunc

Jam00

Und wo ist die Func Gui?

Alastor

Zitat von Jam00

dein script ist 4300 zeilen lang, obwold du noch nicht mit autoit vertraut bist? Und auserdem, wie sollen wir dir helfen wenn wir kein Script haben?

Ich beherrsche nicht alle Funktionen aber mit denen die ich beherrsche kann ich 4300 Zeilen füllen.

Alastor

Zitat von Jam00

Und wo ist die Func Gui?

Direkt unter Call GUI

Jam00

Probier mal so, und wenn das nicht geht, musst du wohl mal das ganze script posten!

Spoiler anzeigen

[autoit]

HotKeySet ("{b}" , "GUI")
If FileExists ( "C:\config.ini" ) = 1 Then
IniWrite("C:\config.ini", "Variablen", "Belt1leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt2leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt3leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt4leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt5leer", 0)
IniWrite("C:\config.ini", "Variablen", "Belt6leer", 0)
Call ("Miner")
Endif

[/autoit] [autoit][/autoit] [autoit]

Call ("GUI")

[/autoit] [autoit][/autoit] [autoit]

;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func GUI()
ExitLoop
#include <GUIConstants.au3>
Global $YesID, $NoID, $ExitID, $msg, $Start

[/autoit] [autoit][/autoit] [autoit]

GUICreate ("Configuration", 430, 530)
GUISetState (@SW_SHOW)
;GUI Erstellt!
GUICtrlCreateLabel("Bitte Koordinaten Eingeben", 10, 10)
$Start = GUICtrlCreateButton("Übernemen und AM Starten",60,500,150,20)
$YesID = GUICtrlCreateButton("Übernemen", 210, 500, 70, 20)
$NoID = GUICtrlCreateButton("Verwerfen", 280, 500, 70, 20)
$ExitID = GUICtrlCreateButton("Schliessen", 350, 500, 70, 20)

[/autoit] [autoit][/autoit] [autoit]

;Belt 1 Eingabe
$Var1 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Beltkoordinaten", "Beltx", ""), 80, 50, 50)
GUICtrlCreateLabel ( "Belt X", 10, 54 )

[/autoit] [autoit][/autoit] [autoit]

$Var2 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Beltkoordinaten", "Belty", ""), 220, 50,50)
GUICtrlCreateLabel ( "Belt Y", 155, 54 )

[/autoit] [autoit][/autoit] [autoit]

;Overview Eingabe
$Var3 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Overviewx", ""), 80, 80, 50)
GUICtrlCreateLabel ( "Overview X", 10, 84 )

[/autoit] [autoit][/autoit] [autoit]

$Var4 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Overviewy", ""), 220, 80,50)
GUICtrlCreateLabel ( "Overview Y", 155, 84 )

[/autoit] [autoit][/autoit] [autoit]

$Var5 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Asteroidx", ""), 80, 110, 50)
GUICtrlCreateLabel ( "Asteroid X", 10, 114 )

[/autoit] [autoit][/autoit] [autoit]

$Var6 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Overview", "Asteroidy", ""), 220, 110,50)
GUICtrlCreateLabel ( "Asteroid Y", 155, 114 )

[/autoit] [autoit][/autoit] [autoit]

;Select Eingabe
$Var7 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Selectx", ""), 80, 140, 50)
GUICtrlCreateLabel ( "Select X", 10, 144 )

[/autoit] [autoit][/autoit] [autoit]

$Var8 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Selecty", ""), 220, 140,50)
GUICtrlCreateLabel ( "Select Y", 155, 144 )

[/autoit] [autoit][/autoit] [autoit]

$Var9 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Cargox", ""), 80, 170, 50)
GUICtrlCreateLabel ( "Cargo X", 10, 174 )

[/autoit] [autoit][/autoit] [autoit]

$Var10 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Cargoy", ""), 220, 170,50)
GUICtrlCreateLabel ( "Cargo Y", 155, 174 )

[/autoit] [autoit][/autoit] [autoit]

$Var11 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Hangarx", ""), 80, 200, 50)
GUICtrlCreateLabel ( "Hanger X", 10, 204 )

[/autoit] [autoit][/autoit] [autoit]

$Var12 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Select", "Hangary", ""), 220, 200,50)
GUICtrlCreateLabel ( "Hanger Y", 155, 204 )
;Color Eingabe
$Var13 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizx", ""), 80, 230,50)
GUICtrlCreateLabel ( "Notiz X", 10, 234 )

[/autoit] [autoit][/autoit] [autoit]

$Var14 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizy", ""), 220, 230, 50)
GUICtrlCreateLabel ( "Notiz Y", 155, 234 )

[/autoit] [autoit][/autoit] [autoit]

$Var15 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Notizcolor", ""), 340, 230,70)
GUICtrlCreateLabel ( "Farbe", 300, 234 )

[/autoit] [autoit][/autoit] [autoit]

$Var16 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedx", ""), 80, 260,50)
GUICtrlCreateLabel ( "Locked X", 10, 264 )

[/autoit] [autoit][/autoit] [autoit]

$Var17 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedy", ""), 220, 260, 50)
GUICtrlCreateLabel ( "Locked Y", 155, 264 )

[/autoit] [autoit][/autoit] [autoit]

$Var18 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Lockedcolor", ""), 340, 260,70)
GUICtrlCreateLabel ( "Farbe", 300, 264 )

[/autoit] [autoit][/autoit] [autoit]

$Var19 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minerx", ""), 80, 290,50)
GUICtrlCreateLabel ( "Miner X", 10, 294 )

[/autoit] [autoit][/autoit] [autoit]

$Var20 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minery", ""), 220, 290, 50)
GUICtrlCreateLabel ( "Miner Y", 155, 294 )

[/autoit] [autoit][/autoit] [autoit]

$Var21 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Minercolor", ""), 340, 290,70)
GUICtrlCreateLabel ( "Farbe", 300, 294 )

[/autoit] [autoit][/autoit] [autoit]

$Var22 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infox", ""), 80, 320,50)
GUICtrlCreateLabel ( "Info X", 10, 324 )

[/autoit] [autoit][/autoit] [autoit]

$Var23 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infoy", ""), 220, 320, 50)
GUICtrlCreateLabel ( "Info Y", 155, 324 )

[/autoit] [autoit][/autoit] [autoit]

$Var24 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infocolor", ""), 340, 320,70)
GUICtrlCreateLabel ( "Farbe", 300, 324 )

[/autoit] [autoit][/autoit] [autoit]

$Var25 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Nutzerx", ""), 80, 350,50)
GUICtrlCreateLabel ( "Nutzer X", 10, 354 )

[/autoit] [autoit][/autoit] [autoit]

$Var26 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Nutzery", ""), 220, 350, 50)
GUICtrlCreateLabel ( "Nutzer Y", 155, 354 )

[/autoit] [autoit][/autoit] [autoit]

$Var27 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Undockx", ""), 80, 380,50)
GUICtrlCreateLabel ( "Undock X", 10, 384 )

[/autoit] [autoit][/autoit] [autoit]

$Var28 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Undocky", ""), 220, 380, 50)
GUICtrlCreateLabel ( "Undock Y", 155, 384 )

[/autoit] [autoit][/autoit] [autoit]

$Var29 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Characterx", ""), 80, 410,50)
GUICtrlCreateLabel ( "Avatar X", 10, 414 )

[/autoit] [autoit][/autoit] [autoit]

$Var30 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Charactery", ""), 220, 410, 50)
GUICtrlCreateLabel ( "Avatar Y", 155, 414 )

[/autoit] [autoit][/autoit] [autoit]

$Var31 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Characterpass", ""), 340, 410,70)
GUICtrlCreateLabel ( "Kennung", 285, 414 )

[/autoit] [autoit][/autoit] [autoit]

$Var32 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Infox", ""), 80, 440,50)
GUICtrlCreateLabel ( "Link X", 10, 444 )

[/autoit] [autoit][/autoit] [autoit]

$Var33 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Linky", ""), 220, 440, 50)
GUICtrlCreateLabel ( "Link Y", 155, 444 )

[/autoit] [autoit][/autoit] [autoit]

$Var34 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleerx", ""), 80, 470,50)
GUICtrlCreateLabel ( "Cargoleer X", 10, 474 )

[/autoit] [autoit][/autoit] [autoit]

$Var35 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleery", ""), 220, 470, 50)
GUICtrlCreateLabel ( "Cargoleer Y", 155, 474 )

[/autoit] [autoit][/autoit] [autoit]

$Var36 = GUICtrlCreateInput ( IniRead("C:\config.ini", "Color", "Cargoleercolor", ""), 340, 470,70)
GUICtrlCreateLabel ( "Farbe", 300, 474 )

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Do
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Select
Case $msg = $YesID
IniWrite("C:\config.ini", "Beltkoordinaten", "Beltx", GUICtrlRead ($Var1))
IniWrite("C:\config.ini", "Beltkoordinaten", "Belty", GUICtrlRead ($Var2))
IniWrite("C:\config.ini", "Overview", "Overviewx", GUICtrlRead ($Var3))
IniWrite("C:\config.ini", "Overview", "Overviewy", GUICtrlRead ($Var4))
IniWrite("C:\config.ini", "Overview", "Asteroidx", GUICtrlRead ($Var5))
IniWrite("C:\config.ini", "Overview", "Asteroidy", GUICtrlRead ($Var6))
IniWrite("C:\config.ini", "Select", "Selectx", GUICtrlRead ($Var7))
IniWrite("C:\config.ini", "Select", "Selecty", GUICtrlRead ($Var8))
IniWrite("C:\config.ini", "Select", "Cargox", GUICtrlRead ($Var9))
IniWrite("C:\config.ini", "Select", "Cargoy", GUICtrlRead ($Var10))
IniWrite("C:\config.ini", "Select", "Hangarx", GUICtrlRead ($Var11))
IniWrite("C:\config.ini", "Select", "Hangary", GUICtrlRead ($Var12))
IniWrite("C:\config.ini", "Color", "Notizx", GUICtrlRead ($Var13))
IniWrite("C:\config.ini", "Color", "Notizy", GUICtrlRead ($Var14))
IniWrite("C:\config.ini", "Color", "Notizcolor", GUICtrlRead ($Var15))
IniWrite("C:\config.ini", "Color", "Lockedx", GUICtrlRead ($Var16))
IniWrite("C:\config.ini", "Color", "Lockedy", GUICtrlRead ($Var17))
IniWrite("C:\config.ini", "Color", "Lockedcolor", GUICtrlRead ($Var18))
IniWrite("C:\config.ini", "Color", "Minerx", GUICtrlRead ($Var19))
IniWrite("C:\config.ini", "Color", "Minery", GUICtrlRead ($Var20))
IniWrite("C:\config.ini", "Color", "Minercolor", GUICtrlRead ($Var21))
IniWrite("C:\config.ini", "Color", "Infox", GUICtrlRead ($Var22))
IniWrite("C:\config.ini", "Color", "Infoy", GUICtrlRead ($Var23))
IniWrite("C:\config.ini", "Color", "Infocolor", GUICtrlRead ($Var24))
IniWrite("C:\config.ini", "Color", "Nutzerx", GUICtrlRead ($Var25))
IniWrite("C:\config.ini", "Color", "Nutzery", GUICtrlRead ($Var26))
IniWrite("C:\config.ini", "Color", "Undockx", GUICtrlRead ($Var27))
IniWrite("C:\config.ini", "Color", "Undocky", GUICtrlRead ($Var28))
IniWrite("C:\config.ini", "Color", "Characterx", GUICtrlRead ($Var29))
IniWrite("C:\config.ini", "Color", "Charactery", GUICtrlRead ($Var30))
IniWrite("C:\config.ini", "Color", "Characterpass", GUICtrlRead ($Var31))
IniWrite("C:\config.ini", "Color", "Linkx", GUICtrlRead ($Var32))
IniWrite("C:\config.ini", "Color", "Linky", GUICtrlRead ($Var33))
IniWrite("C:\config.ini", "Color", "Cargoleerx", GUICtrlRead ($Var34))
IniWrite("C:\config.ini", "Color", "Cargoleery", GUICtrlRead ($Var35))
IniWrite("C:\config.ini", "Color", "Cargoleercolor", GUICtrlRead ($Var36))
Case $msg = $NoID
GUICtrlSetData ( $Var1, "")
GUICtrlSetData ( $Var2, "")
GUICtrlSetData ( $Var3, "")
GUICtrlSetData ( $Var4, "")
GUICtrlSetData ( $Var5, "")
GUICtrlSetData ( $Var6, "")
GUICtrlSetData ( $Var7, "")
GUICtrlSetData ( $Var8, "")
GUICtrlSetData ( $Var9, "")
GUICtrlSetData ( $Var10, "")
GUICtrlSetData ( $Var11, "")
GUICtrlSetData ( $Var12, "")
GUICtrlSetData ( $Var13, "")
GUICtrlSetData ( $Var14, "")
GUICtrlSetData ( $Var15, "")
GUICtrlSetData ( $Var16, "")
GUICtrlSetData ( $Var17, "")
GUICtrlSetData ( $Var18, "")
GUICtrlSetData ( $Var19, "")
GUICtrlSetData ( $Var20, "")
GUICtrlSetData ( $Var21, "")
GUICtrlSetData ( $Var22, "")
GUICtrlSetData ( $Var23, "")
GUICtrlSetData ( $Var24, "")
GUICtrlSetData ( $Var25, "")
GUICtrlSetData ( $Var26, "")
GUICtrlSetData ( $Var27, "")
GUICtrlSetData ( $Var28, "")
GUICtrlSetData ( $Var29, "")
GUICtrlSetData ( $Var30, "")
GUICtrlSetData ( $Var31, "")
GUICtrlSetData ( $Var32, "")
GUICtrlSetData ( $Var33, "")
GUICtrlSetData ( $Var34, "")
GUICtrlSetData ( $Var35, "")
GUICtrlSetData ( $Var36, "")
Case $msg = $Start
IniWrite("C:\config.ini", "Beltkoordinaten", "Beltx", GUICtrlRead ($Var1))
IniWrite("C:\config.ini", "Beltkoordinaten", "Belty", GUICtrlRead ($Var2))
IniWrite("C:\config.ini", "Overview", "Overviewx", GUICtrlRead ($Var3))
IniWrite("C:\config.ini", "Overview", "Overviewy", GUICtrlRead ($Var4))
IniWrite("C:\config.ini", "Overview", "Asteroidx", GUICtrlRead ($Var5))
IniWrite("C:\config.ini", "Overview", "Asteroidy", GUICtrlRead ($Var6))
IniWrite("C:\config.ini", "Select", "Selectx", GUICtrlRead ($Var7))
IniWrite("C:\config.ini", "Select", "Selecty", GUICtrlRead ($Var8))
IniWrite("C:\config.ini", "Select", "Cargox", GUICtrlRead ($Var9))
IniWrite("C:\config.ini", "Select", "Cargoy", GUICtrlRead ($Var10))
IniWrite("C:\config.ini", "Select", "Hangarx", GUICtrlRead ($Var11))
IniWrite("C:\config.ini", "Select", "Hangary", GUICtrlRead ($Var12))
IniWrite("C:\config.ini", "Color", "Notizx", GUICtrlRead ($Var13))
IniWrite("C:\config.ini", "Color", "Notizy", GUICtrlRead ($Var14))
IniWrite("C:\config.ini", "Color", "Notizcolor", GUICtrlRead ($Var15))
IniWrite("C:\config.ini", "Color", "Lockedx", GUICtrlRead ($Var16))
IniWrite("C:\config.ini", "Color", "Lockedy", GUICtrlRead ($Var17))
IniWrite("C:\config.ini", "Color", "Lockedcolor", GUICtrlRead ($Var18))
IniWrite("C:\config.ini", "Color", "Minerx", GUICtrlRead ($Var19))
IniWrite("C:\config.ini", "Color", "Minery", GUICtrlRead ($Var20))
IniWrite("C:\config.ini", "Color", "Minercolor", GUICtrlRead ($Var21))
IniWrite("C:\config.ini", "Color", "Infox", GUICtrlRead ($Var22))
IniWrite("C:\config.ini", "Color", "Infoy", GUICtrlRead ($Var23))
IniWrite("C:\config.ini", "Color", "Infocolor", GUICtrlRead ($Var24))
IniWrite("C:\config.ini", "Color", "Nutzerx", GUICtrlRead ($Var25))
IniWrite("C:\config.ini", "Color", "Nutzery", GUICtrlRead ($Var26))
IniWrite("C:\config.ini", "Color", "Undockx", GUICtrlRead ($Var27))
IniWrite("C:\config.ini", "Color", "Undocky", GUICtrlRead ($Var28))
IniWrite("C:\config.ini", "Color", "Characterx", GUICtrlRead ($Var29))
IniWrite("C:\config.ini", "Color", "Charactery", GUICtrlRead ($Var30))
IniWrite("C:\config.ini", "Color", "Characterpass", GUICtrlRead ($Var31))
IniWrite("C:\config.ini", "Color", "Linkx", GUICtrlRead ($Var32))
IniWrite("C:\config.ini", "Color", "Linky", GUICtrlRead ($Var33))
IniWrite("C:\config.ini", "Color", "Cargoleerx", GUICtrlRead ($Var34))
IniWrite("C:\config.ini", "Color", "Cargoleery", GUICtrlRead ($Var35))
IniWrite("C:\config.ini", "Color", "Cargoleercolor", GUICtrlRead ($Var36))
GUIDelete()
Call ("Vorlauf")
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Schliessen", "Das Konfigurationsprogramm wird beendet")
EndSelect

[/autoit] [autoit][/autoit] [autoit]

Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Miner ()

[/autoit] [autoit][/autoit] [autoit]

If IniRead("C:\config.ini","Variablen","Belt1leer","NichtGefunden") = 1 Then
Call ("Belt2Undock")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If @HOUR = $Uhr Then
sleep (7200000)
Call ("Vorlauf")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If PixelGetColor ($Notizx,$Notizy) <> $Notizcolor Then
Call ("Vorlauf")
Endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

MouseMove ($Undockx,$Undocky,$Maus1)
Sleep ($Klickpause)
MouseClick ("left")
Sleep ($Undock)
Call ("Belt1Beltwarpen")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Belt1Beltwarpen ()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

MouseMove ($Beltx,$Belty,$Maus1)
MouseClick ("right")
MouseMove ($Belt1dx,$Belt1dy,$Maus2)
Sleep ($Pause)
MouseClick ("left")
Sleep ($Warp1)
MouseMove ($Overviewx, $Overviewy, $Maus5)
Sleep ($Klickpause)
Mouseclick ("right")
Sleep ($Pause)
MouseMove ($Overviewdx, $Overviewdy, $Maus1)
Sleep ($Klickpause1)
MouseClick ("left")
Sleep ($Klickpause1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If @HOUR = $Uhr Then
sleep (7200000)
Call ("Vorlauf")
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If PixelGetColor ($Notizx,$Notizy) <> $Notizcolor Then
Call ("Vorlauf")
Endif

[/autoit] [autoit][/autoit] [autoit]

Call ("Miner")
EndFunc

[/autoit]

Alastor

Leider nicht alles was ich bekomme ist diese meldung

"ExitLoop/ContinueLoop" statements only valid from inside a For/Do/While loop.:
ExitLoop
?????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????Œ

Kann ich dir das script persönlich schicken?

**Oscar**

Entschuldige, dass ich das so deutlich sage, aber das Script ist eine Katastrophe: :pinch:

- Durch den Einsatz von Arrays ließe sich schätzungsweise 80% des Codes einsparen.
- Die Inidatei wird zum speichern der Daten benutzt. Warum nicht einfach Variablen verwenden?
- Funktionen werden als GOTO-Befehl missbraucht (rekursive Aufrufe ohne Rücksprung)
- Sleep-Befehle blockieren die GUI-Elemente

...und das nur von dem kurzen Auszug Deines Scripts.

Das ist wirklich nicht böse gemeint, aber Du solltest erstmal die Grundlagen des Programmierens lernen.
Dieses Script wird, so wie es momentan ist, nicht lange fehlerfrei laufen. Sorry, für diese harte Kritik...

Alastor

Zitat von Oscar

Entschuldige, dass ich das so deutlich sage, aber das Script ist eine Katastrophe: :pinch:

- Durch den Einsatz von Arrays ließe sich schätzungsweise 80% des Codes einsparen.
- Die Inidatei wird zum speichern der Daten benutzt. Warum nicht einfach Variablen verwenden?
- Funktionen werden als GOTO-Befehl missbraucht (rekursive Aufrufe ohne Rücksprung)
- Sleep-Befehle blockieren die GUI-Elemente

...und das nur von dem kurzen Auszug Deines Scripts.

Das ist wirklich nicht böse gemeint, aber Du solltest erstmal die Grundlagen des Programmierens lernen.
Dieses Script wird, so wie es momentan ist, nicht lange fehlerfrei laufen. Sorry, für diese harte Kritik...

Hallo Oscar.
Danke für deinen Input, sowas in der Richtung hab ich mir schon gedacht.
Ich kenne mich dafür einfach nicht genug aus, da ich nimanden habe der es mir bei bringt oder mir Beispiele zeigt.
Dadurch kann ich nur probieren und schauen wie ich das bewerkstelligen kann was ich brauche.

Die InIdatei brauche ich als dauerhaften Speicher, Variablen werden einmal definiert, im Ini gespeichert und können dort auch wieder ausgelesen werden.
So muss ich nicht gleich das ganze script ändern wenn sich meine Koordinaten ändern oder ich das Programm jemandem weiter gebe.
Ich habs auch schon mit FileWrite oder FileWriteLine probiert hat aber nicht so ganz funktioniert.

Die Funktionen wollte ich eigentlich auch nicht dafür missbrauchen aber wie ich gelesen habe gibt es den Befehl GOTO in der Version 3.3 nicht mehr, warum auch immer.

Ich hab nochmal in GUI nachgewassert aber ich hab keinen Sleep-Befehl gefunden??? Wo ist das genau? ?

Ich hab mir auch die Deutsche Hilfe-Datei reingezogen und auch Arrays gefunden aber nicht begriffen wie die zu benutzen sind.
Nichts lauffähiges dabei raus gekommen.

Ich wäre für jeden Tipp und Vorschlag deinerseits, von euch allen, Dankbar.

Bin nicht böse wegen der Kritik, Du hast ja auch recht damit.

latemail

also vielleicht ein Beispiel zum Array (nur auf die Schnelle, da könnte man noch mehr machen, z.B. die Positionen der Inputs aus dem Index berechnen, dann wird es noch kürzer):

Spoiler anzeigen

[autoit]

Global $file = "C:\config.ini"
Global $anzahl = 20+1 ; Array zählt von 0 bis Max
GLOBAL $section[$anzahl], $key[$anzahl], $val[$anzahl]

[/autoit] [autoit][/autoit] [autoit]

;Einlesen der Werte
For $i = 1 to $anzahl
$val($i) = IniRead($file, $section($i), $key($i))
Next

[/autoit] [autoit][/autoit] [autoit]

; SCRIPT
; SCRIPT
; SCRIPT
; SCRIPT

[/autoit] [autoit][/autoit] [autoit]

;Belt 1 Eingabe
$Var1 = GUICtrlCreateInput ($val(1), 80, 50, 50)
GUICtrlCreateLabel ( $key(1), 10, 54 )

[/autoit] [autoit][/autoit] [autoit]

; SCRIPT
; SCRIPT
; SCRIPT
; SCRIPT

[/autoit] [autoit][/autoit] [autoit]

Case $msg = $Start
For $i = 1 to $anzahl
IniWrite($file, $section($i), $key($i), GUICtrlRead ($Var($i)))
Next
GUIDelete()
Call ("Vorlauf")
Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Schliessen", "Das Konfigurationsprogramm wird beendet")
EndSelect

[/autoit] [autoit][/autoit] [autoit]

; SCRIPT
; SCRIPT
; SCRIPT
; SCRIPT

[/autoit]