vb.net http服务源码下载

你可以使用VB.Net编写一个简单的HTTP服务实现文件下载功能。以下是一个示例源码：

Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Public Class HttpServer
    Private ReadOnly Listener As HttpListener

    Public Sub New(ByVal urls As String())
        Listener = New HttpListener()
        For Each url In urls
            Listener.Prefixes.Add(url)
        Next
    End Sub

    Public Sub Start()
        Listener.Start()
        Console.WriteLine("HTTP server started.")

        While Listener.IsListening
            Dim context = Listener.GetContext()
            Dim request = context.Request
            Dim response = context.Response

            If request.HttpMethod = "GET" Then
                Dim filepath = Environment.CurrentDirectory + request.RawUrl
                If File.Exists(filepath) Then
                    response.StatusCode = HttpStatusCode.OK
                    Using fs As New FileStream(filepath, FileMode.Open)
                        fs.CopyTo(response.OutputStream)
                    End Using
                Else
                    response.StatusCode = HttpStatusCode.NotFound
                End If
            Else
                response.StatusCode = HttpStatusCode.MethodNotAllowed
            End If

            response.Close()
        End While
    End Sub

    Public Sub [Stop]()
        Listener.Stop()
        Listener.Close()
        Console.WriteLine("HTTP server stopped.")
    End Sub
End Class

Module Program
    Sub Main()
        Dim server As New HttpServer({"http://localhost:8080/"})
        server.Start()
    End Sub
End Module

这个HTTP服务使用`HttpListener`类来监听指定的URL，并根据不同的请求方法返回相应的响应。在这个例子中，我们只实现了GET方法，当接收到GET请求时，服务器会判断请求的URL对应的文件是否存在，如果存在则返回文件内容，如果不存在则返回404错误。你可以根据需要进行修改和扩展。

你可以将源码保存为一个.vb文件，然后使用VB.Net的编译器（如`vbc`命令行工具或Visual Studio）进行编译并运行。运行后，HTTP服务将在`http://localhost:8080/`上监听请求，并将请求的文件内容作为响应返回给客户端。