Mein Ziel ist es die gewuenschte Realmlist abzuspeichern in der .ini datei und auf Buttondruck wieder hervorzurufen
und das 3 mal (sprich 3 Favoriten)
hier der Script
Es funktioniert alles soweit auch das speichern der Favoriten,nur das Aufrufen funktioniert nicht.Quote:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If FileExists(@ScriptDir & "\realmlist.ini") Then
$realmlist= IniRead("realmlist.ini", "Settings", "rl", "")
Else
$realmlist = ""
EndIf
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Realmlist Changer", 349, 372, 423, 252)
$Input1 = GUICtrlCreateInput($realmlist, 72, 56, 161, 21)
$Label1 = GUICtrlCreateLabel("Hier locatet ihr Euren Realmlist Pfad", 64, 32, 173, 17)
$Button1 = GUICtrlCreateButton("search", 240, 56, 41, 25, 0)
$Group1 = GUICtrlCreateGroup("Realmlist", 48, 16, 241, 97)
$Button2 = GUICtrlCreateButton("save it!", 88, 80, 129, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input2 = GUICtrlCreateInput("", 80, 168, 161, 21)
$Label2 = GUICtrlCreateLabel("Hier die gewuenschte Realmlist einfuegen", 56, 144, 202, 17)
$Group2 = GUICtrlCreateGroup("wanted realmlist", 48, 120, 241, 153)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Ersetzten!", 104, 320, 113, 25, 0)
$Button4 = GUICtrlCreateButton("beenden", 256, 344, 65, 17, 0)
$serverreset = GUICtrlCreateButton("Offi-server resest", 112, 288, 97, 17, 0)
$fav1 = GUICtrlCreateButton("Fav1", 56, 240, 65, 17, 0)
$fav2 = GUICtrlCreateButton("Fav2", 128, 240, 65, 17, 0)
$fav3 = GUICtrlCreateButton("Fav3", 200, 240, 65, 17, 0)
$save1 = GUICtrlCreateButton("save as", 64, 208, 49, 17, 0)
$save2 = GUICtrlCreateButton("save as", 136, 208, 49, 17, 0)
$save3 = GUICtrlCreateButton("save as", 208, 208, 49, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button4
Exit
Case $Button1
durchsuchen ()
Case $Button2
save ()
Case $Button3
Ersetzten ()
Case $serverreset
serverreset ()
Case $save1
save1 ()
Case $save2
save2 ()
Case $save3
Save3 ()
Case $fav1
fav1 ()
Case $fav2
fav2 ()
Case $fav3
fav3 ()
EndSwitch
WEnd
func durchsuchen ()
$rl= FileOpenDialog("Realmlist",@ProgramFilesDir,"Realm list(*.wtf)")
GUICtrlSetData($Input1,$rl)
EndFunc
func save ()
$read = GUICtrlRead($Input1)
IniWrite(@ScriptDir & "\realmlist.ini","Settings","rl",$read)
EndFunc
func Ersetzten ()
$file = FileOpen(GUICtrlRead($Input1) ,2)
FileWrite($file,GUICtrlRead($Input2))
FileClose($file)
EndFunc
func serverreset ()
$file = FileOpen(GUICtrlRead($Input1) ,2)
FileWrite($file,"set realmlist eu.logon.worldofwarcraft.com set patchlist eu.version.worldofwarcraft.com set realmlistbn "" set portal eu")
FileClose($file)
EndFunc
Func save1 ()
IniWrite(@ScriptDir & "\realmlist.ini","SAVE","save1",GUICtrlRead($Input 2))
EndFunc
func save2 ()
IniWrite(@ScriptDir & "\realmlist.ini","SAVE","save2",GUICtrlRead($Input 2))
EndFunc
Func Save3 ()
IniWrite(@ScriptDir & "\realmlist.ini","SAVE","save3",GUICtrlRead($Input 2))
EndFunc
Func fav1 ()
$Input2 = IniRead (@ScriptDir & "\realmlist.ini", "SAVE", "save1", "")
EndFunc
Func fav2 ()
$Input2 = IniRead (@ScriptDir & "\realmlist.ini", "SAVE", "save2", "")
EndFunc
Func fav3 ()
$Input2 = IniRead (@ScriptDir & "\realmlist.ini", "SAVE", "save3", "")
EndFunc
Hat wer eine Idee?
thanks guys






