Winhttp做Post提交，在XP下Content-Length=0的问题解决

liucqa

WinHttp POST测试 xp.rar (38.15 KB, 下载次数: 630)

2012-6-13 13:15 上传

点击文件名下载附件

见附件，在XP+IE8下POST的长度为0，解决方法：post (postdata)


该死的括号！请各位测试不同的操作系统，结果跟帖，谢谢！


补充内容 (2013-8-22 18:13):
http://club.excelhome.net/thread-894527-1-1.html  完整采集的代码

蓝天630902

“一楼的程序你测试结果是什么？方便的话说一下，”

22页说明提交post不成功 页码：22

检索完成
共用时：
3.80秒

liucqa

         
找个sniffer4.75抓包看了一下，发现提交的Content-length不对，为什么是0呢？上图是winhttp,下图是ie。访问网址的抓包。

网址http://www.gzgcjg.com/gzqypjtx/Estimate/ZY/MainQueryMarkZY.aspx?clearPaging=true，选择:建筑装修装饰工程。39页。

默认的是：地基与基础工程，22页

liucqa

顶一下                  

蓝天630902

Sub 查看专业资质排名()
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.gzgcjg.com/gzqypjtx/Estimate/ZY/MainQueryMarkZY.aspx?clearPaging=true"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .Document.All("ctl00$cph_content$drpZzdj").Value = "jzzxzs"
        .Document.All("ctl00$cph_content$drpZzdj").onchange
            Do Until Trim(.Document.All.tags("table")(1).All.tags("tr")(1).All.tags("td")(1).innerText) <> "广东省基础工程公司"
                DoEvents
            Loop
        
        Set r = .Document.All.tags("table")(1).Rows
        n = Range("a65536").End(xlUp).Row
        For i = 0 To r.Length - 1
            For j = 0 To r(i).Cells.Length - 1
                Cells(i + 1 + n, j + 1) = r(i).Cells(j).innerText
            Next j
        Next i
        For k = 2 To 39
            n = Range("a65536").End(xlUp).Row
            .Document.All("ctl00$cph_content$GridViewPaging1$txtGridViewPagingForwardTo").Value = k
            .Document.All("ctl00$cph_content$GridViewPaging1$btnForwardToPage").Click
            Do Until .Document.All.tags("table")(1).All.tags("tr")(1).All.tags("td")(1).innerText <> Cells(n - 19, 2)
                DoEvents
            Loop
            Set r = .Document.All.tags("table")(1).Rows
            For i = 1 To r.Length - 1
                For j = 0 To r(i).Cells.Length - 1
                    Cells(i + n, j + 1) = r(i).Cells(j).innerText
                Next j
            Next i
        Next k
    End With
End Sub

liucqa

蓝天630902 发表于 2012-6-13 15:48
Sub 查看专业资质排名()
    On Error Resume Next
    With CreateObject("internetexplorer.applicatio ...

这个不是我要的，之前的帖子我看过了。方便的话告诉一下你的测试结果，谢谢

蓝天630902

不过，剪贴板里是“建筑装修装饰工程”的第一页的数据

引子玄

蓝天630902 发表于 2012-6-13 15:48
Sub 查看专业资质排名()
    On Error Resume Next
    With CreateObject("internetexplorer.applicatio ...

抓取代码好DD，学习中~~~~

蓝天630902

sent后面加上括号，sent (postdata)，


22页说明提交post不成功 页码：39

检索完成
共用时：
3.63秒

不过，剪贴板里还是“建筑装修装饰工程”的第一页的数据

蓝天630902

但是，PagingForwardTo = 2　　 'post提交的页码
剪贴板里仍然是“建筑装修装饰工程”的第一页的数据