Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.baidu.com/"
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
发表于 2011-9-13 00:02
