Работа с сетью в ВБ.НЕТ

[goro]

Люди помогите как мне по протоколу UDP отправить по порту, к примеру 2112 на определенный АйПи адрес строку типа "Привет мир" ??? Желательно примерчик кода...
Премного благодарен.

[Грандж]

ууу.. с примером кода придёцца подождать ибо под рукой басика нету.. а принцип отправки посмари по старым постингам(был уже вопрос). и вапще, зачем нужна UDP?

[goro]

ууу.. с примером кода придёцца подождать ибо под рукой басика нету.. а принцип отправки посмари по старым постингам(был уже вопрос). и вапще, зачем нужна UDP?

Da nuzhno prosto. Izvinite za yazik no chtoto ne rabotaet russkiy yazik.
POMOGITE LUDI!!! PLEEEES!

[Грандж]

блин
короче
юзаешь namespace System.Net.Sockets и пасмари в мсдн.. тама есть всё
делаешь две проги: клиент и сервер
юдипи слушать не надо.. просто на сервере открываешь сокет и всё
и на событие "данные пришли" делаешь мессажбокс с текстом который придёт

а в клиенте создаёшь сокет и отправляешь им строку. вот и всё...
скачай 101 vb .net samples.. там tcp, но переделать можно

[goro]

блин
короче
юзаешь namespace System.Net.Sockets и пасмари в мсдн.. тама есть всё
делаешь две проги: клиент и сервер
юдипи слушать не надо.. просто на сервере открываешь сокет и всё
и на событие "данные пришли" делаешь мессажбокс с текстом который придёт

а в клиенте создаёшь сокет и отправляешь им строку. вот и всё...
скачай 101 vb .net samples.. там tcp, но переделать можно

А где скачать то?

[Грандж]

где-то в архивах постингов было..
101VBnetSamples*.*
посмари на сайте майкрософта.. но я качал с зеркала какого-то

[areh]

Точно не помню, но примерно так:

http://download.microsoft.com/download/e/d/2/ed214d90-68c3-400f-8ae4-b616845af10b/101vbnetsamples.exe

[CREATOR]

Где-то это уже проскальзывало ......
Можно примерно тfr .......
А вообще копай пространство - System.Net.Sockets ....
[Imports System.IO
Imports System.Net.Sockets
Imports System.Text

Public Class SocketMail
Private _subject As String
Private _to As String
Private _server As String
Private _port As Integer = 25
Private _body As String
Private _date As Date = Now
Private _from As String
Private _cc As String
Private _bcc As String

Private ns As NetworkStream
Private client As New TcpClient()

Public Sub New()
End Sub

Public Sub New(ByVal server As String, ByVal port As Integer)
_server = server
_port = port
End Sub

Public Sub New(ByVal server As String, ByVal port As Integer, _
ByVal from As String, ByVal [to] As String, _
ByVal subject As String, ByVal message As String)
_server = server
_port = port
_from = from
_to = [to]
_subject = subject
_body = message
End Sub

Public Property SMTPServer() As String
Get
Return _server
End Get
Set(ByVal Value As String)
_server = Value
End Set
End Property

Public Property [To]() As String
Get
Return _to
End Get
Set(ByVal Value As String)
_to = Value
End Set
End Property

Public Property From() As String
Get
Return _from
End Get
Set(ByVal Value As String)
_from = Value
End Set
End Property

Public Property CarbonCopy() As String
Get
Return _cc
End Get
Set(ByVal Value As String)
_cc = Value
End Set
End Property

Public Property BlindCarbonCopy() As String
Get
Return _bcc
End Get
Set(ByVal Value As String)
_bcc = Value
End Set
End Property


Public Property Port() As Integer
Get
Return _port
End Get
Set(ByVal Value As Integer)
_port = Value
End Set
End Property

Public Property Message() As String
Get
Return _body
End Get
Set(ByVal Value As String)
_body = Value
End Set
End Property

Public Property SendDate() As Date
Get
Return _date
End Get
Set(ByVal Value As Date)
_date = Value
End Set
End Property

Public Property Subject() As String
Get
Return _subject
End Get
Set(ByVal Value As String)
_subject = Value
End Set
End Property

Public Function Open()
client.Connect(_server, _port)

ns = client.GetStream()

Dim strMessage As String = "HELO TEST" & ControlChars.CrLf

Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(strMessage)
ns.Write(sendBytes, 0, sendBytes.Length)
End Function

Public Function Close()
Try
Dim strMessage As String = "QUIT" & ControlChars.CrLf

Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(strMessage)
ns.Write(sendBytes, 0, sendBytes.Length)
Catch

End Try

client.Close()
End Function

Public Function Send() As Boolean
Try
Dim response As Integer
Dim strMessage As String

strMessage = "MAIL FROM:" & _from & ControlChars.CrLf & _
"RCPT TO:" & _to & ControlChars.CrLf & _
"DATA" & ControlChars.CrLf & _
"date:" & _date.ToString & ControlChars.CrLf & _
"from:" & _from & ControlChars.CrLf & _
"to:" & _to & ControlChars.CrLf & _
"cc:" & _cc & ControlChars.CrLf & _
"bcc:" & _bcc & ControlChars.CrLf & _
"subject:" & _subject & ControlChars.CrLf & _
_body & ControlChars.CrLf & _
"." & ControlChars.CrLf

Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(strMessage)
ns.Write(sendBytes, 0, sendBytes.Length)
Finally
client.Close()
End Try

Return True
End Function

End Class]
Далее юзаешь в творении -
[Dim m As New SocketMail("123.125.251.21", 25)

With m
m.To = "Test@Test.com"
m.From = "Yes@Yes.com"
m.Subject = "This is my subject"
m.Message = "This is my message text"

m.Open()
m.Send()
m.Close()
End With]
Вроде так, почемуто так записал .... Должно зажить

[ASD]

Хороший пример. Тока причем тут UDP.
SMTP не юзает UDP пакетов.

[ASD]

Хороший пример. Тока причем тут UDP.
SMTP не юзает UDP пакетов.

[CREATOR]

Да конечно же, по запарке не то кинул
Я тут контрол рисую ......
Совсем с событиями окон запарился..........
в догонку .......
[Imports System.Net.Sockets
Imports System.Text.Encoding

Public Class Socket

Private MySocket As New UdpClient()

Public Function SendText(ByVal sValue As String, ByVal sRemoteHost As String, ByVal sRemotePort As Integer)

Dim MyByte = ASCII.GetBytes(sValue)

MySocket.Send(MyByte, MyByte.Length, sRemoteHost, sRemotePort)

End Function

End Class]
Далее в программе примерно так ......
[Private MySock As New Socket()

MySock.SendText("Text", "LocalHost", 80)][/code]

[CREATOR]

Вспомнил .......
У меня как - то был трабл сприёмом отправкой, а именно%
Порты на приём и отправку должны быть различны
Много помню я времени потратил на это, как то далал асинхронную передачу\приём данных чтоб не грузить серв ......
Пользуйся, вроде всё так и жило, сейчас не помню, искать лень ....
Удачи

[goro]

Класс! Спасибо всем.