Ghost21 Posted October 26, 2010 Share Posted October 26, 2010 My problem is that if I run my program once compiled and once not and Compiled version is the server. I can't send text out but I can receive text in. The way I have made it is that you can be either the .server or the .client ??? What's wrong ? While 1 If _IsPressed('0D') And GUICtrlRead($Input) <> '' Then $Chatcommands = GUICtrlRead($Input) Local $szIPADDRESS = @IPAddress1 Local $nPORT = 1979 If StringLeft($Chatcommands, 7) = ".server" Then GUICtrlSetData($Edit, ".server " & $szIPADDRESS & ":" & $nPORT & @CRLF, 1) $MainSocket = TCPListen($szIPADDRESS, $nPORT, 5) GUICtrlSetData($Edit, "<Server> 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) $ConnectedSocket = TCPConnect($Chatcommands[2], $nPORT) GUICtrlSetData($Edit, "Connecting to server @ " & $Chatcommands[2] & @CRLF, 1) $TCPServer = "2" GUICtrlSetData($Input, "") Else If $Chatcommands <> "" Then If $ConnectedSocket >= 0 Then msgbox(0,"here","client") TCPSend($ConnectedSocket, $Chatcommands) GUICtrlSetData($Input, "") $Chatcommands = "" Else msgbox(0,"here","server") TCPSend($MainSocket, $Chatcommands) ;TCPSend($ConnectedSocket, $Chatcommands) GUICtrlSetData($Input, "") EndIf Else GUICtrlSetData($Input, "") $Chatcommands = "" EndIf EndIf Else EndIf If $TCPServer = "1" Then $recvSocket = TCPAccept($MainSocket) If $recvSocket <> -1 Then $szIP_Accepted = SocketToIP($recvSocket) GUICtrlSetData($Edit, "Client Connected. <" & $szIP_Accepted & "> " & $recv & @CRLF, 1) TCPSend($MainSocket, "HELLO FROM CLIENT") $TCPServer = "3" $recv = TCPRecv($recvSocket, 2048) If $recv <> "" Then GUICtrlSetData($Edit, "Client > Server <" & $szIP_Accepted & "> " & $recv & @CRLF, 1) Else EndIf Else EndIf Else EndIf If $TCPServer = "2" Then $recv = TCPRecv($ConnectedSocket, 2048) If $recv <> "" Then GUICtrlSetData($Edit, "Server > Client" & $szIP_Accepted & "> " & $recv & @CRLF, 1) Else EndIf Else EndIf If $TCPServer = "3" Then $recv = TCPRecv($recvSocket, 2048) If $recv <> "" Then GUICtrlSetData($Edit, "Client > Server <" & $szIP_Accepted & "> " & $recv & @CRLF, 1) Else EndIf Else EndIf WEnd Link to comment Share on other sites More sharing options...
Oneqa Posted October 26, 2010 Share Posted October 26, 2010 How about posting your script in autoit quote? and posting the whole script may also be easier for others to troubleshoot your script Link to comment Share on other sites More sharing options...
Ghost21 Posted October 26, 2010 Author Share Posted October 26, 2010 How about posting your script in autoit quote? and posting the whole script may also be easier for others to troubleshoot your scriptI will try the quote but the script is way to big to post the whole thing .. nor do I really want to at this point... 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