vb XMLHTTP post 问题。

FunctionXMLHttpPOST(ByValurlAsString,ByValPostDataAsString)AsStringSetXML=CreateObjec... Function XMLHttpPOST(ByVal url As String, ByVal PostData As String) As String
Set XML = CreateObject("Microsoft.XMLHTTP")
With XML
.Open "POST", url, False
.setRequestHeader "Accept", "*/*"
.setRequestHeader "Accept-Language", "zh-cn"
.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Referer", ""
.setRequestHeader "Content-Length", Len(PostData)
.setRequestHeader "Connection", "Keep-Alive"
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Referer", "http://www.haedu.gov.cn/hadoe_plus/gk_cx/queryresult_iframe.aspx"
.Send (PostData)
Do Until .ReadyState = 4
DoEvents
Loop
XMLHttpPOST = .responseText
End With
Set XML = Nothing
End Function

Private Sub C1_Click()
Text1.Text = XMLHttpPOST("http://www.heao.gov.cn/PZQuery/PZLQueryResult.aspx", "ksh=13411101151089&bmxh=110111150009&sfzh=33333&Submit.x=46&Submit.y=11&Submit=%E6%8F%90%E4%BA%A4")
帮我测试一下这个代码怎么回事?为什么拒绝访问。
End Sub
展开
 我来答
adai011
2014-08-03 · 超过49用户采纳过TA的回答
知道小有建树答主
回答量:184
采纳率:0%
帮助的人:80.2万
展开全部
可以用WEBBROWSER 控件操作,有昌梁轮些需要登录验证的网站用XMLHTTP不如用WEBBROWSER操作简单.何况他的参数不能直接带在提交URL之后,我查看了,他还有渣宽两个隐藏INPUT(__VIEWSTATE/耐信__EVENTVALIDATION),有COOKIE,查看到他的头:
Cache-Control: private
Date: Sun, 03 Aug 2014 10:26:33 GMT
Content-Length: 2689
Content-Type: text/html; charset=gb2312
Server: Microsoft-IIS/7.5
Set-Cookie: ASP.NET_SessionId=r4vqgeuxilexen451qa3fqzv; path=/; HttpOnly
X-AspNet-Version: 2.0.50727
X-Powered-By: ASP.NET
X-UA-Compatible: IE=5.5
粉影魔醉0k
2013-07-31 · 超过36用户采纳过TA的回答
知道答主
回答量:108
采纳率:0%
帮助的人:88.1万
展开全部
缺少cookies 头,先get获得cookie 再post
追问
怎样get cookie?能不能写个代码看看。谢谢。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式