本帖最后由 heavenm 于 2017-5-9 16:44 编辑
http://autoitx.com/forum.php?mod ... ertype=0&page=1#cs
Download netcat at https://eternallybored.org/misc/netcat/
Execute this script
Run in CMD:
nc -vv 127.0.0.1 8081
#ce
#include "TCPServer.au3"
; First we set the callback functions for the three events (none of them is mandatory)
_TCPServer_OnConnect("connected")
_TCPServer_OnDisconnect("disconnect")
_TCPServer_OnReceive("received")
; And some parameters
_TCPServer_DebugMode(True)
_TCPServer_SetMaxClients(10)
; Finally we start the server at port 8081 at any interface
_TCPServer_Start(7930)
Sleep(5000)
MsgBox(0, '','两个客户端连接，我就弹不出来了！')
Func connected($iSocket, $sIP)
;~ _TCPServer_Broadcast('new client connected guys', $iSocket)
_TCPServer_Send($iSocket, $COOKIE_IQIYI & @CRLF)
_TCPServer_SetParam($iSocket, "will write")
EndFunc ;==>connected
Func disconnect($iSocket, $sIP)
MsgBox(0, "Client disconnected", "Client " & $sIP & " disconnected from socket " & $iSocket)
EndFunc ;==>disconnect
Func received($iSocket, $sIP, $sData, $sPar)
MsgBox(0, "Data received from " & $sIP, $sData & @CRLF & "Parameter: " & $sPar)
_TCPServer_Send($iSocket, "You wrote: " & $sData)
_TCPServer_SetParam($iSocket, 'will write again')
EndFunc ;==>received
While 1
Sleep(100)
WEnd
| 
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2017-5-9 16:25:08