TCP 서버에 메시지를 보낼 수 없습니다.

Question

저는 여행사에서 일하며 잠시 동안 Autoit을 사용하고 있습니다. 우리는 Autoit으로 만든 TCP 서버를 가지고 있지만 클라이언트는 작동하지 않습니다.

여기에 StackOverflow에 오신 것을 환영합니다 결함이있는 코드

$port = 1942 

$addr = 192.168.101.111 

$connexion = TCPConnect($addr, $port) 

TCPSend("bus has arrived") 

TCPCloseSocket($connexion) 

Answer 1

입니다. 질문을 게시 할 때 메시지 도구 모음에있는 '{}'버튼을 사용하여 코드를 입력하면 더 잘 읽을 수 있습니다.

질문에 대한 몇 가지 실수와 코드에서 빠뜨린 것들이 있습니다.

AutoIT에서 TCP/UDP 관련 작업을 수행하려면 먼저 서비스를 시작한 다음 나중에 종료해야합니다.

많은 프로그래밍 언어에서 문자열 변수는 문자열의 시작과 끝에서 2 ""를 필요로합니다. AutoIT에서도 마찬가지입니다.

TCPSend을 사용하는 경우 첫 번째 매개 변수는 소켓이며 두 번째 매개 변수는 보낼 메시지입니다.

다음은 내가 작성한 스크립트의 예입니다. 자유롭게 수정하십시오. 나는 또한 물건을 주석 처리했습니다.

#Include <ButtonConstants.Au3> 
#Include <EditConstants.Au3> 
#Include <GUIConstantsEx.Au3> 
#Include <StaticConstants.Au3> 
#Include <WindowsConstants.Au3> 
#Include <GUIEdit.Au3> 
#Include <Misc.Au3> 
#NoTrayIcon 
Opt ('GUIOnEventMode', 1) 

;We are using Input boxes so the user can type in the IP/Port/Msg and they will be stored as variables for later use 
$IP = InputBox("SO TCP Connector", "Receiver's IP Address", "0.0.0.0", "", _ 
     - 1, -1, 0, 0) 
$Port = InputBox("SO TCP Connector", "Receiver's Port", "80", "", _ 
     - 1, -1, 0, 0) 
$Message = InputBox("SO TCP Connector", "Message to send", "Sample text", "", _ 
     - 1, -1, 0, 0) 

;Starting the TCP service 
TCPStartup() 

;Opening a socket 
$iSocket = TCPConnect($IP, $Port) 

;Sending our message 
TCPSend($iSocket, $Message) 

;Closing the socket from before 
TCPCloseSocket($iSocket) 

;Stopping the TCP Service 
TCPShutdown()