http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Net.Sockets%2FUdpClient
VB.Net by API/System.Net.Sockets/UdpClient - История изменений
2026-04-05T06:49:32Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Net.Sockets/UdpClient&diff=2301&oldid=prev
в 16:40, 26 мая 2010
2010-05-26T16:40:16Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Net.Sockets/UdpClient&diff=2302&oldid=prev
Admin: 1 версия
2010-05-26T12:50:30Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==UdpClient.DropMulticastGroup==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Net.Sockets<br />
Imports System.Text<br />
Imports System.IO<br />
Imports System.Net<br />
Imports System.Threading<br />
Public Class Tester<br />
Dim Shared GroupIP As IPAddress<br />
Dim Shared GroupEP As IPEndPoint<br />
Dim Shared ListenUdp As UdpClient<br />
Public Shared Sub Main<br />
Dim ListenThread As Thread<br />
ListenThread = New Thread(AddressOf BeginListen)<br />
ListenThread.Start()<br />
" ListenUdp.DropMulticastGroup(GroupIP)<br />
" ListenUdp.Close()<br />
" ListenThread.Abort()<br />
End Sub<br />
Private Shared Sub BeginListen()<br />
Dim bteReceiveData() As Byte<br />
Dim strReceiveData As String<br />
GroupIP = IPAddress.Parse("127.0.0.1")<br />
GroupEP = New IPEndPoint(GroupIP, 12345)<br />
ListenUdp = New UdpClient(12345)<br />
ListenUdp.JoinMulticastGroup(GroupIP)<br />
Do<br />
bteReceiveData = ListenUdp.Receive(GroupEP)<br />
strReceiveData = Encoding.Unicode.GetString(bteReceiveData)<br />
Console.WriteLine(strReceiveData)<br />
Loop<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==UdpClient.JoinMulticastGroup==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
Imports System.Net.Sockets<br />
Imports System.Text<br />
Imports System.IO<br />
Imports System.Net<br />
Imports System.Threading<br />
Public Class Tester<br />
Public Shared Sub Main<br />
Dim GroupEP As IPEndPoint<br />
Dim SendUdp As New UdpClient()<br />
Dim GroupIP As IPAddress<br />
GroupIP = IPAddress.Parse("127.0.0.1")<br />
GroupEP = New IPEndPoint(GroupIP, 12345)<br />
SendUdp.JoinMulticastGroup(GroupIP, 12)<br />
Dim bteSendDate() As Byte<br />
Try<br />
bteSendDate = Encoding.Unicode.GetBytes("message")<br />
SendUdp.Send(bteSendDate, bteSendDate.Length, GroupEP)<br />
Catch ex As Exception<br />
Console.WriteLine(ex.Message)<br />
End Try<br />
<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==UdpClient.Receive==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System<br />
Imports System.Net<br />
Imports System.Net.Sockets<br />
Imports System.Text<br />
Public Class Tester<br />
Public Shared Sub Main<br />
<br />
Dim MyIP As IPAddress<br />
Dim bytes(200) As Byte<br />
Dim Port1 As Integer = 8080<br />
Dim port2 As Integer = 3128<br />
MyIP = IPAddress.Parse("166.111.175.81")<br />
Dim myLocal As New IPEndPoint(MyIP, Port1)<br />
Dim myRemote As New IPEndPoint(MyIP, port2)<br />
Dim receive1 As New UdpClient(myRemote)<br />
Dim send1 As New UdpClient(myLocal)<br />
Try<br />
bytes = System.Text.Encoding.ASCII.GetBytes("AAA")<br />
send1.Send(bytes, bytes.Length, myRemote)<br />
receive1.Receive(myLocal)<br />
Catch ex As Exception<br />
Console.WriteLine("Error")<br />
End Try<br />
send1.Close()<br />
receive1.Close()<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>
Admin