'发送端：

'By wgscd

Dim sendsocket As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)

'实例化socket

Dim ipendpiont As New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 8888) '建立终结点

'OpenFileDialog1.ShowDialog()

Dim fs As New IO.FileStream("c:\wgscd.dat", IO.FileMode.OpenOrCreate, IO.FileAccess.Read) '要传输的文件

Dim fssize(fs.Length - 1) As Byte

Dim strread As New IO.BinaryReader(fs) '流处理要传输的文件

'fs.Read(fssize, 0, fssize.Length - 1)

strread.Read(fssize, 0, fssize.Length - 1)

sendsocket.Connect(ipendpiont) '连接远程计算机

sendsocket.Send(fssize) '发送文件

Label1.Text = fs.Length()

fs.Close()

sendsocket.Shutdown(Net.Sockets.SocketShutdown.Send)

'关闭发送连接

sendsocket.Close() '关闭本机socket

=======================================

接收端：

Dim receivesocket As New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork,Net.Sockets.SocketType.Stream,Net.Sockets.ProtocolType.Tcp)

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

Dim hostipendpiont As New Net.IPEndPoint(Net.IPAddress.Parse("127.0.0.1"), 8888)

receivesocket.Bind(hostipendpiont)

'建立远程计算机的的socket

receivesocket.Listen(2) '监听socket

End Sub

Private Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim recbyte(229888990) As Byte

Dim hostsocket As Net.Sockets.Socket = receivesocket.Accept()

'同意和发送端计算机建立连接

hostsocket.Receive(recbyte)

If hostsocket.Receive(recbyte) > 0.1 Then

MsgBox("yyyyy" & hostsocket.Receive(recbyte))

End If

Dim recfs As New IO.FileStream("c:\wgscd2.dat", IO.FileMode.OpenOrCreate)

'接收数据并将其保存到一个新的文件中

Dim newfilestr As New IO.BinaryWriter(recfs) '流写

'recfs.Write(recbyte, 0, recbyte.Length - 1)

newfilestr.Write(recbyte, 0, recbyte.Length - 1)

recfs.Close()

hostsocket.Shutdown(Net.Sockets.SocketShutdown.Receive)

hostsocket.Close()

End Sub