Mega Code Archive

 

Categories / VB.Net Tutorial / Socket Network

 

Use UdpClient to send a file

Imports System.Net.Sockets Imports System.Text Imports System.IO Public Class Tester     Public Shared Sub Main         Try             Dim dataSend() As Byte             Dim myUdpClient As UdpClient = New UdpClient("127.0.0.1", 12345)             Dim myFilestream As FileStream             myFilestream = New FileStream("test.txt", FileMode.Open, FileAccess.Read)             ReDim dataSend(myFilestream.Length)             myFilestream.Read(dataSend, 0, myFilestream.Length)             myUdpClient.Send(dataSend, dataSend.Length)             myFilestream.Close()             myUdpClient.Close()         Catch e As Exception             Console.WriteLine(e.Message)         End Try     End Sub End Class