Ombladon Posted June 20, 2008 Share Posted June 20, 2008 hello everyone!! first i would like to say that autoit is a great programing lang... i just started (well actualy i wa googleing for a php to exe converter when i bumped to autoit) so i'm woundering if some1 can help me out with a simple status checker i wanted to make a script that opens a gui win showing xServer1: Online|Offline and xServer2: Online|Offline but i failed miserably xD so can some1 help me out ^^ Link to comment Share on other sites More sharing options...
Anonymouse Posted June 20, 2008 Share Posted June 20, 2008 hello everyone!! first i would like to say that autoit is a great programing lang...i just started (well actualy i wa googleing for a php to exe converter when i bumped to autoit)so i'm woundering if some1 can help me out with a simple status checker i wanted to make a script that opens a gui win showing xServer1: Online|Offline and xServer2: Online|Offline but i failed miserably xDso can some1 help me out ^^Post your code so we can see where you went wrong, and point you in the right direction to understanding it better. 2 Weeks ago everyone's questions seemed very complex and confusing compared to mine, but the more I mess up and post my code, the more I learn as to why, and what better way would be to go about my problem. children may smile; the wise ponder- Dr. Holmes of Hardvard Medical School on an Ether BingeLove Makes The World Go Round?So does five shots of tequila. What's your point?[quote name='Valik' date='Jun 5 2008, 05:13 PM']wraithdu, 24 hours. Said I have a bad attitude, just driving the point home with a ban.[/quote]This is classic. :) Link to comment Share on other sites More sharing options...
SadBunny Posted June 20, 2008 Share Posted June 20, 2008 Anonymouse spoke well Commands whose helpfile examples you might want to check out: GuiCreate() GuiCtrlCreateLabel() GuiCtrlSetData() GuiSetState() Ping() If ... Then Combine all those and you should be able to make your script, and more... Post attempts + errors if you encounter trouble. Roses are FF0000, violets are 0000FF... All my base are belong to you. Link to comment Share on other sites More sharing options...
Ombladon Posted June 20, 2008 Author Share Posted June 20, 2008 never mind xD i fixed the code here it is: expandcollapse popup#include <GUIConstants.au3> TCPShutdown() TCPStartup() Dim $Server1 = IniRead("config.ini","IP","login","null") Dim $Server2 = iniRead("config.ini","IP","game","null") Dim $PORT1 = "2106" Dim $PORT2 = "7777" Dim $S1P1ACK = "" Dim $S1P2ACK = "" Dim $IPADRESS1 = TCPNameToIP($Server1) Dim $IPADRESS2 = TCPNameToIP($Server2) Dim $ConnectedSocket1 = 0 $ConnectedSocket1 = TCPConnect($IPADRESS2, $PORT2) If @error Then $S2P2ACK = "Offline" Else $S2P2ACK = "Online" EndIf $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT1) If @error Then $S1P1ACK = "Offline" Else $S1P1ACK = "Online" EndIf $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT2) If @error Then $S1P2ACK = "Offline" Else $S1P2ACK = "Online" EndIf GUICreate("Status Checker v0.1",110,50) GUICtrlCreateLabel("LoginServer: " & $S1P1ACK ,3,3) GUICtrlCreateLabel("GameServer: " & $S1P2ACK ,3,20) GUICtrlCreateLabel("by Ombladon",45,35) TCPShutdown() GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; EndSelect WEnd Exit Link to comment Share on other sites More sharing options...
Ombladon Posted June 21, 2008 Author Share Posted June 21, 2008 ok i made my sts checker but i got a problem .... expandcollapse popupTraySetState (2) #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=sss.ico #AutoIt3Wrapper_Res_Description=Lineage ][ Status Checker #AutoIt3Wrapper_Res_Fileversion=0.1 #AutoIt3Wrapper_Res_LegalCopyright=Copyright Ombladon1991 #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> TCPShutdown() TCPStartup() Dim $Server1 = IniRead("config.ini","IP","login","null") Dim $Server2 = iniRead("config.ini","IP","game","null") Dim $PORT1 = "2106" Dim $PORT2 = "7777" Dim $S1P1ACK = "" Dim $S1P2ACK = "" Dim $IPADRESS1 = TCPNameToIP($Server1) Dim $IPADRESS2 = TCPNameToIP($Server2) Dim $ConnectedSocket1 = 0 $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT1) If @error Then ;MsgBox(16,"Error"," Login Server is Offline") $S1P1ACK = "Offline" GUICtrlSetColor(-1, 0xff0000) Else $S1P1ACK = "Online" GUICtrlSetColor(-1, 0x00FF00) EndIf $ConnectedSocket1 = TCPConnect($IPADRESS2, $PORT2) If @error Then ;MsgBox(16,"Error"," Game Server is Offline") $S1P2ACK = "Offline" GUICtrlSetColor(-1, 0xff0000) Else $S1P2ACK = "Online" EndIf GUICreate("Status Checker v0.1",635,75) GUISetBkColor ("gray") GuiCtrlCreatePic("logo.gif",0,0,635,75) GUICtrlCreateLabel("LoginServer: ",3,55) GUICtrlSetColor(-1, "0xff0000") GUICtrlCreateLabel($S1P1ACK ,65,55) GUICtrlCreateLabel("GameServer: " & $S1P2ACK ,100,55) GUICtrlSetColor(-1, 0x00FFFF) GUICtrlCreateLabel("by Ombladon",570,55) TCPShutdown() GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; EndSelect WEnd Exit i cant get it to show red color if server is offline and green color when sv is online can some1 help me out xD? Link to comment Share on other sites More sharing options...
Kiti Posted June 21, 2008 Share Posted June 21, 2008 (edited) Try expandcollapse popupGUISetBkColor(0xCCCC00);for green and GUISetBkColor(0xFF0000); for redoÝ÷ Øw«{lÊ«Âäx,r¸©µ«¢+Ø¥¹±Õ±ÐíU% ½¹ÍѹÑ̹ÔÌÐì()QÉåMÑMÑÑ È¤()¥´ÀÌØíMÉÙÈÄô%¹¥I ÅÕ½Ðí½¹¥¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%@ÅÕ½Ðì°ÅÕ½Ðí±½¥¸ÅÕ½Ðì°ÅÕ½Ðí¹Õ±°ÅÕ½Ðì¤)¥´ÀÌØíMÉÙÈÈô%¹¥I ÅÕ½Ðí½¹¥¹¥¹¤ÅÕ½Ðì°ÅÕ½Ðí%@ÅÕ½Ðì°ÅÕ½ÐíµÅÕ½Ðì°ÅÕ½Ðí¹Õ±°ÅÕ½Ðì¤)¥´ÀÌØíA=IPÄôÅÕ½ÐìÈÄÀØÅÕ½Ðì)¥´ÀÌØíA=IPÈôÅÕ½ÐìÜÜÜÜÅÕ½Ðì)¥´ÀÌØíLÅ@Å ,ôÅÕ½ÐìÅÕ½Ðì)¥´ÀÌØíLÅ@É ,ôÅÕ½ÐìÅÕ½Ðì)¥´ÀÌØí%AIMLÄôQ A9µQ½%@ ÀÌØíMÉÙÈĤ)¥´ÀÌØí%AIMLÈôQ A9µQ½%@ ÀÌØíMÉÙÈȤ)¥´ÀÌØí ½¹¹ÑM½ÐÄôQ A ½¹¹Ð ÀÌØí%AIMLÄ°ÀÌØíA=IPĤ()Q AM¡Õѽݸ ¤)Q AMÑÉÑÕÀ ¤()U% ÉÑ ÅÕ½ÐíMÑÑÕÌ ¡ÈØÀ¸ÄÅÕ½Ðì°ØÌÔ°ÜÔ¤)U%MÑ ½±½È ÅÕ½ÐíÉäÅÕ½Ðì¤)U% Ñɱ ÉÑA¥ ÅÕ½Ðí±½¼¹¥ÅÕ½Ðì°À°À°ØÌÔ°ÜÔ¤)U% Ñɱ ÉÑ1° ÅÕ½Ðí1½¥¹MÉÙÈèÅÕ½Ðì°Ì°ÔÔ¤)U% ÑɱMÑ ½±½È ´Ä°ÅÕ½ÐìÁáÀÀÀÀÅÕ½Ðì¤)U% Ñɱ ÉÑ1° ÀÌØíLÅ@Å ,°ØÔ°ÔÔ¤)U% Ñɱ ÉÑ1° ÅÕ½ÐíµMÉÙÈèÅÕ½ÐìµÀìÀÌØíLÅ@É ,°ÄÀÀ°ÔÔ¤)U% ÑɱMÑ ½±½È ´Ä°ÁàÀÁ¤)U% Ñɱ ÉÑ1° ÅÕ½Ðíä=µ±½¸ÅÕ½Ðì°ÔÜÀ°ÔÔ¤((ÀÌØí ½¹¹ÑM½ÐÄôQ A ½¹¹Ð ÀÌØí%AIMLÄ°ÀÌØíA=IPĤ)%ÉɽÈQ¡¸($ÀÌØíLÅ@Å ,ôÅÕ½Ðí=±¥¹ÅÕ½Ðì(%U%MÑ ½±½È ÁáÀÀÀÀ¤)±Í($ÀÌØíLÅ@Å ,ôÅÕ½Ðí=¹±¥¹ÅÕ½Ðì(%U%MÑ ½±½È Áá ÀÀ¤()¹%(ÀÌØí ½¹¹ÑM½ÐÄôQ A ½¹¹Ð ÀÌØí%AIMLÈ°ÀÌØíA=IPȤ)%ÉɽÈQ¡¸(($ÀÌØíLÅ@É ,ôÅÕ½Ðí=±¥¹ÅÕ½Ðì(%U%MÑ ½±½È ÁáÀÀÀÀ¤)±Í($ÀÌØíLÅ@É ,ôÅÕ½Ðí=¹±¥¹ÅÕ½Ðì)¹%()Q AM¡Õѽݸ ¤()U%MÑMÑÑ¡M]}M!=¤)]¡¥±Ä($ÀÌØíµÍôU%Ñ5Í ¤(%M±Ð($% ÍÀÌØíµÍôÀÌØíU%}Y9Q} 1=M($$%á¥Ñ1½½À($% ͱÍ($$$ììì(%¹M±Ð)]¹)á¥Ð()Q AM¡Õѽݸ ¤ It's important to use a proper format. In your case this was the problem: You've created the GUI at the far end. The format is about the order of the lines in your script. Here it is: 1. Place required include files. 2. Set Autoit options, as needed. 3. Declare Variables. 4. Set Desired Hot Keys. 5. Create the GUI. 6. Display the GUI. 7. Set/Update control information. 8. Set the Tray Menu 9. Start the Loop, and "Listen" for a message. 10. Create the Functions. Try Valuater's AutoIt 1-2-3 Edited June 21, 2008 by Kiti Think outside the box.My Cool Lego Technic Website -- see walking bipeds and much more!My YouTube account -- see cool physics experimentsMy scripts:Minesweeper bot: Solves advanced level in 1 second (no registry edit), very improved GUI, 4 solving stylesCan't go to the toilet because of your kids closing your unsaved important work? - Make a specific window uncloseableCock Shooter Bot -- 30 headshots out of 30 Link to comment Share on other sites More sharing options...
Ombladon Posted June 21, 2008 Author Share Posted June 21, 2008 it doesnt work Link to comment Share on other sites More sharing options...
Kiti Posted June 21, 2008 Share Posted June 21, 2008 (edited) it doesnt work No? It turns red to me...Ahh srry ) Put a "D" on the 10th line Edited June 21, 2008 by Kiti Think outside the box.My Cool Lego Technic Website -- see walking bipeds and much more!My YouTube account -- see cool physics experimentsMy scripts:Minesweeper bot: Solves advanced level in 1 second (no registry edit), very improved GUI, 4 solving stylesCan't go to the toilet because of your kids closing your unsaved important work? - Make a specific window uncloseableCock Shooter Bot -- 30 headshots out of 30 Link to comment Share on other sites More sharing options...
Ombladon Posted June 21, 2008 Author Share Posted June 21, 2008 it gives me red background and does not show online or offline at all Link to comment Share on other sites More sharing options...
Kiti Posted June 21, 2008 Share Posted June 21, 2008 (edited) it gives me red background and does not show online or offline at all expandcollapse popup#include <GUIConstants.au3> TraySetState(2) Dim $Server1 = IniRead("config.ini", "IP", "login", "null") Dim $Server2 = IniRead("config.ini", "IP", "game", "null") Dim $PORT1 = "2106" Dim $PORT2 = "7777" Dim $S1P1ACK = "" Dim $S1P2ACK = "" Dim $IPADRESS1 = "" Dim $IPADRESS2 = "" Dim $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT1) TCPShutdown() TCPStartup() GUICreate("Status Checker v0.1", 635, 75) GUISetBkColor("gray") GUICtrlCreatePic("logo.gif", 0, 0, 635, 75) GUICtrlCreateLabel("LoginServer: ", 10, 55) GUICtrlSetColor(-1, "0x00FFFF") GUICtrlCreateLabel($S1P1ACK, 65, 55) GUICtrlCreateLabel("GameServer: " , 130, 55) GUICtrlSetColor(-1, 0x00FFFF) GUICtrlCreateLabel("by Ombladon", 570, 55) $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT1) If @error Then $S1P1ACK = "Offline" GUISetBkColor(0xFF0000) GUICtrlCreateLabel("Offline", 80,55) GUICtrlSetColor(-1, 0x00FFFF) Else $S1P1ACK = "Online" GUISetBkColor(0xCCCC00) GUICtrlCreateLabel("Online", 80,55) GUICtrlSetColor(-1, 0x00FFFF) EndIf $ConnectedSocket1 = TCPConnect($IPADRESS2, $PORT2) If @error Then $S1P2ACK = "Offline" GUISetBkColor(0xFF0000) GUICtrlCreateLabel("Offline", 200,55) GUICtrlSetColor(-1, 0x00FFFF) Else $S1P2ACK = "Online" GUISetBkColor(0xCCCC00) GUICtrlCreateLabel("Online", 200,55) GUICtrlSetColor(-1, 0x00FFFF) EndIf TCPShutdown() GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;; EndSelect WEnd Exit TCPShutdown() That's because the GUI is before the server check. Edited June 21, 2008 by Kiti Think outside the box.My Cool Lego Technic Website -- see walking bipeds and much more!My YouTube account -- see cool physics experimentsMy scripts:Minesweeper bot: Solves advanced level in 1 second (no registry edit), very improved GUI, 4 solving stylesCan't go to the toilet because of your kids closing your unsaved important work? - Make a specific window uncloseableCock Shooter Bot -- 30 headshots out of 30 Link to comment Share on other sites More sharing options...
Ombladon Posted June 21, 2008 Author Share Posted June 21, 2008 thx.... your ideea helped me fix it xD expandcollapse popupTraySetState (2) #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=sss.ico #AutoIt3Wrapper_Res_Description=Lineage ][ Status Checker #AutoIt3Wrapper_Res_Fileversion=0.1 #AutoIt3Wrapper_Res_LegalCopyright=Copyright Ombladon1991 #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> TCPShutdown() TCPStartup() Dim $Server1 = "74.86.194.219" Dim $Server2 = "74.86.194.219" Dim $PORT1 = "2106" Dim $PORT2 = "7777" Dim $S1P1ACK = "" Dim $S1P2ACK = "" Dim $IPADRESS1 = TCPNameToIP($Server1) Dim $IPADRESS2 = TCPNameToIP($Server2) Dim $ConnectedSocket1 = 0 GUICreate("Status Checker v0.1",560,75) GUISetBkColor ("gray") $ConnectedSocket1 = TCPConnect($IPADRESS1, $PORT1) If @error Then MsgBox(16,"Error"," Login Server is Offline") $S1P1ACK = "Offline" GUICtrlCreateLabel($S1P1ACK ,71,55) GUICtrlSetColor(-1, 0xFF0000) Else $S1P1ACK = "Online" GUICtrlCreateLabel($S1P1ACK ,71,55) GUICtrlSetColor(-1, 0x00FF00) EndIf $ConnectedSocket1 = TCPConnect($IPADRESS2, $PORT2) If @error Then MsgBox(16,"Error"," Game Server is Offline") $S1P2ACK = "Offline" GUICtrlCreateLabel($S1P2ACK ,181,55) GUICtrlSetColor(-1, 0xFF0000) Else $S1P2ACK = "Online" GUICtrlCreateLabel($S1P2ACK ,181,55) GUICtrlSetColor(-1, 0x00FF00) EndIf TCPShutdown() GuiCtrlCreatePic("logo.gif",0,0,635,75) GUICtrlCreateLabel("LoginServer:",3,55) GUICtrlSetColor(-1, 0x00FFFF) GUICtrlCreateLabel("GameServer:",111,55) GUICtrlSetColor(-1, 0x00FFFF) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE MsgBox(64,"L2Refused - Status Checker","Thanks For using this Status Checker" & Chr(13) & Chr(10) & "Love Ombladon") ExitLoop Case Else ;;; EndSelect WEnd Exit Link to comment Share on other sites More sharing options...
Kiti Posted June 21, 2008 Share Posted June 21, 2008 Well done! Think outside the box.My Cool Lego Technic Website -- see walking bipeds and much more!My YouTube account -- see cool physics experimentsMy scripts:Minesweeper bot: Solves advanced level in 1 second (no registry edit), very improved GUI, 4 solving stylesCan't go to the toilet because of your kids closing your unsaved important work? - Make a specific window uncloseableCock Shooter Bot -- 30 headshots out of 30 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