公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

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