Imports System.Net 
Imports System.Net.Sockets
Imports System.IO

Public Class Form1
    Dim clienteSocket As New System.Net.Sockets.TcpClient() 
    Dim serverStream As NetworkStream 
    Dim fs As FileStream = Nothing
    Dim NombreArchivo As String

    Public Sub txtConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtConectar.Click
        
        Try
            clienteSocket.Connect(txtIP_FTPServer.Text, txtPuerto_FTPServer.Text) 
            txtEstatus.Text = "Estatus : Connectado ..."
            serverStream = clienteSocket.GetStream() 
            txtLog.Text = "" & "Conectado" & vbCrLf
        Catch ex As Exception
            txtEstatus.Text = "Error de conexión : " & ex.Message
        End Try
    End Sub
    Private Sub txtBuscarArchivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscarArchivo.Click
        NombreArchivo = "c:\temp\" & txtfileName.Text & ".txt"

        Try                                      
            OpenFileDialog1.ShowDialog()
            NombreArchivo = OpenFileDialog1.FileName
            txtfileName.Text = NombreArchivo

        Catch ex As Exception
            MsgBox("Error al crear/abrir archivo : " & NombreArchivo & " " & ex.Message) 'metodo indica q tipo de error es el que se encuentra
        End Try

    End Sub
    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click ' enviar informacion
        Dim nombre As String
        nombre = Path.GetFileName(NombreArchivo)

        Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes("ARCHIVO: " & nombre) 'ESTE OBJETO SE NECESITA SIEMPRE
        Dim buffSize As Integer ' PARA QUE EL SERVIDOR SEPA CUANTA INFO SE LE VA A ENVIAR

        Dim inStream(10024) As Byte 
        Dim returndata As String = System.Text.Encoding.ASCII.GetString(inStream) 
        Try
            'PARA ENVIARLE DATA AL SERVIDOR
            serverStream.Write(outStream, 0, outStream.Length) ' PARA ENVIAR LA INFO...ARREGLO DE BYTES, DESDE DOMDE COMIENZA LA INFO, CUANTO LE ESTAMOS ENVIANDO
            serverStream.Flush()
          
            txtLog.Text = txtLog.Text & "Cliente dice >> " & "ARCHIVO: " & nombre

            'Socket recibida del server
            buffSize = clienteSocket.ReceiveBufferSize 
            serverStream.Read(inStream, 0, buffSize)
            returndata = System.Text.Encoding.ASCII.GetString(inStream)

            txtLog.Text = txtLog.Text & returndata & vbCrLf

            txtEstatus.Text = "Socket desconectado"

        Catch ex As Exception
            txtEstatus.Text = "Error : " & ex.Message
        End Try
    
    End Sub

    Private Sub btnDesconectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDesconectar.Click
        serverStream.Dispose() ' CERRAR LA CONEXION
        clienteSocket.Close()
    End Sub
End Class




EL SERVIDOR..........

Después de aceptar la conexión del cliente, el servidor debe parsear el mensaje: 
o  Si  el mensaje  inicia  con  el  substring  “NOMBRE:  “, debe  leer  el  resto del  string y 
crear el archivo con el nombre  recibido en el mensaje,  luego enviar un mensaje 
“OK” al cliente. 
o  Si el mensaje  inicia con el substring “FIN”, el servidor debe cerrar el archivo que 
creó. 
o  Si  el mensaje no  comienza  con ninguna de  las  substrings  anteriores,  el  servidor 
debe grabar completamente el mensaje en el archivo de texto. 
El servidor debe grabar el archivo en la carpeta c:\temp por default. 


Imports System.Net
Imports System.Net.Sockets
Public Class Form1
    Dim serverstream As NetworkStream
    Dim server As TcpListener 

    Private Sub btnActivar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnActivar.Click

        Dim IPLocal As IPAddress = IPAddress.Parse(txtIP_FTPServer.Text)  
        Dim Puerto As Integer = Val(txtPuerto_FTPServer.Text) 
        Dim clienteSocket As TcpClient
        server = New TcpListener(IPLocal, Puerto) 

        Try
            txtLog.Text = "Chat Server activo ...." & vbCrLf
            Application.DoEvents() 

            server.Start() 
            clienteSocket = server.AcceptTcpClient() 

            While (True)
                Dim bytesFrom(10024) As Byte 'ARREGLO DE BYTES 
                Dim dataFromClient As String
            
                'Socket recibido del cliente

                Dim networkStream As NetworkStream = clienteSocket.GetStream() 
                networkStream.Read(bytesFrom, 0, CInt(clienteSocket.ReceiveBufferSize)) 

                dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom) 'CONVERTIR EL ARREGLO DE BYTES Q VIENE A TYPO STRNG , EN CODIF ASSCI, TIPO TEXTO Y SE ASIGNA A DATAFROMCLIENTE
                ' dataFromClient = dataFromClient.Substring(0, dataFromClient.IndexOf("$")) 'REMOVER EL SIMBOLO
                Application.DoEvents()

                txtLog.Text = txtLog.Text & "Cliente dice >> " & dataFromClient & vbCrLf

                'Código que responde al cliente

                Dim serverResponse As String = "Servidor dice >> ok"

                Dim sendBytes As [Byte]() = System.Text.Encoding.ASCII.GetBytes(serverResponse) 
                networkStream.Write(sendBytes, 0, sendBytes.Length) 
                networkStream.Flush()

                txtLog.Text = txtLog.Text & serverResponse & vbCrLf
                Me.Refresh()
            End While
        Catch ex As Exception
            MsgBox("Error " & ex.Message)
        End Try
        server.Stop()

    End Sub
End Class