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
分享到:
相关推荐
vb实现xmlhttp获取网络数据功能。
利用VB通过xmlhttp进行数据库远程管理
以前写的一个xmlhttp提交数据的类模块,能有效地解决xmlhttp组件卡死问题,可用于,制件网络投票程序,网络信息收集程序
VB使用XMLHTTP实现Post与Get的方法
使用XMLHTTP可以访问网络上其他页面,并获取页面的源代码。本例通过XMLHTTP获取天气预报网页的内容并显示在当前窗体中。
使用XMLHTTP POST 方式,实现远程请求
VB XMLHTTP 支持大文件分段与断点下载函数,可实现断点续传
asp下利用xmlhttp获取网页内容的方法这个方法一般比较通用的,然后通过字符截取网页的内容。
VB无需控件仅使用Microsoft.XMLHTTP判断程序是否联入互联网
主要介绍了VB使用XMLHTTP实现Post与Get的方法,有一定的借鉴价值,需要的朋友可以参考下
本程序主要以 http://www.excite.co.jp 网站的在线翻译功能为基础,用VB模仿浏览器的提交过程将需要翻译的文本提交给网页,然后分析网页返回结果,并将其结果返回到文本框内显示出来,支持UTF-8编码
js 实现 使用XMLHTTP获取天气预报! 值得下载看看!资源免费,大家分享!!
支持gb2312和utf-8 双流网(HTTP://510122.COM)提供
爬虫程序怎样获取web网页的cookie,并且完整获取cookie困扰了我很久才弄出来。这里分享给大家
VB判断地址是否存在的XMLHTTP方法
asp数据抓取程序,asp+xmlhttp抓取远程数据到数据库
XMLHTTP方式访问网页.rar XMLHTTP方式访问网页.rar XMLHTTP方式访问网页.rar XMLHTTP方式访问网页.rar XMLHTTP方式访问网页.rar XMLHTTP方式访问网页.rar
本程序演示了在VB种用XML对象读取远程网页的代码。 并通过HTMLDocument分析出网页的文本内容。 再通过分行识别处理的方法提取出所需要的网页数据。 源贴由CSDN的mylajilaji提出 主题是:如何提取网页的数据 ...
XMLHTTP类模块源码,易语言原代码,使用模块