VB 使用WebBrowser下載圖片錯誤，誰有更好的方法？

不要用DownloadComplete事件，這個並不能保證頁面已經完全加載完畢，而且在頁面顯示的過程中，DownloadComplete事件會多次觸發，因為DownloadComplete的意思是頁面中包含的文件已下載完畢，這也就意味著，如果頁面中包含多個圖片，那麽每個圖片下載完畢，DownloadComplete事件就會觸發壹次，而且不單是圖片，其他文件如css、js等也會觸發DownloadComplete事件！

正確的應該是用DocumentComplete事件，這個表示的是整個文檔已下載完畢。另外，如果頁面中包含框架，那麽每個框架加載完畢也會觸發DocumentComplete事件，所以應該排除這種情況：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

If pDisp Is WebBrowser1.Object Then '這個就是判斷事件是否由頁面本身觸發

fullPath1 = Text2

TT = Mid$(fullPath1, InStrRev(fullPath1, "/") + 1)

Dim K As Long, E, nRange

For Each E In WebBrowser1.Document.All

If E.tagName = "IMG" Then

Set nRange = WebBrowser1.Document.body.createControlRange()

nRange.Add E

nRange.execCommand "Copy" '復制到剪貼板

SavePicture Clipboard.GetData, "C:\ABC\" & TT '保存到硬盤

End If

Next

Text1.text=Text1.text+1

Text2 = List1.List(Text1.text)

WebBrowser1.Navigate Text2

End If

End Sub

上一篇:ZigBee技術的技術特點

下一篇:維吾爾語遊戲源代碼