Imports System.Text '
Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Public Class Form1
Delegate Sub setText(ByVal text As String)
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
socket = New Socket(AddressFamily.InterNetwork,SocketType.Stream,ProtocolType.Tcp)
Dim localEndPoint As New IPEndPoint(Net.IPAddress.Parse("172.17.53.90"),9999)
socket.Bind(localEndPoint)
socket.Listen(3)
SetLableText("~~~~~~~~~~~~服务已开始启动~~~~~~~~~~~~~~")
While True
Dim fileStream As FileStream = New FileStream("mytest.doc",FileMode.OpenOrCreate,FileAccess.ReadWrite)
Dim byteArray(6553500) As Byte
Dim binary As New BinaryWriter(fileStream)
Dim receiveSocket As Socket = socket.Accept()
receiveSocket.Receive(byteArray)
binary.Write(byteArray,byteArray.Length - 1)
receiveSocket.Shutdown(SocketShutdown.Receive)
FileStream.Close()
receiveSocket.Close()
End While
End Sub
Private Sub SetLableText(ByVal txt As String)
If Label1.Invokerequired Then
Dim st As setText = New setText(AddressOf SetLableText)
Me.Invoke(st,New Object() {txt})
Else
Label1.Text = txt
End If
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
Label1.Text = "淡淡的"
End Class
客户端：
Imports System.Text
Dim fileName = ""
OpenFileDialog1.Filter = "All Documents(*.*)|*.*|Word Documents|*.doc"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.InitialDirectory = "c:\"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
fileName = OpenFileDialog1.FileName
TextBox1.Text = fileName
Dim sendSocket As New Socket(AddressFamily.InterNetwork,137)">Dim endPoint As New IPEndPoint(Net.IPAddress.Parse("172.17.53.90"),137)">sendSocket.Connect(endPoint)
Dim file As FileStream = New FileStream(TextBox1.Text,FileMode.Open)
Dim binaryRead As New BinaryReader(file)
Dim byteArray(file.Length - 1) As Byte
binaryRead.Read(byteArray,file.Length - 1)
sendSocket.Send(byteArray)
file.Close()
sendSocket.Shutdown(SocketShutdown.Send)
sendSocket.Close()
Label2.Text = "文档已经创送完毕！"
End Class 原文链接：https://www.f2er.com/vb/259149.html