Twix1124
27-07-2009, 11:03
Сервер:
#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 поставить мой айпишник, то сервер не запускается...
#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 поставить мой айпишник, то сервер не запускается...