[网络通信] [以解决]我在论坛找的TCP通信例子，为什么打开发送端，接收端就会自己关闭呢？

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>

;~ 我是服务端，请先启动我。

TCPStartup() ; 启动 TCP 服务.

; 注册脚本关闭时调用的退出函数 OnAutoItExit().
OnAutoItExitRegister('OnAutoItExit')

; 分配局部变量回送 IP 地址和端口.
Global $sIPAddress = @IPAddress1 ; 此 IP 地址仅用于在您自己的计算机上测试.
Global $iPort = 65432 ; 用于连接的端口.

$hGui1 = GUICreate('服务端 (IP: ' & $sIPAddress & ')', 400, 300)
$Edit1 = GUICtrlCreateEdit('', 10, 10, 380, 280)
GUISetState()

_TCPServer_RecvData($sIPAddress, $iPort)

Func _TCPServer_RecvData($sIPAddress, $iPort)
        ; 分配一个局部变量套接字并绑定到的IP地址和端口, 指定最多 100 个挂起的联接.
        Local $iListenSocket = TCPListen($sIPAddress, $iPort, 100)
        Local $iError = 0
        Local Const $iMaxLen = 1024 * 1024

        If @error Then
                ; 可能有人已经在侦听此 IP 地址和端口(脚本已经在运行吗?).
                $iError = @error
                MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), '', '服务器:' & @CRLF & '不能接听, 错误代码: ' & $iError)
                Return False
        EndIf

        ; 指定客户端使用的套接字到本地变量.
        Local $iSocket = 0

        Do ; 等待有人来连接 (无限制).
                ; 接受存在的传入联接(完成时关闭套接字; 每个客户端一个套接字).
                $iSocket = TCPAccept($iListenSocket)

                ; 如果发生错误, 则显示错误代码, 并返回 False.
                If @error Then
                        $iError = @error
                        MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), '', '服务器:' & @CRLF & '不能接收传入的连接，错误代码: ' & $iError)
                        Return False
                EndIf
                
                If $iSocket <> -1 Then
                        $sReceived = TCPRecv($iSocket, $iMaxLen, 1)
                        If $sReceived <> '' Then GUICtrlSetData($Edit1, BinaryToString($sReceived, 4), 1)
                EndIf

        Until GUIGetMsg() = -3 ;如果不是 -1 则是一个客户端连接.

        ; 关闭侦听套接字允许之后绑定.
        TCPCloseSocket($iListenSocket)

        ; 关闭套接字.
        TCPCloseSocket($iSocket)
EndFunc   ;==>_TCPServer_RecvData

Func SocketToIP($iSocket)
        Local $tSockAddr, $aRet
        $tSockAddr = DllStructCreate('short;ushort;uint;char[8]')
        $aRet = DllCall('Ws2_32.dll', 'int', 'getpeername', 'int', $iSocket, 'struct*', $tSockAddr, 'int*', DllStructGetSize($tSockAddr))
        If Not @error And $aRet[0] = 0 Then
                $aRet = DllCall('Ws2_32.dll', 'str', 'inet_ntoa', 'int', DllStructGetData($tSockAddr, 3))
                If Not @error Then Return $aRet[0]
        EndIf
        Return 0
EndFunc   ;==>SocketToIP

Func OnAutoItExit()
        TCPShutdown() ; 关闭 TCP 服务.
EndFunc   ;==>OnAutoItExit

#include <GuiIPAddress.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;~ 我是客户端，请先启动服务端。
;~ ShellExecute(@ScriptDir & '\服务端.au3')

TCPStartup() ; 启动 TCP 服务.

; 注册脚本关闭时调用的退出函数 OnAutoItExit().
OnAutoItExitRegister('OnAutoItExit')

; 分配局部变量回送 IP 地址和端口.
Global $sIPAddress = @IPAddress1 ; 此 IP 地址仅用于在您自己的计算机上测试.
Global $iPort = 65432 ; 用于连接的端口.

$hGui1 = GUICreate('客户端 (IP: ' & $sIPAddress & ')', 400, 300)
$Edit1 = GUICtrlCreateEdit('', 10, 10, 380, 200)

GUICtrlCreateLabel('服务端IP：', 10, 230, 60, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($hGui1, 70, 226, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, @IPAddress1)
GUICtrlCreateLabel('：', 210, 230, 10, 17)
$Input1 = GUICtrlCreateInput('65432', 225, 226, 60, 21)

GUICtrlCreateLabel('发送信息：', 10, 266, 60, 17)
$Input2 = GUICtrlCreateInput('', 70, 262, 240, 21)
$Button1 = GUICtrlCreateButton('发送', 310, 260, 80, 25)
GUISetState()

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $Button1
                        _TCP_SendData()

        EndSwitch
WEnd

Func _TCP_SendData()
        $sIPAddress = _GUICtrlIpAddress_Get($IPAddress1)
        $iPort = GUICtrlRead($Input1)
        $sData = GUICtrlRead($Input2)
        
        If $sData <> '' Then
                If $sIPAddress = '' Then $sIPAddress = @IPAddress1
                If $iPort = '' Then $iPort = 65432
                
                $sData = $sIPAddress & ' ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF & $sData & @CRLF & @CRLF
                _TCPClient_SendData($sIPAddress, $iPort, $sData)
                GUICtrlSetData($Edit1, $sData, 1)
                GUICtrlSetData($Input2, '')
        EndIf
EndFunc   ;==>_TCP_SendData

Func _TCPClient_SendData($sIPAddress, $iPort, $sData)
        ; 分配本地变量一个套接字, 并连接到指定侦听套接字的 IP 地址与端口.
        Local $iSocket = TCPConnect($sIPAddress, $iPort)
        Local $iError = 0

        ; 如果发生错误, 则显示错误代码, 并返回 False.
        If @error Then
                ; 该服务器可能离线或未打开服务器的端口.
                $iError = @error
                MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), '', '客户端:' & @CRLF & '无法连接, 错误代码: ' & $iError)
                Return False
        EndIf

        TCPSend($iSocket, StringToBinary($sData, 4))

        ; 如果发生错误, 则显示错误代码, 并返回 False.
        If @error Then
                $iError = @error
                MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), '', '客户端:' & @CRLF & '无法发送数据, 错误代码: ' & $iError)
                Return False
        EndIf

        ; 关闭套接字.
        TCPCloseSocket($iSocket)
EndFunc   ;==>_TCPClient_SendData

Func OnAutoItExit()
        TCPShutdown() ; 关闭 TCP 服务.
EndFunc   ;==>OnAutoItExit