'-------------------------------------Server发送端代码如下,如果不明白可下载附件------------------------------------
Imports System.Threading.Thread
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Public Class Form1
Dim s As New UdpClient '这里注意发送文件不再使用Socket,而是用UdpClient
'====================================
Private Sub txtFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFile.Click
Dim FD As New OpenFileDialog
Try
FD.ShowDialog()
txtFile.Text = FD.FileName '选择文件
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
'发送文件
If txtIP.Text = "" Or txtPort.Text = "" Then Exit Sub
Try
Dim IPEndPoin As New IPEndPoint(Net.IPAddress.Parse(Trim(txtIP.Text)), CInt(txtPort.Text))
Sleep(1000)
MessageBox.Show("连接成功!")
Dim fs As New FileStream(txtFile.Text, FileMode.OpenOrCreate, FileAccess.Read) ''要传输的文件
Dim File(fs.Length - 1) As Byte '定义File()数组
Dim strread As New BinaryReader(fs)
strread.Read(File, 0, File.Length) '读取要传输的文件数据
s.Send(File, File.Length, IPEndPoin) '发送文件
lblLen.Text = "已发送字节数:" & fs.Length()