小编Dav*_*vid的帖子

我想托管一个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

但它不起作用？