Jump to content
Sign in to follow this  
sumkid

WoW Realmlist changer

Recommended Posts

sumkid

this file is not working, the gui wont let me click buttons, and when i press "home" its not running the function, it prompts me for the textbox but doesnt come up. heres the code:

#include <GUIConstants.au3>

GUICreate("Sumkid E-Z Realmlist Changer",300,200)



Sleep(200)
HotKeySet("{HOME}","jkfunctions")


$filemenu = GuiCtrlCreateMenu ("File")
$fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu)
$recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu)
$separator1 = GuiCtrlCreateMenuitem ("",$filemenu)
$exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu)
$helpmenu = GuiCtrlCreateMenu ("?")
$aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu)
$usserver = FileWrite ( "Realmlist.WTF", "set realmlist us.logon.worldofwarcraft.com")
$euserver = FileWrite ( "Realmlist.WTF", "set realmlist eu.logon.worldofwarcraft.com")
$del1 = FileDelete ( "Realmlist.WTF" )
$del2 = Sleep (100)
$del3 = FileWrite ( "Realmlist.WTF", "")

$okbutton = GuiCtrlCreateButton ("US",50,130,60,20)

$cancelbutton = GuiCtrlCreateButton ("EU",180,130,60,20)

$cancelbutton1 = GuiCtrlCreateButton ("Private",110,130,60,20)

GuiSetState()

While 1
    Sleep (1000)
    FileRead ( "Realmlist.WTF" )
    Sleep (100)
    $msg = GUIGetMsg()
    

    Select
        Case $msg = $cancelbutton
            MsgBox(0, "Realmlist Changer","Realmlist Changed!")
            Sleep (1000)
            $del1
            Sleep (100)
            $del2
            Sleep (100)
            $del3
            Sleep (100)
            $euserver
        
        Case $msg = $fileitem
            $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
            If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu)

        Case $msg = $exititem
            ExitLoop
        
        Case $msg = $okbutton
            MsgBox(0, "Realmlist Changer","Realmlist Changed!")
            Sleep (1000)
            $del1
            Sleep (100)
            $del2
            Sleep (100)
            $del3
            Sleep (100)
            $usserver
            
            Case $msg = $cancelbutton1
            MsgBox(0, "Realmlist Changer","Enter ip.")
            Sleep (1000)
            $del1
            Sleep (100)
            $del2
            Sleep (100)
            $del3
            Sleep (100)
            Send ("{HOME}")

        Case $msg = $aboutitem
            Msgbox(0,"About","WoW Realmlist Changer by sumkid")
    EndSelect
WEnd

Func jkfunctions()
$answer = MsgBox(4, "Realmlist changer", "click ok to run priavte server ip changer.")
$textget = FileWrite ( "Realmlist.WTF", $answer)
EndFunc

GUIDelete()

Exit

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×