网页采集(网页抓取)教程第二课-用WinHTTP提交Post，viewstate获取和URLEncode编码方法

kangatang

kangatang 发表于 2012-7-17 14:25
公司电脑无法注册winhttp的组件，这个我只能旁听了。

该用什么组件替代呢？谢谢。

蓝天630902

kangatang 发表于 2012-7-17 14:50
该用什么组件替代呢？谢谢。

无法注册winhttp的组件?
就用下面的笨方法：

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

kangatang 发表于 2012-7-17 14:50
该用什么组件替代呢？谢谢。

我在第一课讲的组件都行。推荐用ServerXMLHTTP。

kangatang

楼主能否将代码放在一个excel文件了，方便我们调试。
另外EncodePostdata()应该是getPostData()吧。
这个函数比较通用，记下。

AVEL

这个可以在liucqa大侠全部课程上完后做个PDF汇总教程。。
全部收下学习 实践 一下。

引子玄

学员状况个例反馈：有点催眠了{:soso_e193:}~~习惯了用IE，习惯了用QueryTables,想一下子接轨大师，感觉还真有点难，预计自己会掉下队来。
POST比GET在技术操作上要难很多，没想错了的话，应该是属于后期教程。
教学是一门高级艺术，课程安排得好，学员学起来会事半功倍。(如果教学者曾经有过教学经历和管理经历，在针对性和普遍性问题的处理上，都会很注重把握的)
做好一个教学不容易，做好一个开拓创新性的网抓项目教学，则更不容易了。继续支持楼主的网抓作品。
至于俺自己，学网抓还是先学会走路起，然后再想办法跑起来。

liucqa

引子玄 发表于 2012-7-17 18:21
学员状况个例反馈：有点催眠了~~习惯了用IE，习惯了用QueryTables,想一下子接轨大师，感觉还真 ...

IE抓包不是俺的长项，等蓝天写教程吧。由于IE为第三方应用程序，VBA无法控制其行为，特别是在网页有错误的情况下。

QueryTables取得网站数据的能力很弱，一般不使用。

通常意义上所说的网络采集和网页抓取，都不使用这两种方法。

李巴

第一课在哪呀，我要扣

liucqa

李巴 发表于 2012-7-17 18:36
第一课在哪呀，我要扣

看一楼            

kangatang

...上充裕的时间、坚定的信念、充分的耐心和一点点运气...
说的太贴切了