VB使用xmlhttp获取远程网页内容

最新推荐文章于 2025-10-30 15:05:54 发布

转载最新推荐文章于 2025-10-30 15:05:54 发布 · 2.3w 阅读

文章标签：

#vb #function #url #string #null

vb6(vba) 专栏收录该内容

5 篇文章

订阅专栏

本文提供了一个使用VBA进行HTTP GET和POST请求的示例。GET请求通过创建Microsoft.XMLHTTP对象来获取网页内容，而POST请求则展示了如何设置请求头并发送数据到指定服务器。

Dim xmlHttp As Object

Private Function aaa(url As String)
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "GET", url, True
xmlHttp.send (Null)
While xmlHttp.ReadyState <> 4
DoEvents
Wend
aaa = xmlHttp.responseText
End Function

Sub sheep()
MsgBox aaa("http://www.baidu.com")
End Sub

'==============================一下是POST数据实例====================

Sub test2()
Dim xmlhttp
Set xmlhttp = CreateObject("msxml2.xmlhttp")
With xmlhttp
.Open "POST", "http://127.0.0.1:8012/json.php?mode=9", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "mode=9"
MsgBox .responseText '显示POST之后网页返回的结果
End With
Set xmlhttp = Nothing
End Sub