给初学者:VB如何操作WEB页的浏览提交———六:如何获取发生在网页内部的事件

时间:2021-08-03 08:44:53

简单写一点,如何获取点击

首先在工程中添加对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

这样就可以看见效果了.