Caer12 Posted November 27, 2007 Posted November 27, 2007 Currently, my script is doing everything I would like it to. However, when I drag other windows onto my parent GUI, the buttons disappear. Also, when I press on the Create an Account button, it opens up the child GUI, and the things inside, are not shown and only show when you hover over them with a mouse, and the whole thing shows when you drag another window over it. If someone could please show or direct me on how to get this to stop, I'd greatly appreciate it.Complete program:http://www.zerowaitingtime.com/30481-download-QHTest1.rarScript:expandcollapse popup#include <GUIConstants.au3> #include <INet.au3> #include <String.au3> #include <array.au3> #include <IE.au3> Opt("GUIOnEventMode",1) ;Creates GUI $ParentWin = GUICreate("Qonquer Helper", 325, 400) $widthCell = 36 GUICtrlSetColor(-1, 0xff00) $Pos = 0 ;Server Status Checker Dim $avCodes[1] = ["GIF89"] $src1 = _INetGetSource('http://www.qonquer.com/status/status.php?link=127.0.0.1:9958') $trm1 = StringTrimLeft($src1, 0) $trm3 = StringTrimRight($trm1, 49) For $i = 0 To UBound($avCodes) - 1 $Input = $avCodes[$i] $Pos = _ArraySearch($trm3, $Input) Select Case $Pos = -1 GUICtrlCreatePic("online.bmp", 12, 38, 36, 18) Case Else GUICtrlCreatePic("offline.bmp", 12, 38, 36, 18) EndSelect Next ;Function for Players online Func Getplayers() $src = _INetGetSource('http://69.41.179.99:9980/online.js') $trm = StringTrimLeft($src, 17) $trm2 = StringTrimRight($trm, 53) Return $trm2 EndFunc ;End of Getplayers function ;Function for Server version Func Getversion() $src = _INetGetSource('http://69.41.179.99:9980/online.js') $trm = StringTrimLeft($src, 53) $trm2 = StringTrimRight($trm, 11) Return $trm2 EndFunc ;End of Getversion function ;Displays Players online and server version $Getplayers = Getplayers() If $Getplayers > 375 Then $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15) $label2 = GUICtrlCreateLabel("Server is probably frozen or otherwise FUBAR'd", 5, 113, -1, 15) GUICtrlCreatePic("caution.bmp", 12, 38, 36, 18) Else $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15) $label2 = GUICtrlCreateLabel("Server seems to be functioning normally", 5, 113, -1, 15) EndIf $label = GUICtrlCreateLabel(Getversion(), 260, 113, 56, 15) ;function for refreshing players/version Func Disppnv() If $Getplayers > 375 Then $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15) $label2 = GUICtrlCreateLabel("Server is probably frozen or otherwise FUBAR'd", 5, 113, -1, 15) GUICtrlCreatePic("caution.bmp", 12, 38, 36, 18) Else $label1 = GUICtrlCreateLabel(Getplayers(), 15, 87, 25, 15) $label2 = GUICtrlCreateLabel("Server seems to be functioning normally", 5, 113, -1, 15) EndIf $label = GUICtrlCreateLabel(Getversion(), 260, 113, 56, 15) Select Case $Pos = -1 GUICtrlCreatePic("online.bmp", 12, 38, 36, 18) Case Else GUICtrlCreatePic("offline.bmp", 12, 38, 36, 18) EndSelect EndFunc ;---------Buttons---------- $Refresh = GUICtrlCreateButton("Refresh", 50, 85, 50, 20) GUICtrlSetOnEvent($Refresh,"disppnv") $Connect = GUICtrlCreateButton("Connecting to Qonquer", 5, 300, 150, 20) GUICtrlSetOnEvent($Connect,"Connect") $CreateAcc = GUICtrlCreateButton("Create an Account", 5, 325, 150, 20) GUICtrlSetOnEvent($CreateAcc,"create") $CantCon = GUICtrlCreateButton("Can't Connect?!", 5, 350, 150, 20) GUICtrlSetOnEvent($CantCon,"CantCon") $Ban = GUICtrlCreateButton("About Bans", 5, 375, 150, 20) GUICtrlSetOnEvent($Ban,"Ban") $Features = GUICtrlCreateButton("About New Features", 170, 300, 150, 20) GUICtrlSetOnEvent($Features,"Features") $Items = GUICtrlCreateButton("About New Items", 170, 325, 150, 20) GUICtrlSetOnEvent($Items,"Items") $QueEvents = GUICtrlCreateButton("About Quests/Events", 170, 350, 150, 20) GUICtrlSetOnEvent($QueEvents,"QueEvents") $Forum = GUICtrlCreateButton("Forum Info/Rules", 170, 375, 150, 20) GUICtrlSetOnEvent($Forum,"Forum") GUISetOnEvent($GUI_EVENT_CLOSE,"ExitW") GUISetIcon("tqzf.ico") GUISetState() ;Background Image $background = GUICtrlCreatePic("qbackground.bmp", 0, 0, 325, 400) While 1 Sleep (1000) WEnd ;--------------- Functions --------------- Func Connect() $ChildWin = GUICreate("Connecting to Qonquer", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("The best way to connect is by using Lakshya's custom Qonquer client:", 5, 5, 320, 28,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.megaupload.com/?d=MPGN1J45", 5, 40, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("You'll need Winrar to extract the folder", 5, 65, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E2 = GUICtrlCreateEdit("http://www.win-rar.com/", 5, 87, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("Installing the client is self explanatory, extract it in your program files folder. However, if you would like more assistance:", 5, 115, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E3 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=14963", 5, 149, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $conpic1 = GUICtrlCreatePic("qonquercon.bmp", 0, 200, 400, 200) EndFunc Func CantCon() $ChildWin = GUICreate("Can't Connect?!", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("If you cannot connect, either the connection from your client is faulty, the server is down or frozen, you're banned, or you're using the incorrect username or password.", 5, 5, 320, 40,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("You can find out if the server is offline, or you're ip banned by going here:", 5, 60, 320, 28,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/portal.php", 5, 90, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("1. If the server is online but you can't see a number of players, you're IP banned", 5, 115, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L4 = GUICtrlCreateLabel("2. If the server status icon is a frowny face, it is off-line", 5, 155, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $cantpic1 = GUICtrlCreatePic("serverstatus5ae.bmp", 0, 180, 157, 78) $L5 = GUICtrlCreateLabel("3. Make sure you're connecting to the correct IP Address:", 5, 265, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("69.41.179.99", 5, 290, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L6 = GUICtrlCreateLabel("4. Make sure you are using the correct username and password for connecting to Qonquer, remember that Qonquer and Conquer Online are not the same.", 5, 315, 320, 50,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) EndFunc Func Ban() $ChildWin = GUICreate("About Bans", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("There are 2 kinds of bans; account bans and IP bans.", 5, 5, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("1. Account bans happen when you have done something wrong, like botting etc. Account bans can last forever, or until the next server restart. Most account bans usually come with IP bans.", 5, 30, 320, 80,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("2. IP bans can happen for a number of reasons, logging in too many times, being banned for 'supposedly' auto-hunting, or doing something bad/wrong. If this happens to you, you'll have to wait until the next server restart to log back in. You will not be able to see the number of players online on the homepage.", 5, 100, 320, 80,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $banpic1 = GUICtrlCreatePic("ipban.bmp", 0, 180, 202, 157) $L4 = GUICtrlCreateLabel("THE BEST WAY TO AVOID THIS IS BY NOT GETTING INTO TROUBLE!", 5, 355, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) EndFunc Func Features() $ChildWin = GUICreate("About New Features", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("One of the main things that sets aside Qonquer from Conquer Online, is its vast amount of new features and changes that Conquer Online itself, doesn't have.", 5, 5, 320, 40,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("Aside from events, @commands have been implemented to make things easier.", 5, 55, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=7440", 5, 90, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("Another difference from Qonquer is its new items and creations that we can all enjoy; from +1 DragonBalls to x4 exp pots, and 3rd rebirth.", 5, 120, 320, 38,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E2 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=13386", 5, 160, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L4 = GUICtrlCreateLabel("Along with Qonquer's cheap economy, events are held quite often, and intensive and fun quests are being implemented, have an idea for one? Post it here:", 5, 185, 320, 50,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E3 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewforum.php?f=38", 5, 230, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L5 = GUICtrlCreateLabel("Qonquer has an ever-growing active and intelligent community, an always growing, advancing, popular mmorpg.", 5, 270, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $featurepic1 = GUICtrlCreatePic("q.bmp", -50, 300, 400, 100) EndFunc Func Items() $ChildWin = GUICreate("About New Items", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("One of the main factors that makes Qonquer so unique, is the interesting new items that are implemented.", 5, 5, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("One of the first new items introduced to QO was the +1 Met and DB, they can both be used as normal mets/dbs, but that would be a total waste. Why? Because the +1 Meteor can be used to put the first socket in any type of armor, and a +1 DB can put the second socket in them. Go here for more information:", 5, 50, 320, 65,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=7797", 5, 125, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("Some old items were given new attributes, like the MagicGate, dropping from only certain monsters; MagicGates can teleport all around the Qonquer world, and even to a special Qonquer Lottery.", 5, 150, 320, 45,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L4 = GUICtrlCreateLabel("Items such as the PointCard were given new attributes, PointCards now act as x4 exp potions.", 5, 200, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L5 = GUICtrlCreateLabel("SoulJades act as a Meteor packer, great for when you're in a pk area such as met zone.(not implemented yet) ", 5, 240, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L5 = GUICtrlCreateLabel("The LifeFlower, normally apart of CO's 2nd rebirth quest, is now a key item in QO's newest implementation; 3rd Rebirth!.", 5, 285, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L5 = GUICtrlCreateLabel("HeroCards are items that drop from monsters, they give you 1 Qonquer Point, a new/future trait of the Qonquer mmorpg.", 5, 310, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) EndFunc Func QueEvents() $ChildWin = GUICreate("About Quests/Events", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("Qonquer's events and quests are only one of the aspects that flourish Qonquer, along with drop events:", 5, 5, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("You can find quests and event guides/walkthroughs here:", 5, 55, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewforum.php?f=37", 5, 80, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("One of Qonquer's most well-known events is the PK tournament, an event all levels can enjoy. Read more here:", 5, 105, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E2 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=13386", 5, 140, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L4 = GUICtrlCreateLabel("Another famed event of Qonquer is the treasure hunt, where anyone is able to enjoy hunting for treasure chest, and may get luck and win a special bonus prize. Read more here:", 5, 165, 320, 48,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E3 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=11480", 5, 209, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L5 = GUICtrlCreateLabel("An event everyone is waiting for is CTF (Capture the Flag); where players can team up against eachother. Sign up here:", 5, 233, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E4 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=10476", 5, 264, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $eventpic1 = GUICtrlCreatePic("screenshot_34.bmp", 0, 300, 224, 112) EndFunc Func Forum() $ChildWin = GUICreate("Forum Info/Rules", 325, 400, 100, 100, -1, -1, $ParentWin) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) GUISetIcon("tqzf.ico") ;Content $L1 = GUICtrlCreateLabel("Like most community forums, Qonquer has rules. Follow these rules to stay out of trouble.", 5, 5, 320, 30,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L2 = GUICtrlCreateLabel("You can find a list of rules by going here:", 5, 55, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/viewtopic.php?t=275", 5, 80, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L3 = GUICtrlCreateLabel("The rules are based on common sense, but here are the main ones.", 5, 105, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L4 = GUICtrlCreateLabel("1. Don't spam (make pointless posts)", 5, 135, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L5 = GUICtrlCreateLabel("2. Don't flame too much", 5, 160, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $L6 = GUICtrlCreateLabel("3. And for goodness sake, use the search button!", 5, 185, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $E1 = GUICtrlCreateEdit("http://www.qonquer.com/forum/search.php", 5, 205, 310, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $forumpic1 = GUICtrlCreatePic("srch.bmp", 0, 240, 298, 149) EndFunc Func ExitW() Exit EndFunc Func DeleteGui() GUIDelete() EndFunc Func create() _IEErrorHandlerRegister () $oIE = _IECreateEmbedded () $ChildWin = GUICreate("Account Creation Page", 400, 580, _ (@DesktopWidth - 400) / 2, (@DesktopHeight - 540) / 2, _ $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 400, 540) GUISetOnEvent ( $GUI_EVENT_CLOSE, "DeleteGui",$ChildWin) GUISetState(@SW_SHOW) _IENavigate ($oIE, "http://qonquer.com:9980/regform.qhtml") GUISetIcon("tqzf.ico") $L1 = GUICtrlCreateLabel("Only works on browsers with IE!", 5, 555, 320, 20,BitOR($ES_AUTOHSCROLL,$ES_READONLY)) EndFunc
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