'窗体添加一个WebBrowser,一个CommandButton,一个PictureBox
Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "./login.asp"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL <> "" Then
        Dim Img As Object, CR As Object
        
        Set Img = WebBrowser1.Document.getElementById("vcodeImg")   '根据验证码的ID取得这个对象
        Set CR = WebBrowser1.Document.body.createControlRange()     '设置选区
        
        CR.Add Img                                                  '添加验证码图片对象到选区
        CR.execCommand ("Copy")                                     '复制
        Set Picture1.Picture = Clipboard.GetData()                  '粘贴过去
    End If
End Sub