应用错误收集

我的英语的第一个借口我来自西班牙。

我有点担心，因为我无法在学校完成我的项目，我正在尝试使用webbrowser控件在visual basic 6中开发应用程序来从互联网上播放CD封面（Album Art），我把它放了这条导航路径：

“http://www.google.com.co/search？ HL = ES＆安培;安全=活性＆安培; GBV = 2及BIW = 1280＆安培;波黑= 821＆安培; TBM = isch＆安培; SA = 1和Q =％22heroes +德尔+ SILENCIO％22％2B％22avalancha％22％2Balbum +艺术+小＆安培; OQ =％22heroes +德尔+ SILENCIO％22％2B％22avalancha％22％2Balbum +艺术+小＆安培;水溶液= F＆安培; AQI =安培; AQL = 1＆安培; gs_sm = E＆安培; gs_upl =“

这显示了我需要的封面，但我正在尝试获取第一个图片文件名或URL并将其直接保存到文件夹在我的PC中，请给我一些帮助，谢谢......

我将非常感谢你的帮助

我已经编写了部分代码，您可以继续完成您的程序。这是sub的代码，它为您提供HTML网页代码：

函数GetHTMLCode（strURL As String）As String
    Dim objHttp As Object，strText As String
    设置objHttp = CreateObject（“MSXML2.ServerXMLHTTP”）
    objHttp.Open“GET”，strURL，False
    objHttp.setRequestHeader“User-Agent”，_
        “Mozilla / 4.0（兼容; MSIE 6.0; Windows NT 5.0）”
    objHttp.Send（“”）
    strText = objHttp.responseText
    设置objHttp = Nothing
    GetHTMLCode = strText
结束功能

我发现Google图片中所有图片链接都是以此HTML代码开头的：
src =“http：//
并以此结束：
“
图片的链接在这两行之间！
您可以使用GetHTMLCode获取当前网页的所有HTML代码。
然后使用“instr”函数不断找到这两行，并下载它们之间的链接。
问题解决了！

如果我的答案有用，请投票。）

使用webBrowser控件从Web下载图片

1 个答案: