狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

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