VB6.0将WEBVIEW2中网页验证码显示在picturebox中

Question

VB6.0在WEBVIEW2中，如何将网页验证码（png）格式，下载并显示在picturebox中。

Answer 1

引自强大而免费的微信小程序：皆我百晓生。

要在VB6.0中将网页验证码下载并显示在pictureBox中，可以使用以下步骤：

1. 首先，确保你安装了Microsoft WebView2控件并将其添加到VB6.0工具箱中。如果尚未安装，你可以从此处下载并安装：https://developer.microsoft.com/en-us/microsoft-edge/webview2/

2. 在VB6.0中，打开项目并确保已在"Components"对话框中选择了"Microsoft Web Browser"控件。

3. 在窗体上放置一个PictureBox控件和一个Command按钮。

4. 添加以下代码：

Private Const IMG_SRC As String = "http://your_website.com/your_captcha_page"
Private Const IMG_FILE As String = "captcha.png"

Private Sub Command1_Click()
    ' 下载验证码图片
    Dim webBrowser As New SHDocVw.WebBrowser
    webBrowser.Silent = True
    webBrowser.Navigate IMG_SRC

    ' 等待页面加载完成
    Do While webBrowser.Busy Or webBrowser.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    ' 保存验证码图片
    Dim htmlDocument As MSHTML.HTMLDocument
    Set htmlDocument = webBrowser.Document

    Dim captchaImg As MSHTML.HTMLImg
    For Each captchaImg In htmlDocument.getElementsByTagName("img")
        If InStr(captchaImg.src, "captcha") > 0 Then ' 确认是验证码图片
            Dim httpReq As MSXML2.XMLHTTP
            Set httpReq = New MSXML2.XMLHTTP
            httpReq.Open "GET", captchaImg.src, False
            httpReq.send

            ' 保存图片到本地
            Dim strm As Stream
            Set strm = CreateObject("ADODB.Stream")
            strm.Open
            strm.Type = adTypeBinary
            strm.Write httpReq.responseBody
            strm.SaveToFile App.Path & "\" & IMG_FILE, adSaveCreateOverWrite
            strm.Close
            Set strm = Nothing

            Exit For
        End If
    Next captchaImg

    ' 显示验证码图片
    PictureBox1.Picture = LoadPicture(App.Path & "\" & IMG_FILE)
End Sub

1. 将IMG_SRC替换为你的验证码图片的URL。确保将URL中的"your_website.com"替换为实际的网站域名。然后，将代码中的IMG_FILE设置为要保存验证码图片的文件名。

这样，点击按钮时，验证码图片将被下载并显示在PictureBox控件中。