VB网页采集方案

用com对象动态创建技术,即可在VB程序中创建一个IE,然后访问需要的网址,等待加载完毕,然后就可以十分方便地得到完整的源码

ASP/Visual Basic代码
  1. Function GetFullHtml(vURL As StringAs String  
  2.       
  3.     Dim ie As Object  
  4.     Dim element As Object  
  5.       
  6.     Set ie = CreateObject("InternetExplorer.Application")  
  7.       
  8.     With ie  
  9.         .Visible = False  
  10.         .navigate vURL  
  11.         Do Until .Readystate = 4  
  12.             DoEvents  
  13.         Loop  
  14.         GetFullHtml = .Document.body.innerhtml  
  15.     End With  
  16.   
  17.     Set ie = Nothing  
  18.       
  19. End Function  


上一篇: asp返回404错误状态码
下一篇: WIN2003+IIS6+PHP5.3.8/PHP5.4.22的安装配置
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb
相关日志:
评论: 0 | 引用: 0 | 查看次数: 2241
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭

 广告位

↑返回顶部↑