Ghost21 Posted October 22, 2010 Share Posted October 22, 2010 In my program i'm running the standard While Wend for the GUI looping while 1 ; Server Chat client EXCEPT built onto the main GUI I have a Server Chat Client But when its continually looping waiting to receive data from the client. I can't go and use the other buttons in the GUI ? wend Help! Link to comment Share on other sites More sharing options...
cembry90 Posted October 22, 2010 Share Posted October 22, 2010 In my program i'm running the standard While Wend for the GUI looping while 1; Server Chat client EXCEPT built onto the main GUI I have a Server Chat Client But when its continually looping waiting to receive data from the client. I can't go and use the other buttons in the GUI ? wendHelp!Care to post your code? It would be easier to help you if you did. AutoIt Stuff: UDFs: {Grow} Link to comment Share on other sites More sharing options...
Ghost21 Posted October 22, 2010 Author Share Posted October 22, 2010 Care to post your code? It would be easier to help you if you did. While 1 ; Bunch of if statemenst here for buttons etc. then. If _IsPressed('0D') And GUICtrlRead($Input) <> '' Then $Chatcommands = GUICtrlRead($Input) Local $szIPADDRESS = @IPAddress1 Local $nPORT = 1979 TCPStartup() If StringLeft($Chatcommands, 7) = ".server" Then GUICtrlSetData($Edit, ".server " & $szIPADDRESS & ":" & $nPORT & @CRLF,1) $MainSocket = TCPListen($szIPADDRESS, $nPORT) GUICtrlSetData($Edit, "Listening to port." & @CRLF,1) $TCPServer = "1" GUICtrlSetData($Input, "") ElseIf StringLeft($Chatcommands, 7) = ".client" Then $Chatcommands = StringSplit($Chatcommands, " ") GUICtrlSetData($Edit, ".client " & $Chatcommands[2] & ":" & $nPORT & @CRLF,1) $MainSocket = TCPConnect($Chatcommands[2], $nPORT) GUICtrlSetData($Edit, "Connecting to server." & @CRLF,1) GUICtrlSetData($Input, "") ElseIf $Chatcommands <> "" Then GUICtrlSetData($Edit, $Chatcommands & @CRLF,1) $Msg = $Chatcommands _SendAll($Msg) GUICtrlSetData($Input, "") Else EndIf ;GUICtrlSetData($Edit, $Chatcommands & @CRLF) Else EndIf If $TCPServer = "1" Then $ConnectedSocket = TCPAccept($MainSocket) If $ConnectedSocket <> -1 Then $szIP_Accepted = SocketToIP($ConnectedSocket) GUICtrlSetData($Edit, "Client Connected:" & $szIP_Accepted & @CRLF,1) msgbox(0,"Trying to receive data","here") $recv = TCPRecv($ConnectedSocket, 2048) If $recv <> "" Then If StringLeft($recv, 5) = ".user" Then $Clientuser = StringSplit($recv, " ") GUICtrlSetData($Edit, "<" & $Clientuser[2] & "> " & $recv & @CRLF,1) Else GUICtrlSetData($Edit, "<" & $szIP_Accepted & "> " & $recv & @CRLF,1) EndIf Else EndIf Else EndIf Else EndIf WEnd 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