如何从VB Windows Forms应用托管VB ASP.NET Web应用至局域网

嘿，我来给你梳理下这个需求的最优实现方案——用ASP.NET Core的自我托管功能绝对是目前最靠谱的选择，轻量、灵活，完美适配你的WinForms嵌入场景，而且完全支持VB.NET开发。下面一步步给你讲怎么落地：

一、先准备好你的ASP.NET Core Web应用 #

• 新建一个ASP.NET Core Web API项目（VB.NET模板），因为你要实现两个VB应用的交互，API是最直接、标准化的通信方式。
• 目标框架选.NET 6+的LTS版本（比如.NET 6或.NET 8），这个版本的自我托管功能成熟稳定，配置也更简洁。

二、在WinForms应用中嵌入并启动Web主机 #

1. 关联Web项目：把你的ASP.NET Core Web项目添加为WinForms项目的引用，这样能保持代码解耦，后续维护更方便。
2. 编写托管启动代码：在WinForms主窗体的Form_Load事件里启动Web主机，示例代码如下：

Imports Microsoft.AspNetCore.Hosting
Imports Microsoft.Extensions.Hosting

Private webHost As IHost

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 构建Web主机，绑定到局域网所有IP的指定端口（这里用5000和5001做示例）
    webHost = Host.CreateDefaultBuilder()
        .ConfigureWebHostDefaults(Sub(webBuilder)
                                      ' 0.0.0.0表示允许局域网内所有设备访问
                                      webBuilder.UseUrls("http://0.0.0.0:5000", "https://0.0.0.0:5001")
                                      ' 替换成你的Web项目里的Startup类
                                      webBuilder.UseStartup(Of YourWebProject.Startup)()
                                  End Sub)
        .Build()

    ' 启动Web服务
    webHost.Start()
    MessageBox.Show($"Web应用已托管在局域网，访问地址：http://{GetLocalLanIp()}:5000")
End Sub

' 窗体关闭时记得停止Web主机，释放资源
Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    webHost?.StopAsync().Wait()
    webHost?.Dispose()
End Sub

3. 自动处理网络参数：
   • 获取局域网IP：自动识别当前设备的局域网IPv4地址，避免手动输入：

   Imports System.Net.NetworkInformation
   Imports System.Net
   
   Private Function GetLocalLanIp() As String
       ' 遍历网卡，筛选出可用的局域网IP
       For Each nic In NetworkInterface.GetAllNetworkInterfaces()
           If nic.OperationalStatus = OperationalStatus.Up AndAlso 
              Not nic.Description.Contains("Virtual") AndAlso 
              Not nic.IsLoopback Then
               For Each addr In nic.GetIPProperties().UnicastAddresses
                   If addr.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
                       Return addr.Address.ToString()
                   End If
               Next
           End If
       Next
       Return "127.0.0.1" ' 找不到局域网IP时回退到本地回环
   End Function
   

   • 检查端口可用性：避免端口冲突，自动找一个可用端口：

   Private Function IsPortAvailable(port As Integer) As Boolean
       Try
           Using listener As New TcpListener(IPAddress.Loopback, port)
               listener.Start()
               listener.Stop()
               Return True
           End Using
       Catch ex As SocketException
           Return False
       End Try
   End Function
   

   你可以在启动时从5000开始遍历，找到第一个可用端口后，动态更新UseUrls里的端口号。

三、配置数据库的局域网访问 #

如果用SQL Server这类网络型数据库：

• 开启SQL Server的远程连接：在SQL Server配置管理器里启用TCP/IP协议，设置监听端口（默认1433）。
• 配置防火墙：添加规则允许SQL Server的端口（1433）通过局域网访问。
• 修改Web应用的连接字符串：把localhost换成你的设备局域网IP，比如Server=192.168.1.100,1433;Database=YourDB;User Id=sa;Password=xxx;。

如果用SQLite这类文件型数据库：

• 不建议直接共享数据库文件（容易出现锁文件问题），最好让WinForms应用作为数据宿主，Web应用通过内部API调用WinForms里的数据服务，或者把数据库文件放在局域网共享文件夹并做好权限控制。

四、实现两个VB应用的交互 #

• WinForms和Web应用内部交互：因为它们在同一个进程里，可以通过依赖注入共享服务，或者用ConcurrentQueue这类线程安全的集合传递数据。
• 局域网内其他VB应用交互：直接用HttpClient调用Web API的接口，发送HTTP请求来获取或提交数据，比如：

Imports System.Net.Http

Private Async Sub CallWebApi()
    Using client As New HttpClient()
        Dim response = Await client.GetAsync("http://192.168.1.100:5000/api/data")
        If response.IsSuccessStatusCode Then
            Dim data = Await response.Content.ReadAsStringAsync()
            ' 处理返回的数据
        End If
    End Using
End Sub

五、几个关键注意事项 #

• 权限问题：如果绑定的是1024以下的端口（比如80、443），WinForms应用需要以管理员权限运行；用1024以上的端口则不需要。
• 防火墙设置：一定要确保Windows防火墙允许WinForms应用和Web端口通过局域网访问，测试时可以暂时关闭防火墙验证，之后再添加永久规则。
• HTTPS安全：如果需要加密通信，可以配置自签名证书（开发阶段够用），在UseUrls里添加HTTPS地址即可。

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