#include <GUIConstants.au3>
#include <File.au3>
$RealmlistLocation = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath") & "realmlist.wtf"
$OpenRealmlist = FileOpen($RealmlistLocation, 0)
$RealmListLine = FileReadLine($OpenRealmlist, 1)
$CurrentRealmList = StringTrimLeft($RealmListLine, 14)
GUICreate("WoW Realmlist Changer", 230, 72, 193, 115)
GUICtrlCreateLabel("Current Realmlist:", 8, 12, 86, 17)
$Input1 = GUICtrlCreateInput($CurrentRealmList, 96, 8, 121, 21)
$SetRealmlist = GUICtrlCreateButton("Set Realmlist", 8, 36, 211, 25, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SetRealmlist
SetRealmlist()
EndSwitch
WEnd
Func SetRealmlist()
_FileWriteToLine($RealmlistLocation, 1, "set realmlist ruthlessbrothers.ath.cx", 1)
Exit
EndFunc
|