网页抓取特定对象数据求助

闪存不足

xmyjk 发表于 2012-2-12 13:04
应该可以了，你自行继续完善，把你要查询的单号用变量替换就可以当工具用。
说明下：网页有3个防护机制， ...

纠正一下，刚才是复制你贴出的代码试验不成功，但是之后不死心又下了你的附件，一试之下却成功了，太感谢了

xmyjk

研究了下WEBBROWSER跨域访问的东西，貌似搞定了，不过要引用一个东西：Edanmo's OLE interfaces & functions 是国外一个高手Edanmo写的OLELIB.TLB
解压缩附件OLELIB.zip，放在C:\WINDOWS\system32里面就可以了。


[code=vb]
Option Explicit
Public flag As Boolean
Sub t()
    Dim getf As WebBrowser, dm As Object, tb As Object, t As Single
    flag = False
    UserForm1.cf = 0
    UserForm1.Show 0
    UserForm1.WebBrowser1.navigate "http://iport.sctcn.com/portal/page/portal/PG_IPort/Tab_OI?p_parametertype=ContainerInfo&p_parametervalue=OOLU7530910"
    Do Until UserForm1.WebBrowser1.Busy = False And UserForm1.WebBrowser1.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop
    Do Until flag = True
        DoEvents
    Loop
    t = Timer
    Do Until Timer = t + 1
        DoEvents
    Loop
    Set getf = getFrames(UserForm1.WebBrowser1)
    Set dm = getf.document
    Set tb = dm.all("tableInfo2")
    MsgBox tb.Rows(5).Cells(4).innerText
End Sub

Function getFrames(ByVal WB As WebBrowser) As Object
    Dim pContainer As olelib.IOleContainer
    Dim pEnumerator As olelib.IEnumUnknown
    Dim pUnk As olelib.IUnknown
    Dim pBrowser As WebBrowser

    Set pContainer = WB.document
    If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then
        Set pContainer = Nothing
        Do While pEnumerator.Next(1, pUnk) = 0
            Set pBrowser = pUnk
            If pBrowser.LocationURL Like "http://iport.sctcn.com/oi/action?SSOToken=*&ParameterType=ContainerInfo&ParameterValue=OOLU7530910&LocaleCode=zhs&moduleName=oi&logout=&loginUrl=" Then   '可以在这里加条件判断得到指定的frame，基本可以根据url或者innerHTML中的某个关键字符
                Set getFrames = pBrowser
                Exit Function
            End If
        Loop
        Set pEnumerator = Nothing
    End If
End Function

[/code]

闪存不足

xmyjk 发表于 2012-2-13 01:00
研究了下WEBBROWSER跨域访问的东西，貌似搞定了，不过要引用一个东西：Edanmo's OLE interfaces & function ...

学习了,感谢

goldowl2011

Thanks a lot.认真学习跨域访问代码！

引子玄

xmyjk 发表于 2012-2-13 01:00
研究了下WEBBROWSER跨域访问的东西，貌似搞定了，不过要引用一个东西：Edanmo's OLE interfaces & function ...

感谢弦月提供的Edanmo's OLE interfaces & functions 压缩包支持

皂罗袍

楼主，请问你知道ie= CreateObject("InternetExplorer.Application")    doc=ie.document
这种方式有办法解决多frame页面访问吗？

好像Edanmo's OLE interfaces & functions 的办法，必须要有一个webbrowser控件才行，而我现在要访问的网页用webbrowser控件加载就无法登陆，所以只能用控制ie的方式
请指教下，谢谢

哥又要注册

是的，用ie = CreateObject("InternetExplorer.Application")
这样的IE对象时，Edanmo's OLE interfaces & functions用不了

billzhaopa

好贴，收藏，感谢。