如何循环等待服务器连接

simxinzi

TCP函数中如何循环等待服务器连接？

当服务器无法连接或服务器关闭时或服务端程序关闭时循环等待，直到服务器端开启。

haodd

做个错误判断 然后再等待啊！~

yeqing880

Local $lianjie = 0 ,$connect

TCPStartup()

$MSocket = TCPListen (@IPAddress1,2828,100)

While 1
        
        If $lianjie = 1 Then 
        $Recmsg = TCPRecv ($connect,2048,1)
        If @error Then 
        MsgBox (0,0,"断开")
        $lianjie = 0
        Accept()
   EndIf
   Else
        Accept()
        EndIf
WEnd

Func Accept()
  If $lianjie = 0 Then
  $connect =  TCPAccept($MSocket)
  If $connect <> -1 Then 
          $lianjie = 1
    MsgBox (0,0,"已连接")
  EndIf
 EndIf
EndFunc

hapon

记号一下。