• 主页
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API

webbrowser 中怎么判断图片是否加载完毕

hwmfly 2007-04-13 09:16:31
我用下面的函数会出现问题,有时间图片没有加载完毕ReadyState 就变成Complete了
Private Sub WaitUntilWebBrowserComplete(ByVal wb As WebBrowser)
Do While Not wb.ReadyState = WebBrowserReadyState.Complete
System.Windows.Forms.Application.DoEvents()
Loop
End Sub

我需要判断这个主要是想抓取网页上的图片
我是用下面的函数抓取图片的,总是感觉到这不是最好的方法,不知道有没有其他的办法,在网上查了说可用读取缓存,但觉得这个方法也不好
Public Sub GetPhoto()
Dim sUrl As String '="要抓取图片的网址"
wb.Navigate(sUrl)
mdl.WaitUntilWebBrowserCom(wb)

Dim doc1 As HtmlDocument = wb.Document.Window.Frames(1).Document

Dim doc As mshtml.HTMLDocument
doc = doc1.DomDocument

Dim oBody As mshtml.HTMLBody = doc.body
Dim oRang As mshtml.IHTMLControlRange
oRang = oBody.createControlRange

Dim els As HtmlElementCollection
Dim el As HtmlElement
els = doc1.GetElementsByTagName("img")

For Each el In els
If InStr(el.GetAttribute("src"), "photow/aka/getphoto2?ref") > 0 Then
oRang.add(el.DomElement)
oRang.execCommand("copy", False)
' save picture
Clipboard.GetImage().Save(sPhotoPath & sId & ".jpg")
Exit For
End If
Next
End Sub
...全文
716 点赞 收藏 12
写回复
12 条回复
hwmfly 2007年04月22日
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
回复 点赞
hwmfly 2007年04月20日
CSDN 高手阿
回复 点赞
kkcgs 2007年04月16日
我也是遇到问题,不知道怎么解决,速度慢的时候,经常发现图片才下一半就提示完成了
回复 点赞
hwmfly 2007年04月15日
没有人会吗?自己顶
回复 点赞
goodluckalong 2007年04月15日
up
回复 点赞
ufoteam 2007年04月13日
缓存没有,就读到网址下载下来
回复 点赞
阿Deee 2007年04月13日
占上顶
回复 点赞
CathySun118 2007年04月13日
帮你顶
回复 点赞
hwmfly 2007年04月13日
等了一天了,高手呢。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
回复 点赞
hwmfly 2007年04月13日
自己顶
回复 点赞
jackson5 2007年04月13日
再来顶
顶死你
帅啊!!!!!!!!!!!!!!!!!!!!!!
回复 点赞
hwmfly 2007年04月13日
to ufoteam()
能否具体点
回复 点赞
发动态
发帖子
VB
创建于2007-09-28

1.1w+

社区成员

11.0w+

社区内容

VB技术相关讨论,主要为经典vb,即VB6.0
社区公告
暂无公告