Anfänger sucht hilfe!

  • Hallo liebe Community,
    ich habe grade mal ein KLEINES grundwissen über verschiedene scripts und habe nun folgendes problem!
    Mein problem ist ich habe folgenden script im internet Gefunden:

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

    #RequireAdmin

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

    #Region ### START Koda GUI section ### Form=c:\program files\autoit3\forms\entpacker fr.kxf
    $Form1_1 = GUICreate("Metin2 Entpacker ", 256, 269, 371, 189)
    GUISetFont(12, 800, 2, "Narkisim")
    GUISetBkColor(0x00FF00)
    $Button1 = GUICtrlCreateButton("Entpacken", 16, 112, 219, 41, 0)
    $Button2 = GUICtrlCreateButton("Wieder ZsM. packen", 16, 160, 219, 41, 0)
    $Button3 = GUICtrlCreateButton("Anleitung", 16, 208, 219, 41, 0)
    $Label1 = GUICtrlCreateLabel("Copyright by Flasher2 ", 40, 64, 173, 20)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1

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

    $msg=GuiGetMsg()
    If $msg=$Button1 Then button1()
    If $msg=$Button2 Then button2()
    If $msg=$Button3 Then button3()

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

    WEnd

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

    Func button1()
    Run ("cmd")
    Sleep (5000)
    WinActivate ("C:\Windows\sytem32\cmd.exe")
    Sleep (1000)
    Send ("cd C:\FR {ENTER}")
    Sleep (5000)
    Send ("m2 pc_ex.xml {ENTER}")
    EndFunc

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

    Func button2()
    Sleep (5000)
    WinActivate ("C:\Windows\sytem32\cmd.exe")
    Sleep (1000)
    Send ("cd C:\FR {ENTER}")
    Sleep (5000)
    Send ("m2 pc_pack.xml {ENTER}")
    Exit
    EndFunc

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

    Func button3()
    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Forms\Anleitung fpr Entpacker.kxf
    $Form1 = GUICreate("Anleitung :D", 625, 445, 186, 126)
    GUISetFont(12, 800, 2, "Narkisim")
    GUISetBkColor(0x000080)
    $Label1 = GUICtrlCreateLabel("Packt dieses Programm nach C:\", 24, 24, 229, 20)
    $Label3 = GUICtrlCreateLabel("Dann offnet die PC.ex mit notepad ++ und verandert uberall wo PC steht in ", 24, 48, 549, 20)
    $Label9 = GUICtrlCreateLabel("Die datei die ihr entpacken wollt z.b. wenn ich NPC.eix und NPC.epk entpacken", 24, 72, 572, 20)
    $Label4 = GUICtrlCreateLabel("will muss ich PC.. in NPC.. uberall umbennen in der Pc.ex", 24, 96, 416, 20)
    $Label5 = GUICtrlCreateLabel("Dann geht ihr auf entpacken in meinem eintpacker und es erscheiint dann in der ", 24, 120, 579, 20)
    $Label6 = GUICtrlCreateLabel("Sourec->Ymirwork->Euer dateiname ", 24, 144, 264, 20)
    $Label7 = GUICtrlCreateLabel("Dort kont ihr se bearbeiten ausfuhrlicheres tutorial hier :D ", 24, 168, 422, 20)
    $Button5 = GUICtrlCreateButton("Ausführliches Tutorial", 48, 240, 355, 89, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1

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

    $msg=GuiGetMsg()
    If $msg=$Button5 Then button5()

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

    WEnd

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

    EndFunc

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

    Func button5()
    ShellExecute ("http://www.elitepvpers.de/forum/metin2-pserver-guides-strategies/451516-how-sachen-richtig-entpacken-und-packen-mit-screens.html")
    Exit
    EndFunc

    [/autoit]

    Dieser script führt die cmd und über die cmd eine .exe datei aus!
    Das Problem ist folgendes:
    Der Script enthät einen Button "Anleitung" wenn man dort Drauf drückt dann öffnet sich ein neues fenster welches man nicht mit dem "rotne X" oben rechts schliessen kann! Ausserdem bleibt das vorherige fenster wo man "Anleitung" ausgewählt hat offen und man hat somit 2 Fenster offen!

    MEINE FRAGEN:

    1) Wie kann ich dem Script sagen das das fenster wo ich "Anleitung" ausgewählt habe sich schliessen soll wenn sich die "Anleitung" öffnet?

    2) Wie kann ich das "rote X" oben rechts feigeben damit es auswählbar ist??

    3) Ausserdem suche ich ein TuT wie man 2 Dialoge in KodaFormDesigner mit einander verbindet!

    Sollten mir noch fragen einfallen erweitere ich das Theama <img src="wcf/images/smilies/biggrin.png" alt=":D">

    Hoffe ihr könnt mir weiter helfen!

    Mit Freundlichem Gruß Tobias/Girit

    3 Mal editiert, zuletzt von Girit (5. April 2010 um 22:36)

  • Schreib das mal richtig, und setz dich mal mit dem Beitrag schreiben in diesem Forum auseinander :P
    So kann man das Skript ja gar nicht lesen!!!

  • Jo sry hab ich nicht gesehn das das hier etwas andres ist ich hab korrigiert und hoffe es klappt jetz!

  • Ich danke euch für die einweisung wie man dieses forum am besten nutzt :D
    doch jetz möchte ich euch doch bitte nedlcih auf meine probleme Zurück zu kommen :thumbup:

  • Dein GUIDelete() kannst du hier einbauen:

    Spoiler anzeigen
    [autoit]


    #RequireAdmin

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

    #Region ### START Koda GUI section ### Form=c:\program files\autoit3\forms\entpacker fr.kxf
    $Form1_1 = GUICreate("Metin2 Entpacker ", 256, 269, 371, 189)
    GUISetFont(12, 800, 2, "Narkisim")
    GUISetBkColor(0x00FF00)
    $Button1 = GUICtrlCreateButton("Entpacken", 16, 112, 219, 41, 0)
    $Button2 = GUICtrlCreateButton("Wieder ZsM. packen", 16, 160, 219, 41, 0)
    $Button3 = GUICtrlCreateButton("Anleitung", 16, 208, 219, 41, 0)
    $Label1 = GUICtrlCreateLabel("Copyright by Flasher2 ", 40, 64, 173, 20)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1

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

    $msg = GUIGetMsg()
    Switch $msg ; Hier hab ich es geändert
    Case $Button1
    GUIDelete()
    button1()
    Case $Button2
    GUIDelete()
    button2()
    Case $Button3
    GUIDelete()
    button3()
    EndSwitch

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

    WEnd

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

    Func button1()
    Run("cmd")
    Sleep(5000)
    WinActivate("C:\Windows\sytem32\cmd.exe")
    Sleep(1000)
    Send("cd C:\FR {ENTER}")
    Sleep(5000)
    Send("m2 pc_ex.xml {ENTER}")
    EndFunc ;==>button1

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

    Func button2()
    Sleep(5000)
    WinActivate("C:\Windows\sytem32\cmd.exe")
    Sleep(1000)
    Send("cd C:\FR {ENTER}")
    Sleep(5000)
    Send("m2 pc_pack.xml {ENTER}")
    Exit
    EndFunc ;==>button2

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

    Func button3()
    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Forms\Anleitung fpr Entpacker.kxf
    $Form1 = GUICreate("Anleitung :D", 625, 445, 186, 126)
    GUISetFont(12, 800, 2, "Narkisim")
    GUISetBkColor(0x000080)
    $Label1 = GUICtrlCreateLabel("Packt dieses Programm nach C:\", 24, 24, 229, 20)
    $Label3 = GUICtrlCreateLabel("Dann offnet die PC.ex mit notepad ++ und verandert uberall wo PC steht in ", 24, 48, 549, 20)
    $Label9 = GUICtrlCreateLabel("Die datei die ihr entpacken wollt z.b. wenn ich NPC.eix und NPC.epk entpacken", 24, 72, 572, 20)
    $Label4 = GUICtrlCreateLabel("will muss ich PC.. in NPC.. uberall umbennen in der Pc.ex", 24, 96, 416, 20)
    $Label5 = GUICtrlCreateLabel("Dann geht ihr auf entpacken in meinem eintpacker und es erscheiint dann in der ", 24, 120, 579, 20)
    $Label6 = GUICtrlCreateLabel("Sourec->Ymirwork->Euer dateiname ", 24, 144, 264, 20)
    $Label7 = GUICtrlCreateLabel("Dort kont ihr se bearbeiten ausfuhrlicheres tutorial hier :D ", 24, 168, 422, 20)
    $Button5 = GUICtrlCreateButton("Ausführliches Tutorial", 48, 240, 355, 89, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1

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

    $msg = GUIGetMsg()
    If $msg = $Button5 Then button5()

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

    WEnd

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

    EndFunc ;==>button3

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

    Func button5()
    ShellExecute("http://www.elitepvpers.de/forum/metin2-pserver-guides-strategies/451516-how-sachen-richtig-entpacken-und-packen-mit-screens.html")
    Exit
    EndFunc ;==> button5 Funktion hast du nicht geschlossen

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

    EndFunc

    [/autoit]