#Include "allinclude.bi"
Dim hwnd As HWND
Dim sock As socket
Dim servaddr As sockaddr_in
With servaddr
   .sin_family = AF_INET
   .sin_port = htons (9001) ' à âîò òóò óæå óêàçûâàåì ïîðò, êîòîðûé ñëóøàåò ñåðâåð
   .sin_addr.s_addr = inet_addr ("127.0.0.1") ' ýòî IP ñåðâåðà
End With
Dim buff As ZString*64
buff="123445"
hwnd=OpenWindow("Client", 100, 100, 100, 100)
sock=InitSocket(hwnd)
Do
  Var event=WindowEvent
  If event=EventClose then
   End
  End If
  SendPocket(sock, buff, servaddr, hwnd)
Loop

#Include "windows.bi"
#Include "win/winsock.bi"

Function InitSocket(hwnd As HWND) As socket
Dim wsaData As WSADATA
If WSAStartup (MAKEWORD (2, 0), @wsaData) = SOCKET_ERROR Then
   MessageBox(hwnd, "Socket error", "=*ERROR*=", MB_OK)
   End
End If

Dim sd As socket
sd = opensocket (PF_INET, SOCK_DGRAM, IPPROTO_UDP)
If sd = INVALID_SOCKET Then  
   MessageBox(hwnd, "Socket open error", "*=ERROR=*", MB_OK)
   WSACleanup ()
   End
End If

Dim sa As sockaddr_in
With sa
   .sin_family = AF_INET
   .sin_port = 0 ' ïåðâîå îòëè÷èå - ëîêàëüíûé ïîðò êëèåíòà íå âàæåí, winsock ñàìà âûáåðåò ïîäõîäÿùèé ñâîáîäíûé
                     ' ÂÍÈÌÀÍÈÅ! åñëè óêàçàòü çäåñü ïîðò ñåðâåðà, ïîñëå bind () ïîëó÷èòå îøèáêó 10048 "ïîðò çàíÿò"
   .sin_addr.s_addr = INADDR_ANY
End With
If bind (sd, @sa, SizeOf (sa)) = SOCKET_ERROR Then
   MessageBox(hwnd, "Bind error", "*=ERROR=*", MB_OK)
   closesocket (sd)
   WSACleanup ()
   End
End If
Return sd
End Function
Sub SendPocket(sd As socket, sendBuff As ZString*64, servaddr As sockaddr_in, hwnd As HWND)
   If sendto (sd, @sendBuff, SizeOf (sendBuff), 0, @servaddr, SizeOf (servaddr)) = SOCKET_ERROR Then
    MessageBox(hwnd, "Error in sending", "ERROR", MB_OK)
   End If
End Sub

#Include "windows.bi"
#Include "win/winsock.bi"

Dim wsaData As WSADATA
If WSAStartup (MAKEWORD (2, 0), @wsaData) = SOCKET_ERROR Then
   Print "Winsok init error "; WSAGetLastError ()
   Sleep  
   End
End If

Dim Shared sd As socket
sd = opensocket (PF_INET, SOCK_DGRAM, IPPROTO_UDP)
If sd = INVALID_SOCKET Then  
   Print "Socket open error "; WSAGetLastError ()
   WSACleanup ()
   Sleep
   End
End If

Dim Shared sa As sockaddr_in
With sa
   .sin_family = AF_INET
   .sin_port = htons (9001)       
   .sin_addr.s_addr = INADDR_ANY
End With
If bind (sd, @sa, SizeOf (sa)) = SOCKET_ERROR Then
   Print "Bind error "; WSAGetLastError ()
   closesocket (sd)
   WSACleanup ()
   Sleep
   End
End If

Dim recvBuff As ZString * 64  
Dim numrecv  As Integer       

Do  
   Do
       numrecv = recv (sd, @recvBuff, SizeOf (recvBuff), 0)
       recvBuff[numrecv] = 0
   Loop Until Len (recvBuff) > 1  
                    
   Print recvBuff  
Loop Until numrecv = -1   

closesocket (sd)
WSACleanup      
End