Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 Dim X, CtrlRange
 Dim ii As Long
 ii = 0
 For Each X In WebBrowser1.Document.All
 If X.tagname = "IMG" Then
 If LCase(X.src) = "http://www.monternet.com/authcode" Then
 Set CtrlRange = WebBrowser1.Document.body.createControlRange()
 CtrlRange.Add (X)
 CtrlRange.execCommand ("Copy") '获取验证码
 Image1.Picture = Clipboard.GetData '在Image1控件上显示
 Exit Sub
 End If
 ii = ii + 1
 End If
 Next
 End Sub

调用页面Javascript方法:

方法1：
webbrowser.document.getElementById("content").onmousedown();

方法2：
webbrowser.document.getElementsByName("content")(0).onmousedown();

方法3:
WebBrowser1.Document.parentWindow.execScript "clearInitContent();"