我想托管一个Web服务器并希望使用VBA来执行此操作。这可能吗?我只是这样做,以证明某人错了,真的想要制作这个程序。是否可以在VBA中托管Web服务器?
那么有可能做一个非常简单的Web服务器(只是听取获取请求)?非常感谢帮助。
编辑
我想这样
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
东西但是它不工作?
“......证明某人有错......” - > +1 –
http://社交.msdn.microsoft.com/Forums/zh-CN/isvvba/thread/a9262dc9-5e97-4b61-9fa5-014976c47527 /? –
嵌入在Excel中的Web服务器。头脑非常混乱。 – anon