网页采集(网页抓取)教程第三课-获取网络图片四种方法,如何判断WebBrowser控件导航结束

CFlobaby

这个好，受益匪浅，感谢老师认真分享。

吾股丰登

留名待研究  这问题花了好几个小时一致头大  谢谢楼主

toppuror

学习了,谢谢啊

ghoob

网页采集 先收藏 在学习

renahu

liucqa 发表于 2012-7-22 18:04
四、可以使用WebBrowser控件来导航页面，并遍历图片。这个方法需要熟练掌握控件的使用，适合中高级水平的人 ...

老师，看了您这个提取图的例子，不错，不过对于验证码的图，为什么不变化呢？而且显示精度好像比较低
我用下面的方法，每此提取，图形都会变，而且显示效果比较好，怎么回事？

1. Sub 提取验证码图()
   
2.     Dim vcode, myObj As Shape
   
3.     Dim nUrl As String, localFilename As String, lngRetVal As Long
   
4.     Sheet1.Shapes(5).Delete
   
5.     nUrl = "HTTP://www.apabi.com/ValidateCode.aspx"
   
6.     Set vcode = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 440, 1, 60, 25)
   
7.     vcode.Select
   
8.     Selection.ShapeRange.Fill.UserPicture nUrl
   
9. End Sub
   

复制代码

这个唯一的不足，就是还需要再往窗体里面转移一下图，要是老师的方法能提高显示精度，而且每次提取都会变化就最好了

renahu

renahu 发表于 2014-11-15 12:10
老师，看了您这个提取图的例子，不错，不过对于验证码的图，为什么不变化呢？而且显示精度好像比较低
...

谁说不会的？不过跟你探讨一下而已，呵呵，明天发一个漂亮的

老夏

拉拉法

將檔案或資料夾拉入WebBrowser1控件內放開滑鼠
即可使用
不需要代碼

這個叫做連結

OLE基本功

gqmao

老师，附件不能下载

gqmao

下载后不能成功解压

gqmao

解压出现错误提示