给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件
2007-01-19 12:03
543 查看
简单写一点,如何获取点击
首先在工程中添加对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
这样就可以看见效果了.
首先在工程中添加对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页的浏览提交———七:题外话,关于小甜饼和不打开新IE窗口问题
- 给初学者:VB如何操作WEB页的浏览提交———三:学会拨号和断开,内容想发就发,别拿IP限制我!
- 给初学者:VB如何操作WEB页的浏览提交———四:如果是已经打开的IE页怎么办?
- 给初学者:VB如何操作WEB页的浏览提交———一:在百度中自动搜索
- 给初学者:VB如何操作WEB页的浏览提交———二:自动填写更多内容
- 给初学者:VB如何操作WEB页的浏览提交———九:给感觉看HTML代码去找对应对象费劲的朋友的工具
- iOS WebView 如何通过js获取网页中所有图片并加入点击事件,实现浏览图片的功能
- 进击的KFC:iOS WebView 如何通过js获取网页中所有图片并加入点击事件,实现浏览图片的功能
- c# WebBrowser网页操作-元素获取_事件操作
- 某商城抢购心得--论网页慢该如何操作才能最快提交订单
- 网页中如何通过事件操作自动生成网页
- 如何获取网页提交的数据
- 如何与IE浏览的网页内部的控件打交道
- UIWebview获取网页中所有图片并加入点击事件,实现浏览图片的效果
- [VB.NET]VB.NET中如何向网页提交一个请求,并得到返回的HTML代码?
- MFC 通过发送消息完成按钮操作模拟鼠标单击事件的发生的问题
- 处理webbrowser2控件浏览网页时发生的当前页脚本错误
- js网页如何获取手机屏幕宽度