Mehere GUIs in einer datei

IronX

Halloo

allso ich wollte für meine freunde ein prog machen wo sie nur raufklicken müssen damit sie auf eine seite kommen
Dann wollte ein Anderer noch das er ein eigenen GUI bekommt mit Passwortabfrage
Jetzt habe ich alles mal zusammen geschmissen und das prog hängt sich jetzt immer auf
Kann jmd mein Souce mal überarbeiten?

Spoiler anzeigen

[autoit]

; ;
; (c) 2oo7 by IronX ;
; ;
; ;
; ;
; ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include
$parent1= Opt("TrayIconHide", 1)
Opt("GUIOnEventMode", 1)
Opt("RunErrorsFatal", 0)
Opt("TrayMenuMode", 1) ; Traymenü entfernen

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

Global $iMsgBoxAnswer

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

GUICreate("Passwort-Abfrage", 350, 350)

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

$Button_1 = GUICtrlCreateButton ("Pennergame", 120, 30, 100)
GUICtrlSetOnEvent(-1, "_passwort")
$Button_2 = GUICtrlCreateButton ("Exit", 120, 110, 100)
$Button_3 = GUICtrlCreateButton ("Julian Spezial", 120, 70, 100)

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

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_3
GuiCreate("test - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

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

EndSelect
WEnd
Exit

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

GUISetOnEvent($GUI_EVENT_CLOSE, "_schliessen")
GUISetState ()

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

While 1
Sleep(20)
WEnd

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

Func _passwort()

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

Do
$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")

If $passwd = "" Then
Exit
ElseIf $passwd = "1" Then
$parent2= GuiCreate("Tool - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetBkColor (8800000)

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

$Button_1 = GuiCtrlCreateButton("DerPennaMc", 130, 20, 100, 20)
$Button_2 = GuiCtrlCreateButton("vladie", 130, 50, 100,20)
$Button_3 = GuiCtrlCreateButton("PaulVogelsang", 130, 80, 100, 20)
$Button_5 = GuiCtrlCreateButton("Melcom", 130, 110, 100, 20)
$Button_4 = GuiCtrlCreateButton("Exit", 300, 300, 60, 20)
;$Button_6 = GUICtrlCreateButton("Nichtklicken", 150, 140, 60, 20)
$Label_39 = GUICtrlCreateLabel("Admin Tools:", 10, 170, 140, 20)

; $Button_5 = GuiCtrlCreateButton("Connect", 1, 300, 60, 20)

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

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=8248041")
Case $msg = $Button_2
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=1375464")
Case $msg = $Button_3
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=6065144")
Case $msg = $Button_5
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=2419897")
Case $msg = $Button_4
WinKill ( "Tool - by IronX", "")
; Case $msg = $Button_6
;GuiCreate("test - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
;GUISetBkColor (0xFF00FF)

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

;Case $msg = $Button_5
;Run("C:\Programme\Mozilla Firefox\firefox.exe")
;WinWaitActive("Google")
;$oIE = _IECreate ("teamspeak://ultimate-sponsorring.ath.cx:5054")
;Winkill("Google - ")
;Case Else
;;;
EndSelect
WEnd
Exit
Else

$iMsgBoxAnswer = MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!")
EndIf
GuiSetState()
While 2
$msg = GuiGetMsg()
Select
$msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_2
WinKill("Passwort-Abfrage")
EndSelect
Wend 2
Until $iMsgBoxAnswer <> 4
Return $passwd

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

EndFunc
Func _schliessen()
Exit
EndFunc

[/autoit]

</GUIConstants.au3>

Und kann mir jmd sagen wie ich mehere source in eine datei bekomme? dieses $parent1 = kapier ich nicht

Edit BugFix: Bitte Spoiler verwenden!

**BugFix**

Folgende Fehler:
- du deklarierst "OnEvent-Mode", arbeitest aber in Event UND GUIGetMsg -Mode
- Variablennamen sind mehrfach vergeben
- Events sind nicht korrekt zugeordnet

Bring da erst mal Ordnung rein.

**Oscar**

Nur mit Copy und Paste wirst Du Autoit nie lernen.

Fang damit an, die einzelnen Scripte (aus denen Du Dein Script zusammenkopiert hast) zu verstehen. Dann erst solltest Du versuchen sie Schritt für Schritt zu erweitern.

Erwarte nicht, dass wir das für Dich tun.

Um Dir einen ersten Hinweis zu geben: Der OnEvent-Mode und der MsgLoop-Mode ist nicht gleichzeitig erlaubt.

IronX

Sorry hab den spoiler nicht gefunden

Ich weiß es ja selber nicht ... wie soll ich den da ordnung reinbringen?

Allso wäre nett wenn mir jemand das überarbeitet

Turbolocke

in dem du mal die Variablen richtig deklarierst zum Beisspiel^^

Grandpa

Es wäre auch ganz hilfreich, wenn du deinen Code etwas besser strukturierst. Damit meine ich Codezeilen so einrücken, dass man schnell erkennt, welches z.B. Endif zu welchem If gehört, dann löschen von überflüssigen Leerzeilen ...
Wenn man möchte, dass andere deinen Code "überarbeiten", dann wären ein paar Kommentare zum/im Quellcode ganz hilfreich, um deinen Gedankengang schnell nachvollziehen zu können.

[autoit]

; ;
; (c) 2oo7 by IronX ;
; ;
; ;
; ;
; ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include
$parent1= Opt("TrayIconHide", 1)
Opt("GUIOnEventMode", 1)
Opt("RunErrorsFatal", 0)
Opt("TrayMenuMode", 1) ; Traymenü entfernen

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

Global $iMsgBoxAnswer

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

GUICreate("Passwort-Abfrage", 350, 350)

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

$Button_1 = GUICtrlCreateButton ("Pennergame", 120, 30, 100)
GUICtrlSetOnEvent(-1, "_passwort")
$Button_2 = GUICtrlCreateButton ("Exit", 120, 110, 100)
$Button_3 = GUICtrlCreateButton ("Julian Spezial", 120, 70, 100)

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

GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_3
GuiCreate("test - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
EndSelect
WEnd
Exit

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

GUISetOnEvent($GUI_EVENT_CLOSE, "_schliessen")
GUISetState ()

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

While 1
Sleep(20)
WEnd

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

Func _passwort()
Do
$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")
If $passwd = "" Then
Exit
ElseIf $passwd = "1" Then
$parent2= GuiCreate("Tool - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetBkColor (8800000)
$Button_1 = GuiCtrlCreateButton("DerPennaMc", 130, 20, 100, 20)
$Button_2 = GuiCtrlCreateButton("vladie", 130, 50, 100,20)
$Button_3 = GuiCtrlCreateButton("PaulVogelsang", 130, 80, 100, 20)
$Button_5 = GuiCtrlCreateButton("Melcom", 130, 110, 100, 20)
$Button_4 = GuiCtrlCreateButton("Exit", 300, 300, 60, 20)
; $Button_6 = GUICtrlCreateButton("Nichtklicken", 150, 140, 60, 20)
$Label_39 = GUICtrlCreateLabel("Admin Tools:", 10, 170, 140, 20)
; $Button_5 = GuiCtrlCreateButton("Connect", 1, 300, 60, 20)
GuiSetState()
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=8248041")
Case $msg = $Button_2
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=1375464")
Case $msg = $Button_3
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=6065144")
Case $msg = $Button_5
$oIE = _IECreate ("http://www.pennergame.de/ref.php?refid=2419897")
Case $msg = $Button_4
WinKill ( "Tool - by IronX", "")
; Case $msg = $Button_6
; GuiCreate("test - by IronX", 392, 362,(@DesktopWidth-392)/2, (@DesktopHeight-362)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
; GUISetBkColor (0xFF00FF)
; Case $msg = $Button_5
; Run("C:\Programme\Mozilla Firefox\firefox.exe")
; WinWaitActive("Google")
; $oIE = _IECreate ("teamspeak://ultimate-sponsorring.ath.cx:5054")
; Winkill("Google - ")
; Case Else
EndSelect
WEnd
Exit
Else
$iMsgBoxAnswer = MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!")
EndIf
GuiSetState()
While 2
$msg = GuiGetMsg() ;Ich behaupte einfach mal, dass hier ein Case fehlt !!!
Select
$msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_2
WinKill("Passwort-Abfrage")
EndSelect
Wend 2
Until $iMsgBoxAnswer <> 4
Return $passwd
EndFunc

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

Func _schliessen()
Exit
EndFunc

[/autoit]

So sieht für mich Struktur aus.
Und schau dir mal den Kommentar in Zeile 93 an.