|
本帖最后由 zhouhaijin 于 2014-12-29 15:49 编辑
TCPListen创建一个套接字(socket)监听
用局域网IP的时候没问题,用广域网IP的时候@error = 10049
我上次也问了这个问题,管理员告诉我说完全没问题,可以用在互联网.不知道哪里出错
TCPStartup()
$socket = TcpListen("125.110.123.214", 8503);这里要是用局域网IP就可以用
MsgBox(0,"",@error)
;If @error <> 0 Then Exit
Do
$CONNECT = TcpAccept ($SOCKET) ;尝试接受一个套接字(socket)连接
Sleep(1)
Until $CONNECT >= 0 ;连接成功
While 1
$data = TCPRecv($CONNECT, 50)
If $data <> "" Then
MsgBox(0,"",$data)
EndIf
sleep(10)
WEnd
Func OnAutoItExit()
TCPCloseSocket($socket)
TCPShutdown()
EndFunc
[ 本帖最后由 zhouhaijin 于 2008-12-28 00:45 编辑 ] |
|