'窗體添加一個(gè)WebBrowser,一個(gè)CommandButton,一個(gè)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") '根據(jù)驗(yàn)證碼的ID取得這個(gè)對象
Set CR = WebBrowser1.Document.body.createControlRange() '設(shè)置選區(qū)

CR.Add Img '添加驗(yàn)證碼圖片對象到選區(qū)
CR.execCommand ("Copy") '復(fù)制
Set Picture1.Picture = Clipboard.GetData() '粘貼過去
End If
End Sub