尝试接受一个套接字(socket)连接.
TCPAccept ( 主套接字 )
主套接字 | 由 TCPListen 函数返回的套接字标识(SocketID). |
成功: | 返回已连接的套接字标识(SocketID). |
失败: | 返回 -1 并设置 @error. |
@error: | windows API WSAGetError 返回值 (参考 MSDN). |
;服务器!! 请先运行我 !!!!!!!!!!!!!!!
Local $g_IP = "127.0.0.1"
; 开始 TCP 服务
;==============================================
TCPStartup()
; 创建监听套接字(SOCKET)
;==============================================
Local $MainSocket = TCPListen($g_IP, 65432, 100)
If $MainSocket = -1 Then Exit
; 等待客户端连接
;--------------------
While 1
Local $ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
MsgBox(4096,"","我的服务器 - 客户端已连接")
Exit
EndIf
WEnd