sumkid Posted September 13, 2007 Share Posted September 13, 2007 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: expandcollapse popup#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 Link to comment Share on other sites More sharing options...
sumkid Posted September 13, 2007 Author Share Posted September 13, 2007 bump Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now