ИнтеллигенцияX

Сегодня мы познакомимся с WinSock контролом.

WinSock - это компонент через который можно соединяться с удаленной машиной и обмениваться с ней данными.

WinSock использует 2 протокола:

1) UDP (User Datagram Protocol)

2) TCP (Transmission Control Protocol).

Оба эти протокола используются для создания Клиент-Серверных приложений.

В этом уроке мы напишем программу клиент - сервер на Visual Basic.NET

Начнем.

Сначала создадим Сервер.

1. Создаем новый проект(Файл->Новый проект->Приложение Windows Form) или у кого версия английская (File->New Project->Application Windows Form)
2. Добавляем элемент WinSock.(смотрите видео кто не знает как добавить WinSock

4. Добавим на форму два TextBox'а и один Button

5. Вот что должно получиться(немного приукрасил)

6. Переходим к коду.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tcpServer.RemoteHost = tcpServer.LocalIP ' RemoteHost должен соответствовать дружественному имени или IP-адресу вашего компьютера
        tcpServer.LocalPort = 2012 ' Задаем порт по которому будет происходить обмен данными
        tcpServer.Listen() ' Слушаем порт
    End Sub
    Private Sub tcpServer_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles tcpServer.ConnectionRequest
        If tcpServer.CtlState <> MSWinsockLib.StateConstants.sckConnected Then tcpServer.Close() ' Проверяет свойство CtlState, если старое соединие не закрыто, то закрываем его принудительно
        tcpServer.Accept(e.requestID) ' Принимаем запрос
    End Sub
    Private Sub tcpServer_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles tcpServer.DataArrival
        tcpServer.GetData(TextBox2.Text) ' В TextBox2 мы будем получать сообщения от клиента
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tcpServer.SendData(TextBox1.Text) ' Посылаем клиенту текст из TextBox1
    End Sub
End Class

7. С сервером мы закончили. Сохраняем его и создаем новый проект. Это будет у нас клиент.12.  На форму добавляем WinSock , два TextBox и два Button13. У WinSock изменим свойство Name на tcpClient14. Вот что должно получиться

8.  Переходим к коду.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tcpClient.RemoteHost = tcpClient.LocalIP ' Будем коннектиться к серверу по тому же локальному айпи адресу
        tcpClient.RemotePort = 2012 ' Такой же порт как и в сервере
    End Sub
    Private Sub tcpClient_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles tcpClient.DataArrival
        tcpClient.GetData(TextBox2.Text) ' В TextBox2 будем получать текст от сервера
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tcpClient.Connect() ' Создаем соединение
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tcpClient.SendData(TextBox1.Text) ' Отправляем текст серверу
    End Sub
End Class

Сохраняем клиент.

Запускаем сервер, а потом клиент.

В клиенте кликаем на кнопку "Подключиться", а потом вводим текст в первое текстовое поле и нажимаем на кнопку "Отправить", этот текст буден виден во втором текстовом поле в сервере.

Загрузить проект