Possessed Posted March 8, 2007 Posted March 8, 2007 I have looked everywere for help to try and fix this problem but cant seem to find how to fix it. When I start my app the buttons mess up. A ghost image stay on the other tabs dont really know why. Anyways heres the code try it out and see for your self. expandcollapse popup;Script By: Possessed.no-ip.org ;The Server~ Version 0.1 ;------------------------ ;GUI stuff #include <Inet.au3> #include <GUIConstants.au3> ;preload stuff $getip = _GetIP() $g_IP = "127.0.0.1" $font="Lucida Console" GUICreate("Possessed Portal", 300, 480) GUISetBkColor(0x000000) $output = GUICtrlCreateEdit('**************************Console V1.0***************************' & @CRLF, 0, 270, 300, 210, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY, $WS_EX_STATICEDGE) GUICtrlSetFont (-1,7, 400, $font) $font="Lucida Console" $tab=GUICtrlCreateTab (0,0, 300,270) $tab0=GUICtrlCreateTabitem ("Settings") $tab0input=GUICtrlCreateInput ("", 130,40,70,20,$ES_NUMBER) GUICtrlSetTip(-1,"Enter a Port number.") $tabbutton1=GUICtrlCreateButton ("Start TCPListen", 10,40,100,20) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($tabbutton1, 0) GUISetState(@SW_SHOW) $tab1=GUICtrlCreateTabitem ("Options") $tab2=GUICtrlCreateTabitem ("Commands") $tab3=GUICtrlCreateTabitem ("Tools") $Button1 = GUICtrlCreateButton('Ping', 10, 40, 80, 20, 0) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($Button1, 0) GUISetState(@SW_SHOW) $Button2 = GUICtrlCreateButton('Netstat -n', 10, 65, 80, 20, 0) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($Button2, 0) GUISetState(@SW_SHOW) $Button3= GUICtrlCreateButton('Return IP', 10, 90, 80, 20, 0) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($Button3, 0) GUISetState(@SW_SHOW) ;Handling the GUI While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE;Exit form GUI ExitLoop Case $msg = $Button1 GUICtrlSetData($output, GUICtrlRead($output) & Return_ping() & @CRLF) Case $msg = $tabbutton1 GUICtrlSetData($output,GUICtrlRead($output) & & @CRLF) Case $msg = $Button2 GUICtrlSetData($output, GUICtrlRead($output) & Return_Netstats() & @CRLF) Case $msg = $Button3 GUICtrlSetData($output, GUICtrlRead($output) & Return_IP () & @CRLF) Case Else ; Something else EndSelect WEnd ;My Func's Func Return_ping() Local $iPID = Run(@ComSpec & ' /c ping ' & $getip & ' -n 1', '', @SW_HIDE, 2), $sHold = '' While Not @error $sHold &= StdoutRead($iPID) WEnd Return $sHold EndFunc ;==>Return_ping Func Return_Netstats() Local $netID = Run(@ComSpec & ' /c netstat ' & ' -n', '', @SW_HIDE, 2), $sHold1 = '' While Not @error $sHold1 &= StdoutRead($netID) WEnd Return $sHold1 EndFunc ;==>Return_nestat -n info Func Return_IP () $IP = _GetIP() Return $IP EndFunc ;==>Return_Ip info
Moderators SmOke_N Posted March 8, 2007 Moderators Posted March 8, 2007 CODEexpandcollapse popup;Script By: Possessed.no-ip.org ;The Server~ Version 0.1 ;------------------------ ;GUI stuff #include <Inet.au3> #include <GUIConstants.au3> ;preload stuff $getip = _GetIP() $g_IP = "127.0.0.1" $font="Lucida Console" $gui = GUICreate("Possessed Portal", 300, 480) GUISetBkColor(0x000000) $output = GUICtrlCreateEdit('**************************Console V1.0***************************' & @CRLF, 0, 270, 300, 210, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_READONLY, $WS_EX_STATICEDGE) GUICtrlSetFont (-1,7, 400, $font) $font="Lucida Console" $tab=GUICtrlCreateTab (0,0, 300,270) $tab0=GUICtrlCreateTabitem ("Settings") $tab0input=GUICtrlCreateInput ("", 130,40,70,20,$ES_NUMBER) GUICtrlSetTip(-1,"Enter a Port number.") $tabbutton1=GUICtrlCreateButton ("Start TCPListen", 10,40,100,20) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($tabbutton1, 0) $tab1=GUICtrlCreateTabitem ("Options") $tab2=GUICtrlCreateTabitem ("Commands") $tab3=GUICtrlCreateTabitem ("Tools") $Button1 = GUICtrlCreateButton('Ping', 10, 40, 80, 20, 0) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($Button1, 0) $Button2 = GUICtrlCreateButton('Netstat -n', 10, 65, 80, 20, 0) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($Button2, 0) $Button3= GUICtrlCreateButton('Return IP', 10, 90, 80, 20, 0) GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console") GUICtrlSetCursor($Button3, 0) GUICtrlCreateTabItem('') GUISetState(@SW_SHOW) ;Handling the GUI While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE;Exit form GUI ExitLoop Case $msg = $Button1 GUICtrlSetData($output, GUICtrlRead($output) & Return_ping() & @CRLF) Case $msg = $tabbutton1 GUICtrlSetData($output,GUICtrlRead($output) & & @CRLF) Case $msg = $Button2 GUICtrlSetData($output, GUICtrlRead($output) & Return_Netstats() & @CRLF) Case $msg = $Button3 GUICtrlSetData($output, GUICtrlRead($output) & Return_IP () & @CRLF) Case Else ; Something else EndSelect WEnd ;My Func's Func Return_ping() Local $iPID = Run(@ComSpec & ' /c ping ' & $getip & ' -n 1', '', @SW_HIDE, 2), $sHold = '' While Not @error $sHold &= StdoutRead($iPID) WEnd Return $sHold EndFunc ;==>Return_ping Func Return_Netstats() Local $netID = Run(@ComSpec & ' /c netstat ' & ' -n', '', @SW_HIDE, 2), $sHold1 = '' While Not @error $sHold1 &= StdoutRead($netID) WEnd Return $sHold1 EndFunc ;==>Return_nestat -n info Func Return_IP () $IP = _GetIP() Return $IP EndFunc ;==>Return_Ip info Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
Possessed Posted March 8, 2007 Author Posted March 8, 2007 Its been doing that befor i put all that in and even tryed moving it. Still "ghosts" the buttons ????
Moderators SmOke_N Posted March 8, 2007 Moderators Posted March 8, 2007 Its been doing that befor i put all that in and even tryed moving it. Still "ghosts" the buttons ????The script I posted ran fine for me.... the one you posted was all over the place with a ton of GUISetState() (You only need one) and you didn't close the tab items. Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.
Possessed Posted March 8, 2007 Author Posted March 8, 2007 hehe thank you again i feel dumb now thats what I get for learning haha. You know and i know ill be back with another dumb problem so untill next time thank you so much man.
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