日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

'窗體添加一個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