Vb.net中Webbrowser无源代码获取元素，点击元素的方法

Posted 2022-03-03 dzweather

现在很多网页都打圈了，无法查看源代码，都是用js动态生成，webbrowser不好查找元素。

以强国为例，打开后无法查看源代码。

想了很多办法，不用webbrowser又怕不计时，用fiddler发现加密和post数据太多，烦啊！

无意间发现一个可以用鼠标点击提取的元素的方法。(wb就是webbrowser1的更名)

    Private Sub Document_MouseDown(ByVal sender As Object, ByVal e As htmlElementEventArgs)
        Dim P As Point = Wb.PointToClient(MousePosition)
        Dim table As HtmlElement = Wb.Document.GetElementFromPoint(P)
        TextBox1.Text = table.TagName '用来显示当前点击的元素名
    End Sub

    Private Sub web_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Wb.DocumentCompleted
        AddHandler Wb.Document.MouseDown, New HtmlElementEventHandler(AddressOf Document_MouseDown)
    End Sub

抱着试一试的心态，运行完后，点击我们想要的“播放”元素，发现居然可以显示出元素名。

？？？？这 这是意外？textbox1中显示的Button，右击源网页查看代码仍然是看不见的。

但这是好消息，又“识别”出元素了。

把上面的代码注释了，只看网页里能识别的Button有哪些？

然后在webborwser完成加载中，测试一下：

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles Wb.DocumentCompleted
        Dim a As String
        If Not Wb.IsBusy And Wb.ReadyState = WebBrowserReadyState.Complete Then
            
                Dim elem As HtmlElement
                a = ""
                For Each elem In Wb.Document.GetElementsByTagName("Button")
                    a = a & "_" & elem.TagName
                Next
                MsgBox(a) '显示所有button的元素名

        End If
    End Sub

显示的结果是"_Button"

说明有1个button元素,看了一下网页，马上去测试.

于是再改一下上面的代码：

​
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles Wb.DocumentCompleted
        Dim a As String
        If Not Wb.IsBusy And Wb.ReadyState = WebBrowserReadyState.Complete Then
            
                'Dim elem As HtmlElement
                'a = ""
                'For Each elem In Wb.Document.GetElementsByTagName("Button")
                '    a = a & "_" & elem.TagName
                'Next
                'MsgBox(a) '显示所有button的元素名
                
                Dim elem As HtmlElement = Wb.Document.GetElementsByTagName("Button")(0)
                If elem Is Nothing Then '有时没有播放键
                Else
                    elem.InvokeMember("click")  '点击这个元素
                End If

        End If
    End Sub

​

马上运行！

果然，加载完成后，自动进行播放了。

思考：

      前面说明webbrowser已经能够识别元素，只是无法显示，我们无法“显示”指明这个元素。

可以用一个快捷的方法就是，

            直接用审查元素方法 ，找到那个元素的tagName，通过GetElementsByTagName这个集合，逐个去测试。这个比较好点。（当然有ID就更好，可惜源代码中也没有ID)