Private Sub Command1_Click()
    Dim X
    Dim CtrlRange
    For Each X In webAuto.Document.All
        If X.tagName = "IMG" Then
             Set CtrlRange = webAuto.Document.body.createControlRange()
             CtrlRange.Add (X)    '此处提示出错  对象不支持该属性或方法
             CtrlRange.execCommand ("Copy")
             Set Image1.Picture = Clipboard.GetData
         End If
    Next
End Sub

Private Sub Form_Load()
    webAuto.Navigate "http://www.
End Sub

有的网页可以成功获取，可这个网页提示出错请高手指点，感谢！

[此贴子已经被作者于2017-6-3 00:43编辑过]

webbrowser控件的Document.All并不能获取所有元素，因为有的元素是通过js代码产生的，下述代码可能可以得到全部源代码：
Dim XmlHttp,a
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", "http://www., True
XmlHttp.send
While XmlHttp.readyState <> 4
DoEvents
Wend
a=XmlHttp.Text   '此处提示出错，提示此对对象不支持该属性或方法
还有一个问题就是，这个验证图片需要点一下输入验证码文本框才能显示出来

webbrowser控件的Document.All并不能获取所有元素，因为有的元素是通过js代码产生的，下述代码可能可以得到全部源代码：
Dim XmlHttp,a
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", "http://www., True
XmlHttp.send
While XmlHttp.readyState <> 4
DoEvents
Wend
a=XmlHttp.Text   '此处提示出错，提示此对对象不支持该属性或方法
还有一个问题就是，这个验证图片需要点一下输入验证码文本框才能显示出来

多谢，这样是可以获取源码了，可是还有一个问题想请教您，这个验证图片需要点一下验证码文本框才能显示出来验证码，这样应该如何操作？

这是什么函数没找到相关资料，不知道应该如何操作，还得请您帮我找点这方面的资料，多谢！

好的，多谢，我自己先找找这方面的资料试试看，到时候如果有什么不懂的再向你请教了。

好的，多谢，我自己先找找这方面的资料试试看，到时候如果有什么不懂的再向你请教了。

<img ng-show="scope.checkCode.image" ng-src="data:image/png;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAASACgDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDt9d8S2lpLb2zGLFwf3Ucs6wpKB1Znb7sY9gS3YEUzV/E0NsLO3uBbrJcj5IWuRHG+MZJkYDEYPtluy4rK8R6JqOq6ve3lnaNc2V3pps1KyImxw2Qx3EfJk5yMn5emOtS/8M6nMT9nhe+tZNHXTvMEiJh0xhzuI/d554yeOmOuUYwSV9Lfhv8Aj/WnTpbld2/rb/gmxqviuVbh7ZLBJorSz+2XiJOVBQEAhDt+cdTghcgds8rr3iuW306DULbSJ7vRyqPLIJFjyrEAYB5bk9B17kDrmX/hW91P7HBZGaAJp6WNxqRkQRzRDGRs5Y9DjhQc/e9b2uaXJrVgNGh0V306CAJZ3wljG2QDAY5IZVGASVB3enq7U4teX4f8F9BJyf8AXp/wTqFP9pIGwUsgM4PBl/8Asf5/TqVHaRSXNnBDLKZLaKNVeQ8G4IGCf93+f06lYOXK+VNryX67a/15Gi1WpLq3FkqjhWljUjsQWGR9KNW4slUcK0sakdiCwyPpRRSpfY/xf5DDVuLJVHCtLGpHYgsMj6UatxZKo4VpY1I7EFhkfSiiil9j/F/kAatxZKo4VpY1I7EFhkfSiiiu3A/w36ks/9k=" class="" src="data:image/png;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAASACgDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwDt9d8S2lpLb2zGLFwf3Ucs6wpKB1Znb7sY9gS3YEUzV/E0NsLO3uBbrJcj5IWuRHG+MZJkYDEYPtluy4rK8R6JqOq6ve3lnaNc2V3pps1KyImxw2Qx3EfJk5yMn5emOtS/8M6nMT9nhe+tZNHXTvMEiJh0xhzuI/d554yeOmOuUYwSV9Lfhv8Aj/WnTpbld2/rb/gmxqviuVbh7ZLBJorSz+2XiJOVBQEAhDt+cdTghcgds8rr3iuW306DULbSJ7vRyqPLIJFjyrEAYB5bk9B17kDrmX/hW91P7HBZGaAJp6WNxqRkQRzRDGRs5Y9DjhQc/e9b2uaXJrVgNGh0V306CAJZ3wljG2QDAY5IZVGASVB3enq7U4teX4f8F9BJyf8AXp/wTqFP9pIGwUsgM4PBl/8Asf5/TqVHaRSXNnBDLKZLaKNVeQ8G4IGCf93+f06lYOXK+VNryX67a/15Gi1WpLq3FkqjhWljUjsQWGR9KNW4slUcK0sakdiCwyPpRRSpfY/xf5DDVuLJVHCtLGpHYgsMj6UatxZKo4VpY1I7EFhkfSiiil9j/F/kAatxZKo4VpY1I7EFhkfSiiiu3A/w36ks/9k=">
现在验证码的地址已经获取到了，可是这样的地址不知道怎么显示到image里。

已经通过你说的写 html 文件，另一个 webbrows 打开html 文件来自动显示这个图像解决了，这些天非常感谢你的热心帮助！