Da die überschrift so ziemlich alles und nichts sagt bescheibe ich es nocheinmal genauer:
Ich habe eine Gui wo ein Button mit der Funktion vorhanden ist welches eine weitere Gui öffnet wo ich weitere Optionen zur verfügung habe.
In dieser neuen Gui ist ein button welcher diese neu erstellte Gui schließen soll, aber sobald ich auf den button klicke schliesst sich das komplette programm.
Anbei der Quellcode und ich hoffe man kann mir helfen
[autoit]#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
Opt("GuiOnEventMode",1)
$mainwindow = GUICreate("Silkroad Starter",400,500)
GUISetOnEvent($GUI_EVENT_CLOSE, "Schliessen")
$pfad = GUICtrlCreateInput("",20,190,300,20)
$acc = GUICtrlCreateInput("",20,250,300,20)
$pass = GUICtrlCreateInput("",20,310,300,20,0x0020)
$pot = GUICtrlCreateInput ("NUR ECSRO!",20,130,300,20)
GUICtrlCreateLabel("Bitte ECSRO Autopot pfad angeben:", 20,105)
GUICtrlCreateLabel("Bitte Silkroad Pfad angeben:",20,165)
GUICtrlCreateLabel("Bitte Accountnamen angeben:",20,225)
GUICtrlCreateLabel("Bitte Passwort angeben:",20,285)
GUICtrlCreateLabel("Coded by TheBigX",2,487)
$start = GUICtrlCreateButton("Start",290,360,90,40)
GUICtrlSetOnEvent($start,"Start")
$exit = GUICtrlCreateButton ("Starter Schließen",290,400,90,40)
GUICtrlSetOnEvent ($exit,"Schliessen")
$hilfe = GUICtrlCreateButton ("Hilfe ich weiss nicht was ich da eintippen soll",50,1,300,30)
GUICtrlSetOnEvent($hilfe,"hilfe")
$hide = GUICtrlCreateButton ("Client Verstecken",290,440,90,20)
GUICtrlSetOnEvent ($hide,"hide")
$show = GUICtrlCreateButton ("Client Zeigen",290,460,90,20)
GUICtrlSetOnEvent ($show,"show")
$otherctrl = GUICtrlCreateButton ("Weitere Optionen",155,480,90,21)
GUICtrlSetOnEvent ($otherctrl,"other")
$save = GUICtrlCreateButton("Char1 Speichern",20,360,90,30)
GUICtrlSetOnEvent($save,"save")
$load = GUICtrlCreateButton("Char1 Laden",155,360,90,30)
GUICtrlSetOnEvent($load,"load")
$save2 = GUICtrlCreateButton("Char2 Speichern",20,390,90,30)
GUICtrlSetOnEvent($save2,"save2")
$load2 = GUICtrlCreateButton("Char2 Laden",155,390,90,30)
GUICtrlSetOnEvent($load2,"load2")
$save3 = GUICtrlCreateButton("Char3 Speichern",20,420,90,30)
GUICtrlSetOnEvent($save3,"save3")
$load3 = GUICtrlCreateButton("Char3 Laden",155,420,90,30)
GUICtrlSetOnEvent($load3,"load3")
$save4 = GUICtrlCreateButton("Char4 Speichern",20,450,90,30)
GUICtrlSetOnEvent($save4,"save4")
$load4 = GUICtrlCreateButton("Char4 Laden",155,450,90,30)
GUICtrlSetOnEvent($load4,"load4")
$srohp = GUICtrlCreateButton("Zur Silkroadonline Homepage",50,31,150,30)
guictrlsetonevent ($srohp,"HP")
$banlist = GUICtrlCreateButton("Zur Wöchentlichen Banliste",200,31,150,30)
GUICtrlSetOnEvent ($banlist,"ban")
$forum = Guictrlcreatebutton ("Zum Silkroadonline.de Forum",50,61,300,30)
GUICtrlSetOnEvent ($forum,"forum")
GUISetState(@SW_Show)
While 1
sleep(1000)
WEnd
Func other ()
Opt("GuiOnEventMode",1)
$secondwindow = GUICreate ("Mehr Optionen",400,200)
GUISetOnEvent($GUI_EVENT_CLOSE, "Schliessen")
$exit2 = GUICtrlCreateButton ("Fenster Schliessen",150,160,90,20)
GUICtrlSetOnEvent ($exit2,"Optionenende")
GUISetState(@SW_Show)
While 0
sleep(1000)
WEnd
EndFunc
Func hide ()
$handle = WinGetHandle ("[CLASS:CLIENT]")
WinSetState ($handle,"",@SW_HIDE)
EndFunc
Func show ()
$handle = WinGetHandle ("[CLASS:CLIENT]")
WinSetState ($handle,"",@SW_SHOW)
EndFunc
Func Schliessen()
Exit
EndFunc
Func Optionenende()
WinClose ( "Mehr Optionen" )
EndFunc
Func hilfe ()
MsgBox (64, "Hilfe", "ECSRO Autopot: Gib den Ort an wo die autopot.exe für ECSRO liegt (z.b. C:\Programme\ECSRO\autopot.exe) !Dabei IMMER die autopot.exe mit eintippen!")
MsgBox (64, "Hilfe", "Silkroad Pfad: Gib den Ort an wo die silkroad.exe (um den loader zu benutzen die Loader.exe) liegt (z.b. C:\Programme\Silkroad\silkroad.exe oder loader.exe) !Dabei IMMER die silkroad.exe /Loader.exe miteintippen!")
EndFunc
Func HP ()
$oIE = _IECreate ("www.silkroadonline.net")
EndFunc
[/autoit][autoit][/autoit][autoit]Func ban ()
$oIE = _IECreate ("http://www.joymax.com/silkroad/Silkroad_Front.jmx?workURL=http://silkroadcp.joymax.com/notarget/punishment/punishment_list.asp?")
EndFunc
[/autoit][autoit][/autoit][autoit]Func forum ()
$oIE = _IECreate ("http://www.silkroadonline.de/")
EndFunc
[/autoit][autoit][/autoit][autoit]Func Start()
GUICtrlRead($pfad)
$pass = GUICtrlRead($pass)
$acc = GUICtrlRead($acc)
Run (GUICtrlRead($pfad))
Sleep(10000)
$handle = WinGetHandle ("[CLASS:CLIENT]")
Controlsend ($handle,"","Edit1","{TAB},{TAB}")
Sleep(200)
ControlSend ($handle,"","Edit1",$acc)
Sleep(150)
Controlsend ($handle,"","Edit1","{TAB}")
ControlSend ($handle,"","Edit1",$pass)
Sleep(1000)
ControlSend ($handle,"","Edit1","{ENTER}")
Run (GuiCtrlRead($pot))
EndFunc
Func save ()
IniWrite("settings.ini","char1","Acc-name",GUICtrlRead($acc))
Iniwrite("settings.ini","char1","Silkroadordner",GUICtrlRead($pfad))
Iniwrite("settings.ini","char1","Autopotter",GUICtrlRead($pot))
Iniwrite("settings.ini","char1","Passwort", GuiCtrlRead($pass))
EndFunc
Func load()
$1=IniRead("settings.ini","char1","Silkroadordner",GUICtrlRead($pfad))
$2=IniRead("settings.ini","char1","Acc-name", GUICtrlRead($acc))
$3=IniRead("settings.ini","char1","Autopotter", GUICtrlRead($pot))
$4=Iniread("settings.ini","char1","Passwort", GuiCtrlRead($pass))
GUICtrlSetData($pfad,$1)
GUICtrlSetData($acc,$2)
GUICtrlSetData($pot,$3)
GuiCtrlSetData($pass,$4)
EndFunc
Func save2 ()
IniWrite("settings.ini","char2","Acc-name",GUICtrlRead($acc))
Iniwrite("settings.ini","char2","Silkroadordner",GUICtrlRead($pfad))
Iniwrite("settings.ini","char2","Autopotter",GUICtrlRead($pot))
Iniwrite("settings.ini","char2","Passwort",GuiCtrlRead($pass))
EndFunc
Func load2()
$1=IniRead("settings.ini","char2","Silkroadordner",GUICtrlRead($pfad))
$2=IniRead("settings.ini","char2","Acc-name", GUICtrlRead($acc))
$3=IniRead("settings.ini","char2","Autopotter", GUICtrlRead($pot))
$4=Iniread("settings.ini","char2","Passwort", GuiCtrlRead($pass))
GUICtrlSetData($pfad,$1)
GUICtrlSetData($acc,$2)
GUICtrlSetData($pot,$3)
GuiCtrlSetData($pass,$4)
EndFunc
Func save3 ()
IniWrite("settings.ini","char3","Acc-name",GUICtrlRead($acc))
Iniwrite("settings.ini","char3","Silkroadordner",GUICtrlRead($pfad))
Iniwrite("settings.ini","char3","Autopotter",GUICtrlRead($pot))
Iniwrite("settings.ini","char3","Passwort", GuiCtrlRead($pass))
EndFunc
Func load3()
$1=IniRead("settings.ini","char3","Silkroadordner",GUICtrlRead($pfad))
$2=IniRead("settings.ini","char3","Acc-name", GUICtrlRead($acc))
$3=IniRead("settings.ini","char3","Autopotter", GUICtrlRead($pot))
$4=Iniread("settings.ini","char3","Passwort", GuiCtrlRead($pass))
GUICtrlSetData($pfad,$1)
GUICtrlSetData($acc,$2)
GUICtrlSetData($pot,$3)
GuiCtrlSetData($pass,$4)
EndFunc
Func save4 ()
IniWrite("settings.ini","char4","Acc-name",GUICtrlRead($acc))
Iniwrite("settings.ini","char4","Silkroadordner",GUICtrlRead($pfad))
Iniwrite("settings.ini","char4","Autopotter",GUICtrlRead($pot))
Iniwrite("settings.ini","char4","Passwort", GuiCtrlRead($pass))
EndFunc
Func load4()
$1=IniRead("settings.ini","char4","Silkroadordner",GUICtrlRead($pfad))
$2=IniRead("settings.ini","char4","Acc-name", GUICtrlRead($acc))
$3=IniRead("settings.ini","char4","Autopotter", GUICtrlRead($pot))
$4=Iniread("settings.ini","char4","Passwort", GuiCtrlRead($pass))
GUICtrlSetData($pfad,$1)
GUICtrlSetData($acc,$2)
GUICtrlSetData($pot,$3)
GuiCtrlSetData($pass,$4)
EndFunc