الاتصال بالـ FTP مع ارسال أوامر User - مكتبة أكواد VB.NET

'في قسم التعاريف
Imports System.Net.Sockets
Imports System.Text
Imports System.Net
'الكود
        Dim server As String = "ftp.microsoft.com"
        Dim port As Integer = 21
        Dim userName As String = "James"
        Dim controlSocket As Socket
        Try
            controlSocket = New _
            Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
            controlSocket.Connect(New IPEndPoint(Dns.Resolve(server).AddressList(0), port))
            If controlSocket.Connected Then
                Console.WriteLine("Connected. Waiting for reply...")
                Dim bytes(511) As Byte ' an array of 512 bytes
                Dim receivedByteCount As Integer
                ' receive the server's response on successful connect
                receivedByteCount = controlSocket.Receive(bytes)
                ' send the USER command
                Dim command As String
                command = "USER " & userName & ControlChars.CrLf
                controlSocket.Send(Encoding.ASCII.GetBytes(command), command.Length, 0)
            End If
        Catch
        End Try