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 xmlhttpSet 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 WithSet xmlhttp = nothingEnd Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。