vba - 是否可以在 VBA 中托管网络服务器？

Question

我想托管一个 Web 服务器并想使用 VBA 来完成它。这可能吗？我这样做只是为了证明某人错了，并且真的想制作这个程序。

那么是否有可能制作一个非常简单的 Web 服务器(只监听 get 请求)？非常感谢帮助。

编辑

我正在尝试这样的事情

Sub startServer()
    Set wunsock = CreateObject("OSWINSCK.Winsock")
    wunsock.LocalPort = 80
    wunsock.Listen
End Sub

Sub wunsock_ConnectionRequest(ByVal requestID As Long)
    If sockMain.State <> sckClosed Then
        sockMain.Close
    End If
    sockMain.Accept requestID
End Sub

Private Sub wunsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    sockMain.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf
End Sub

然而它不起作用？

Answer 1

http://www.ostrosoft.com/oswinsck.asp#inst

是一种可以从 VBA 使用的 winsock 类型的库。可以做您想做的事情，尽管这不是最有效的事情。

我为你的坚韧鼓掌，希望它对你有用。