Private Function GetRegCodePic(ByVal wb As WebBrowser) As Byte()
        If wb.Document.Images.Count = 1 Then
            Try
                Dim doc As MSHTML.HTMLDocument = DirectCast(wb.Document.DomDocument, MSHTML.HTMLDocument)
                Dim body As MSHTML.HTMLBody = DirectCast(doc.body, MSHTML.HTMLBody)
                Dim rang As MSHTML.IHTMLControlRange = DirectCast(body.createControlRange, MSHTML.IHTMLControlRange)
                Dim Img As MSHTML.IHTMLControlElement
                Img = DirectCast(wb.Document.Images(0).DomElement, MSHTML.IHTMLControlElement)
                rang.add(Img)
                Dim RegImg As Image
                SyncLock My.Computer.Clipboard
                    rang.execCommand("Copy")
                    RegImg = Clipboard.GetImage()
                    My.Computer.Clipboard.Clear()
                End SyncLock
                Dim TempStream As New MemoryStream
                RegImg.Save(TempStream, System.Drawing.Imaging.ImageFormat.Jpeg)
                Return TempStream.ToArray
            Catch ex As Exception
                Dim by(0) As Byte
                Return by
            End Try
        Else
            Dim by(0) As Byte
            Return by
        End If
    End Function