如何将Webbrowser获取的验证码显示在图片框中

 

我们在验证码相关问题中，有许多需要解决的问题，就比如说目前我们需要面对的问题，就是如何在webbrowser中获得的生产在图片框中，这对于我们一些程序工作者来说可能一时间不能够找到比较好的解决办法，那么今天就为大家来介绍一段关于webbrowser获取验证码显示在图片中的方法。

  '* t=0 默认为 im 传入的是图片 id 属性

    '* t=1 为 Alt 属性 t=2 为 Src 属性

    Private Function GetCode(ByVal wb AsWebBrowser, ByVal im As String, Optional ByVal t As Integer = 0) As Image

        Try

            Dim doc As HTMLDocument =DirectCast(wb.Document.DomDocument, HTMLDocument)

            Dim body As HTMLBody = DirectCast(doc.body,HTMLBody)

            Dim rang As IHTMLControlRange =DirectCast(body.createControlRange(), IHTMLControlRange)

            Dim img As IHTMLControlElement

            If t = 0 Then

                img =DirectCast(wb.Document.All(im).DomElement, IHTMLControlElement)

            Else

                img = GetPicElement(wb, im, t)

            End If

            If img Is Nothing Then

                Return Nothing

            End If

            rang.add(img)

            Clipboard.Clear()

            rang.execCommand("Copy", False,Nothing)

            doc = Nothing

            body = Nothing

            rang = Nothing

            img = Nothing

            If Clipboard.ContainsImage Then

                Return Clipboard.GetImage()

            Else

                Return Nothing

            End If

        Catch exp As Exception

            Return Nothing

        End Try

    End Function

    '* 获取网页中的某一个图片元素

    Private Function GetPicElement(ByVal wb AsWebBrowser, ByVal im As String, ByVal t As Integer) As IHTMLControlElement

        For Each image As HtmlElement Inwb.Document.Images

            Dim img As IHTMLImgElement =DirectCast(image.DomElement, IHTMLImgElement)

            If t = 1 Then

                If img.alt.Contains(im) Then

                    Return DirectCast(image.DomElement,IHTMLControlElement)

                End If

            Else

                If img.src.Contains(im) Then

                    ReturnDirectCast(image.DomElement, IHTMLControlElement)

                End If

            End If

        Next image

        Return Nothing '* 没有找到元素

    End Function

  应该说整个过程是太难，我们只需要将代码进行调用