为什么 xmlhttp 抓不到网页内表格？

smsn · 发表于 2015-1-11 22:29

本帖最后由 smsn 于 2015-1-11 22:26 编辑

http://cargo.china-airlines.com/CCNet/pgFreightStatus/cgoTrack.aspx?AWBPrefix=297&AWBNumber=26846503

为什么 xmlhttp 抓不到网页内表格？
有谁知道？谢谢

bluexuemei · 发表于 2015-1-11 23:11

本帖最后由 bluexuemei 于 2015-1-11 23:50 编辑

网址比较长http://cargo.china-airlines.com/ ... amp;btnQuery.y=-195

浮华、缠绕指尖 · 发表于 2015-1-11 23:32

本帖最后由浮华、缠绕指尖于 2015-1-11 23:36 编辑

See if help you

Option Explicit
Public Const URL As String = "http://cargo.china-airlines.com/CCNet/pgFreightStatus/cgoTrack.aspx?AWBPrefix=297&AWBNumber=26846503"
Sub test()
Dim winHttp As New winHttp.WinHttpRequest, html As New HTMLDocument
Dim VIEWSTATE
With winHttp
.Open "GET", URL, False
.send
html.body.innerHTML = .responseText
VIEWSTATE = encodeURI(html.getElementById("__VIEWSTATE").Value)
.Open "POST", URL, False
.setRequestHeader "content-type", "application/x-www-form-urlencoded; charset=UTF-8"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.71 Safari/537.36"
.send "ScriptManager1=ScriptManager1%7CbtnQuery&__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=" & VIEWSTATE & "&hdn_menu_head_index=&p=SEARCH&o=4&v=root&r=2¤tCalForm=dep¤tdate=115-01-11&onload=&CCNetInfo1%24txtCurrentDate=&txtAWBPrefix=297&txtAWBNumber=26846503&__ASYNCPOST=true&btnQuery.x=0&btnQuery.y=0"
Debug.Print .responseText
End With
End Sub
Function encodeURI(strTobecoded As String) As String
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "JavaScript"
encodeURI = .Eval("encodeURIComponent('" & strTobecoded & "');")
End With
End Function

复制代码

CarGo.rar (13.58 KB, 下载次数: 10)

onlycxb · 发表于 2015-1-12 09:45

本帖最后由 onlycxb 于 2015-1-12 09:51 编辑

Option Explicit
Sub ChinaAirlines_CARGO()
Dim Xml As New MSXML2.XMLHTTP, html As New HTMLDocument
Dim URL As String, tb, tr, td, i As Integer, j As Integer, k, m, VIEWSTATE As String
URL = "http://cargo.china-airlines.com/CCNet/pgFreightStatus/cgoTrack.aspx?AWBPrefix=297&AWBNumber=26846503"
With Xml
.Open "GET", URL, False: .send
html.body.innerHTML = .responseText
VIEWSTATE = encodeURI(html.getElementById("__VIEWSTATE").Value)
.Open "POST", URL, False
.setRequestHeader "content-type", "application/x-www-form-urlencoded; charset=UTF-8"
.send "ScriptManager1=ScriptManager1%7CbtnQuery&__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=" & VIEWSTATE & "&hdn_menu_head_index=&p=SEARCH&o=4&v=root&r=2¤tCalForm=dep¤tdate=115-01-11&onload=&CCNetInfo1%24txtCurrentDate=&txtAWBPrefix=297&txtAWBNumber=26846503&__ASYNCPOST=true&btnQuery.x=0&btnQuery.y=0"
' Debug.Print InStr(.responseText, "AE0992") '找到数据了
html.body.innerHTML = .responseText
Dim n '表格起始行
Cells.Clear
Set tb = html.all.tags("div")
For i = 0 To tb.Length - 1
If tb(i).className = "menu_body" Then '
For j = 0 To tb(i).ChildNodes.Length - 1
Set tr = tb(i).ChildNodes(j).all.tags("tr")
For k = 0 To tr.Length - 1
n = n + 1
For m = 0 To tr(k).ChildNodes.Length - 1
Cells(n, m + 1) = tr(k).ChildNodes(m).innerText
Next m
Next k
Next j
End If
Next i
End With
End Sub
Function encodeURI(strTobecoded As String) As String
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "JavaScript"
encodeURI = .Eval("encodeURIComponent('" & strTobecoded & "');")
End With
End Function

复制代码

工作簿1.rar (18.71 KB, 下载次数: 8) 捕获.PNG

VBA万岁 · 发表于 2015-1-12 14:06

onlycxb 发表于 2015-1-12 09:45

Mark:

空运单查询.zip (1.2 MB, 下载次数: 26)

smsn · 发表于 2015-1-13 00:15

bluexuemei 发表于 2015-1-11 23:11
网址比较长http://cargo.china-airlines.com/CCNet/pgFreightStatus/cgoTrack.aspx?AWBPrefix=297&AWBNumbe ...

谢谢您的帮忙！！！

smsn · 发表于 2015-1-13 00:16

浮华、缠绕指尖发表于 2015-1-11 23:32
See if help you

太神了！！！看来我是学不到这个程度了

smsn · 发表于 2015-1-13 00:19

VBA万岁发表于 2015-1-12 14:06
Mark:

感谢你们，我会好好学习的

smsn · 发表于 2015-1-13 00:21

onlycxb 发表于 2015-1-12 09:45

谢谢您花这么多时间

zjwster · 发表于 2017-9-5 17:02

bluexuemei 发表于 2015-1-11 23:11
网址比较长http://cargo.china-airlines.com/CCNet/pgFreightStatus/cgoTrack.aspx?AWBPrefix=297&AWBNumbe ...

这个地址是怎么得到的啊？

		自动登录	找回密码
密码			免费注册

[求助] 为什么 xmlhttp 抓不到网页内表格？

评分

评分