[Question] Realmlist

[frkcoaster6]

Ok so I am trying to mod the realmlist
Here is what I used to use.

Dim installpath As String = String.Empty
        installpath = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath", "")
        Dim fs As New FileStream(installpath & "realmlist.wtf", FileMode.Create, FileAccess.Write)
        Dim s As New StreamWriter(fs)
        s.WriteLine("set realmlist hidden ")
        s.Close()

I tried adding

\data\enUS

After

HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\data\enUS

But it doesn't do anything.
If anyone has any ideas I would appreciate them.

[ReidE96]

If you're EU, try enGB. Anyway, you wouldn't add \Data\enUS or \Data\enGB to the registry key. You put it on installpath, like so:

installpath = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath", "") & "\Data\enGB"

[Mitron]

what is this for ?? O.o

[frkcoaster6]

Thanks Reid +rep

[ReidE96]

Happy to help

[frkcoaster6]

Another question >.>
I know I am doing it wrong, if you have any suggestions.

   Dim installpath As String = String.Empty
        installpath = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath", "")

        If Directory.Exists("installpath" & "\Data\enUS\realmlist.wtf") Then
            Dim fs As New FileStream(installpath & "\Data\enUS\realmlist.wtf", FileMode.Create, FileAccess.Write)
            Dim s As New StreamWriter(fs)
            s.WriteLine("set realmlist 65.75.241.232 ")
            s.Close()
        ElseIf Directory.Exists("installpath" & "\Data\enGB\realmlist.wtf") Then
            Dim fs As New FileStream(installpath & "\Data\enGB\realmlist.wtf", FileMode.Create, FileAccess.Write)
            Dim s As New StreamWriter(fs)
            s.WriteLine("set realmlist 65.75.241.232 ")
            s.Close()
        End If

[marco1234]

Try this dude..

Dim installpath As String = String.Empty
installpath = Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath", "")

If Directory.Exists("installpath" & "\Data\enUS\realmlist.wtf") Then
Dim fs As New FileStream(installpath & "\Data\enUS\realmlist.wtf", FileMode.Create, FileAccess.Write)
Dim s As New StreamWriter(fs)
s.WriteLine("set realmlist 65.75.241.232 ")
s.Close()
Else
If Directory.Exists("installpath" & "\Data\enGB\realmlist.wtf") Then
Dim fs As New FileStream(installpath & "\Data\enGB\realmlist.wtf", FileMode.Create, FileAccess.Write)
Dim s As New StreamWriter(fs)
s.WriteLine("set realmlist 65.75.241.232 ")
s.Close()
End If

[frkcoaster6]

You can't put Else then If on the next line because it would require an End If before the second If which would kind of void what I am trying to do.

EDIT: Figured it out.


Dim installpath As String = String.Empty
installpath = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\blizzard entertainment\world of warcraft", "installpath", Nothing)
If File.Exists(installpath & "\data\enus\realmlist.wtf") Then
File.Delete(installpath & "\data\enus\realmlist.wtf")
Dim fs As New FileStream(installpath & "\data\enus\realmlist.wtf", FileMode.Create, FileAccess.Write)
Dim s As New StreamWriter(fs)
s.WriteLine("set realmlist realmlist")
s.Close()
MsgBox("Launcher Message: Realmlist Sucessfully Set To: realmlist")
Else : File.Exists(installpath & "\data\engb\realmlist.wtf")
File.Delete(installpath & "\data\engb\realmlist.wtf")
Dim fs As New FileStream(installpath & "\data\engb\realmlist.wtf", FileMode.Create, FileAccess.Write)
Dim s As New StreamWriter(fs)
s.WriteLine("set realmlist realmlist")
s.Close()
MsgBox("Launcher Message: Realmlist Sucessfully Set To: realmlist")

[ReidE96]

I'd have suggested using a different filemode myself, but w/e works for you

[frkcoaster6]

The current code isn't going to be permanent, I am attempting to make it have your browse for WoW's location and then it will just work from that.

[ReidE96]

Look into OpenFileDialog and Settings then. That's what I'd use - a one-off dialogue to locate your main WoW folder (opening by default in the InstallPath folder I'd do), then save the folder they choose to an application setting.

Links to help you:
File Dialogues - Common Dialog's in VB .NET - OpenFileDialog, SaveFileDialog, FontDialog, ColorDialog
Application Settings - Application Settings in VB.NET 2008

[frkcoaster6]

Can I add you to msn if I run into any trouble?

[frkcoaster6]

Which I did hehe. God I fail at scripting >.>

[ReidE96]

Yup, but I'm not on MSN that much Addy is on my profile.