Код:
Код: Выделить всё
#RequireAdmin
TCPStartup()
$TCPListen = TCPListen(@IPaddress1, 26481)
do
$TCPAccept = TCPAccept($TCPListen)
Until $TCPAccept -1
do
$TCPReciev = TCPRecv($TCPAccept, 1000000)
Until $TCPReciev ""
MsgBox(0, "Data recieved", $TCPReciev)Клиент:
Код:
Код: Выделить всё
#RequireAdmin
TCPStartup()
$TCPconnect = TCPConnect(@IPAddress1, 26481)
Sleep(2000)
if $TCPconnect == -1 Then exit
TCPSend($TCPconnect, String(Random(1,10,1)))Если вместо IP поставить мой айпишник, то сервер не запускается...