允許套接字(socket)的嘗試連接.
TCPAccept ( 主套接字 )
主套接字 | 由 TCPListen 函數(shù)返回的套接字標(biāo)識(shí)(SocketID). |
成功: | 返回連接套接字的標(biāo)識(shí)符. |
失敗: | 返回 -1, 并設(shè)置 @error |
@error: | 為 windows API WSAGetError 的返回值 (請(qǐng)查閱 MSDN). |
;服務(wù)器!! 請(qǐng)先運(yùn)行 !!!!!!!!!!!!!!!
Local $g_IP
= "127.0.0.1"
; 開(kāi)始 TCP 服務(wù)
;==============================================
TCPStartup()
; 創(chuàng)建監(jiān)聽(tīng)套接字 "SOCKET"
;==============================================
Local $MainSocket
= TCPListen($g_IP, 65432, 100)
If $MainSocket
= -1 Then Exit
; 尋找客戶(hù)端連接
;--------------------
While 1
Local
$ConnectedSocket =
TCPAccept($MainSocket)
If
$ConnectedSocket >= 0 Then
MsgBox(0, "", "我的服務(wù)器 -
客戶(hù)端已連接")
Exit
EndIf
WEnd
provider with jb51.net (unicode) |