VB.NET 如何开发FTP服务端（非FTP客户端）？虚拟FTP服务器可实现吗？

核心实现逻辑 #

完全可以通过原生VB.NET代码实现符合FTP标准协议的虚拟服务端，不需要依赖系统自带的IIS FTP组件，也不需要额外第三方依赖，核心逻辑如下：

• 基于TcpListener监听FTP默认命令端口（一般为21），每个客户端接入后启动独立线程处理交互，避免阻塞其他连接
• 严格遵循FTP协议的命令-响应规范，客户端发送的USER（用户名验证）、PASS（密码验证）、RETR（下载文件）、STOR（上传文件）等标准命令，服务端都要返回对应格式的响应码和说明，即可完美兼容你示例中使用的FtpWebRequest客户端
• 支持完全虚拟的文件系统：不需要映射本地真实磁盘文件，所有文件内容可以存在内存、数据库或者其他自定义存储介质中，仅需要在收到对应文件操作命令时，通过数据流和客户端交互即可

最小核心实现示例 #

Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class FtpVirtualServer
    Private listener As TcpListener
    Private isRunning As Boolean

    Public Sub StartServer(port As Integer)
        listener = New TcpListener(IPAddress.Any, port)
        listener.Start()
        isRunning = True
        ' 循环监听客户端连接
        While isRunning
            Dim client As TcpClient = listener.AcceptTcpClient()
            ' 每个连接开独立线程处理
            Dim clientThread As New Threading.Thread(AddressOf HandleClient)
            clientThread.Start(client)
        End While
    End Sub

    Private Sub HandleClient(clientObj As Object)
        Dim client As TcpClient = CType(clientObj, TcpClient)
        Dim stream As NetworkStream = client.GetStream()
        Dim reader As New StreamReader(stream, Encoding.ASCII)
        Dim writer As New StreamWriter(stream, Encoding.ASCII) With {.NewLine = vbCrLf, .AutoFlush = True}

        ' 发送连接成功响应
        writer.WriteLine("220 Virtual FTP Server Ready")

        Dim username As String = ""
        Dim isAuthenticated As Boolean = False
        Dim currentDir As String = "/"

        While client.Connected
            Dim commandLine As String = reader.ReadLine()
            If String.IsNullOrEmpty(commandLine) Then Continue While

            Dim parts = commandLine.Split({" "c}, 2)
            Dim command As String = parts(0).ToUpper()
            Dim arg As String = If(parts.Length > 1, parts(1), "")

            Select Case command
                Case "USER"
                    username = arg
                    writer.WriteLine("331 Username OK, need password")
                Case "PASS"
                    ' 这里可以自定义校验逻辑，不需要读系统用户
                    If username = "user" AndAlso arg = "password" Then
                        isAuthenticated = True
                        writer.WriteLine("230 Login successful")
                    Else
                        writer.WriteLine("530 Login incorrect")
                    End If
                Case "RETR"
                    If Not isAuthenticated Then
                        writer.WriteLine("530 Not logged in")
                        Continue While
                    End If
                    ' 这里返回虚拟文件内容，不需要读本地磁盘
                    Dim fileContent As String = "这是虚拟FTP服务器上的文件内容"
                    Dim contentBytes = Encoding.UTF8.GetBytes(fileContent)
                    ' 协商数据通道（此处简化为被动模式逻辑，可自行扩展）
                    writer.WriteLine("150 Opening data connection for file transfer")
                    ' 数据通道传输内容逻辑此处省略，完成后返回成功响应
                    writer.WriteLine("226 Transfer complete")
                Case "QUIT"
                    writer.WriteLine("221 Goodbye")
                    client.Close()
                Case Else
                    writer.WriteLine("502 Command not implemented")
            End Select
        End While
    End Sub
End Class

兼容性说明 #

你提供的客户端代码不需要做任何修改，只需要将请求地址中的ftp://ftp.test.com/file.txt替换为你本地服务端的地址（比如ftp://127.0.0.1/file.txt），即可直接和上述虚拟服务端通信，FtpWebResponse也能正常识别所有状态信息，和访问真实FTP服务端没有区别。
如果只需要适配你自己的客户端逻辑，可以只实现你用到的FTP命令即可，不需要完整支持所有FTP协议规范，大幅降低开发量。

内容的提问来源于stack exchange，提问作者LabRat