Через ТСП делал так:
MyMachine$ = Trim(Input$("Сервер/клиент 0/1 "))
If MyMachine = 0 Then
Game = CreateTCPServer(8080)
If Game <> 0 Then
Print "Сервер запущен"
Else
Print "Не удалось запустить сервер"
End If
ElseIf MyMachine$ = 1
IP$ = Trim(Input$("IP сервера: "))
Game = OpenTCPStream(IP$,8080)
If Game <> 0 Then
Print "Подключение прошло успешно"
Else
Print "Не удалось подключится к серверу"
End If
End If
WiteKey