;
; ------------------------------------------------------------
;
;   PureBasic - Network (Client) example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

If InitNetwork() = 0
  MessageRequester("Ошибка", "Не удается инициализировать сеть!", 0)
  End
EndIf

Port = 6832

ConnectionID = OpenNetworkConnection("127.0.0.1", Port)
If ConnectionID
  MessageRequester("PureBasic - Client", "Клиент, подключен к серверу...", 0)
  
  SendNetworkString(ConnectionID, "Привет от клиента!!! :-)", #PB_UTF8)
    
  MessageRequester("PureBasic - Client", "Строка была отправлена на сервер, пожалуйста, проверьте ее перед выходом...", 0)
  
  CloseNetworkConnection(ConnectionID)
Else
  MessageRequester("PureBasic - Client", "Не удается найти сервер (он запущен?).", 0)
EndIf
  
End