Public Function GetContent(ByVal url As String)
On Error Resume Next
Dim XmlHttp As Object
XmlHttp = CreateObject("Microsoft.XMLHttp")
XmlHttp.Open("POST", url, False)
XmlHttp.Send()
Dim vs As String
vs = XmlHttp.responseText
XmlHttp = Nothing
GetContent =vs
End Function
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。