给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件
来源:互联网 发布:布列斯特和约 知乎 编辑:程序博客网 时间:2024/05/23 18:36
简单写一点,如何获取点击
首先在工程中添加对MICROSFT HTML OBJECT LIBRARY的引用,然后添加Microsoft Internet Controls 部件
以下是代码
'Option Explicit
Dim WithEvents doc As HTMLDocument
Dim IENext As Boolean
'' Dim doc
'' Set doc = CreateObject("htmlfile")
Private Sub Command1_Click()
IENext = True
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com/"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim htm As IHTMLDocument2
On Error Resume Next
Set htm = WebBrowser1.Document
If Err.Number = 0 Then
Debug.Print "打开网页:" & htm.location.href
End If
Set doc = htm
End Sub
'返回TRUE时IE才继续下面的操作
Private Function doc_onclick() As Boolean
MsgBox "发生点击,按下COMMAND1将继续IE过程!"
Do
If IENext Then doc_onclick = True: Exit Do
DoEvents
Loop
End Function
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, _
TargetFrameName As Variant, PostData As Variant, Headers As Variant, _
Cancel As Boolean)
Set doc = Nothing
End Sub
另外提一点,就是网页修改
Dim mDemoDOC As Object
Private Sub Command1_Click()
WebBrowser1.Document.write Text1.Text
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub
这样就可以看见效果了.
- 给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件
- 给初学者:VB如何操作WEB页的浏览提交———五:如何对网页内容进行解析?
- 给初学者:VB如何操作WEB页的浏览提交———八:获取网页上的链接、图片指向地址
- 给初学者:VB如何操作WEB页的浏览提交———一:在百度中自动搜索
- 给初学者:VB如何操作WEB页的浏览提交———二:自动填写更多内容
- 给初学者:VB如何操作WEB页的浏览提交———九:给感觉看HTML代码去找对应对象费劲的朋友的工具
- 给初学者:VB如何操作WEB页的浏览提交———四:如果是已经打开的IE页怎么办?
- 给初学者:VB如何操作WEB页的浏览提交———三:学会拨号和断开,内容想发就发,别拿IP限制我!
- 给初学者:VB如何操作WEB页的浏览提交———七:题外话,关于小甜饼和不打开新IE窗口问题
- 如何与IE浏览的网页内部的控件打交道
- iOS WebView 如何通过js获取网页中所有图片并加入点击事件,实现浏览图片的功能
- 如何给vb的UserControl添加属性、方法和事件?
- 分析:顾客是如何浏览网页的
- 初学者的Selenium自动化测试指南,基于Python(六)——如何设置元素等待
- 给初学者:用VB写外挂 ———— 如何给外挂定义一组热键:红色警戒五项属性修改器VB版
- 进击的KFC:iOS WebView 如何通过js获取网页中所有图片并加入点击事件,实现浏览图片的功能
- 在 ocx 内部如何获取所在页面的 URL
- 在 ocx 内部如何获取所在页面的 URL
- 浅谈行业网站的运营
- 40 种网站设计常用技巧
- 多级反向代理[Squid]下获取客户端真实IP地址
- FC6 下更改设置使得totem支持播放多种媒体格式
- 网站的盈利方式
- 给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件
- 精妙SQL语句
- 数据库设计三大范式应用实例剖析
- 精妙实用Sql语句
- 十条减少软件缺陷的真经
- 通过批处理修改IP地址
- UNIX/Linux编程相关工具和资源
- 编程高手谈编程
- Visual Studio .Net团队开发[转]