VB应用程序怎样得到网页的返回值?

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:33:31
VB应用程序怎样得到网页的返回值?网页是php脚本创建的,能接收VB程序post上来的值,然后对该值进行一定的超值,然后返回一个结果,现在我想让VB程序能获取返回的值,怎么实现?
请问

multiple1902:

XMLHTTP组件在哪?我的是企业版的,怎么没看到?

yoya0303:

按照你的方法,我获取到的网页返回值是<html><body>欢迎!</body></html>,我想让vb弹出一个对话框,显示"欢迎!"这几个字符而已,应该这么做?

谢谢大家:)回答了继续加分

可以用Inet控件或者XMLHTTP组件
Dim HTTP
Set HTTP=CreateObject("MSXML2.XMLHTTP")
With HTTP
.open "POST",LoginPageURL,False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.send "POST信息：aaa=bbb&ccc=ddd"
Msgbox .getresponsetext
End With

可以用Inet控件或者XMLHTTP组件
Dim HTTP
Set HTTP=CreateObject("MSXML2.XMLHTTP")
With HTTP
.open "POST",LoginPageURL,False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.send "POST信息：aaa=bbb&ccc=ddd"
Msgbox .getresponsetext
End With

部件- internet transfer control
协议设为http
a准备post的数据
Dim a as string,b as string ,url as string
a=1
url="www.163.com?a=" & a & ""
b=inet1.open(url)
do while inet1.stil