Федеральное агентство по образованию
Уфимский Государственный Авиационный Технический Университет
Лабораторная работа №1
по сетевым технологиям
Отправка и приём сообщений
Выполнил:
Проверил: Плеханов С.В.
УФА 2006
Постановка задачи:
Необходимо написать программу, которая использует протокол UDP при отправке и приеме сообщений по указанному адресу.
Текст программы:
Private Sub Command2_Click()
ws.SendData (Text1.Text)
End Sub
Private Sub Form_Load()
ws.RemoteHost = host.Text
ws.RemotePort = 1001
ws.LocalPort = 1001
End Sub
Private Sub Ok_Click()
ws.RemoteHost = host.Text
End Sub
Private Sub ws_DataArrival(ByVal bytes As Long)
Dim str As String
ws.GetData str
Text2.Text = str
hostIP.Text = ws.RemoteHostIP
End Sub
Пример реализации:
Пример№1: отправка текста "Привет" на IP 10.61.11.225
Принятие текста "Hi" от IP 10.61.11.225
Пример№2: отправка текста "Привет" на свой IP 127.0.0.1
Вывод:
В результате работы на Visual Basic 6.0 научились писать программу отправки и получения сообщений. программа определяет IP-адрес отправителя.