哪位朋友有分析网页并下载图片的文章或者代码？

Question

小弟怎么不能够发表文章?所以到处找地方大喊大叫.
刚学vb不久,看了一本菜鸟书,发现没说什么东西,请问想学好vb,大家推荐什么书呀?
谢谢

Answer 1

感谢您使用微软产品。
 
您希望分析网页并下载图片。由于网页中的元素可能是静态的（如IMG）也可能是动态的（如由连接指向图片或由SCRIPT动态指向的图片）您可以根据具体的情况加以分析，并试试以下方法：
1.使用Microsoft Internet Control分析网页内容
首先用WebBrowser控件的Navigate或Navigate2方法得到网页内容，然后在NavigateComplete2事件中提取IMG内容，代码如下：
    For i = 0 To WB.Document.All.length - 1
        If UCase(WB.Document.All(i).tagName) = "IMG" Then
            IMAGESRC = WB.Document.All(i).src
            MsgBox IMAGESRC
        End If
    Next i
同理，如果您需要提取网页中的Link，可以在当tagName="A"时提取WB.Document.All(i).href即可,然后判断文件的后缀名是否为JPG或进行其他操作
 
2.使用WinSock分析网页内容
首先连接远程服务器  
  Winsock1.RemoteHost = "http://www.YOUR_SERVER.com"
  Winsock1.RemotePort = 80
  Winsock1.Connect
  
  strWebPage = "YOUR_WANT_PAGE"
  strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
  strCommand = strCommand + "Accept: */*" + vbCrLf
  strCommand = strCommand + "Accept: text/html" + vbCrLf
  strCommand = strCommand + vbCrLf
  Winsock1.SendData strCommand
 
并在WINSOCK的DataArrival事件中接收HTML代码
  Winsock1.GetData webData, vbString
  txtWebPage = txtWebPage + webData
最后将txtWebPage作为字符串提取其中的IMG的SRC并下载
 
3.使用Microsoft Inter Transfer Control分析网页内容
 getInfo() = Inet1.OpenURL(YOUR_URL, 1)
 txtWebPage = ""
 For i = 0 To UBound(getInfo) - 1
    txtWebPage = txtWebPage + Chr(getInfo(i))
 Next
最后将txtWebPage作为字符串提取其中的IMG的SRC并下载
 
更详细的信息，请查找MSDN相关的文章。
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/wbentry.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon98/html/vbconusingwin
sockcontrol.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexpvb/html/usinginternet
transfercontrolmethods.asp
======================
- 微软全球技术中心  VB技术支持
 
本贴子仅供CSDN的用户作为参考信息使用。其内容不具备任何法律保障。您需要考虑到并承担使用此信息可能带来的风
险。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境，请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
======================