'Sending end:' By wgscd Dim sendsocket As New Net.Sockets.Socket (Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp) 'Examples of the socket Dim ipendpiont As New Net . Lendpoint ("127.0.0.1"), 8888) 'Established endpoint' OpenFiledialog1.ShowDialog () DIM FS AS NEW IO.FILESTREAM ("c: /wgscd.dat", IO.FILEMODE.Openorcreate , IO.FileAccess.read) 'Document to transfer DIM FSSIZE (fs.length - 1) AS BYTE DIM STREAD AS New IO.BINARYREADER (FS)' stream processing files to be transferred 'fs.read (fssize, 0, fssize .Lead.read (Fssize, 0, Fssize.Length - 1) Sendsocket.connect (IpendPIONT) 'Connecting Remote Computer Sendsocket.send (fssize)' Send file label1.text = fs.length () fs.close () SendSocket.shutdown (net.sockets.socketshutdown.send) 'Close Send Connection Sendsocket.close () closing this machine socket ====================== ================= Receiver: 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)' listening to 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 () 'consent and transmitting side computer to establish a connection hostsocket .Receive (Recbyte) if hostsocket.receive (recbyte)> 0.1 Then Msgbox ("YYYYY" & hostsocket.receive (recbyte)) endiff
DIM RECFS AS NEW IO.FILESTREAM ("C: /WGSCD2.DAT", IO.FILEMODE.Openorcreate) 'Receive data and saves it to a new file
Dim NewFilestr As New I.BINARYWRITER (RECFS) 'Flow' 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
