#include socket.ahk
Server := new SocketTCP()
Server.Bind(["192.168.88.100", 8000])
 Server.OnAccept := Func("OnAccept")

Loop
{
SoundBeep 1000,50
Sleep 1000
}

OnAccept(Server)
{
	Sock := Server.Accept()
	loop
	{
	ToolTip, % Sock.RecvText()
	}
	return
}

Не могу понять, как сделать так, что бы сервер всегда ожидал  сообщения, но и что бы главный пищащий луп не прерывался.
Как вариант - это дисконектиться после получения сообщения и что бы клиент опять заново коннектился к серверу для очередного сообщения.
Но это не совсем удобно.