悠悠软件工作室

互联网软件资源共享

当前位置首页 -> 综合频道 -> 站长之家

VB webbrowser 控件的应用(跨域 内嵌网页元素的访问)

'------------------------------------------------  

' 环境准备:  

' 1.为运行本程序,应在“菜单->工程->部件”中添加“Microsoft Internet Controls”  

' 2.并在“菜单->工程->引用”中添加“Microsoft HTML Object Library”和“Edanmo's OLE interfaces & functions v1.4”  

' 3.请先建立文件"d:\1.html",内容为:<iframe application="yes" width=700 height=600 src="http://www.baidu.com" mce_src="http://www.baidu.com"></iframe>  

' 4.Edanmo 's OLE interfaces & functions v1.4在有些机器可能没有,可以到这里下载:http://download.csdn.net/source/2652292  

'  

' Author    : sysdzw  

' E-mail    : sysdzw@163.com  

' Bolg      : http://hi.baidu.com/sysdzw  

' QQ        : 171977759  

' Date      : 2010-4-6  

'------------------------------------------------  

Private Sub Form_Load()  

   wb1.Navigate2 "d:\1.html"  

End Sub  

Private Sub wb1_DocumentComplete(ByVal pDisp As Object, URL As Variant)  

 Debug.Print URL  

 If URL = "http://www.baidu.com/" Then  

   getFrames(wb1).Document.All("kw").Value = "谷歌"  

   MsgBox getFrames(wb1).Document.All("kw").Value  

 End If  

End Sub  

     

'WB为要处理的webbrowser  

Private 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 SHDocVwCtl.WebBrowser_V1  

   

   Set pContainer = WB.Object.Document  

   If pContainer.EnumObjects(OLECONTF_EMBEDDINGS, pEnumerator) = 0 Then  

      Set pContainer = Nothing  

      Do While pEnumerator.Next(1, pUnk) = 0  

         Set pBrowser = pUnk  

         If Err.Number = 0 Then  

            Print "Frame: " & pBrowser.LocationURL  

             

            If pBrowser.LocationURL = "http://www.baidu.com/" Then '可以在这里加条件判断得到指定的frame,基本可以根据url或者innerHTML中的某个关键字符  

               Set getFrames = pBrowser  

               Exit Function  

           End If  

         End If  

   

      Loop  

      Set pEnumerator = Nothing  

   End If  

End Function  



上一篇:vb-跨域访问网页最简单方法,获得..
下一篇:php 数组排序以及按照某个字段排序

评论

帐  号: 密码: (新用户注册)
验 证 码:
表 情:
内  容:

首 页   |   版权声明   |   关于我们   |   广告服务   |   联系我们   |   手机版    |   网站地图
Copyright@zhuchunyu.com all rights reserved
Powered by zhuchunyu.com 2018-2025 zhuchunyu.com