亚洲乱色熟女一区二区三区丝袜,天堂√中文最新版在线,亚洲精品乱码久久久久久蜜桃图片,香蕉久久久久久av成人,欧美丰满熟妇bbb久久久

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

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