设为首页
给我留言
首页       关于蓬缘    克隆建站    模版建站    建站流程    建站疑虑    支付方式    网站推广    网站优化    建站学院    联系我们    
蓬缘网络技术工作室真心为您服务!霸州网站建设 + 霸州网页设计 + 霸州企业建站 + 霸州FLASH设计 + 霸州网站开发 + 平面设计,专业技术人员一对一服务让建站更加专业更加放心……二十四小时服务热线: 15932615201 13810319167。欢迎来电咨询……霸州网站建设工作室|霸州网站制作|霸州建站|霸州网站改版|霸州企业建站|霸州专业建站|蓬缘网络技术工作室 - 我要网站 - http://www.woyaowangzhan.com……霸州蓬缘网络技术工作室是专业的建站团队,提供专业的霸州建站服务:1、霸州专业网站建设(霸州网站设计)2、霸州网站推广(百度、Google、搜狐、阿里巴巴等)3、霸州网站优化(SEO、百度推广优化)4、霸州域名注册(.com/.cn/.net等)5、霸州虚拟主机(ASP、.net等)6、霸州政府建站7、霸州门户网站…… 现在时间是
建站学堂
 
如何用vb.net获取网页源代码
[ 2008-9-15 19:33:00 ] 作者: 来源:

  核心提示:...

如何用VB.NET制作一个属于自己的文章采集系统?是我们接下来要详细讨论的话题.本文主要讲解了文章采集系统中最基础的操作:网页源代码的取得.我们都知道,文章的采集是将指定网页的内容中的一部分作为采集的结果存储到数据库当中的.一般采集系统的实现,都是通过HttpWebRequest对象取得网页的源代码,然后再加上一些字符串的处理函数,或者是由一些正则表达式完成内容过滤的.接下来我们将详细介绍如何取得网页的源代码:


取得网页源代码的VB.NET的代码如下:
   
   
    Dim req As HttpWebRequest = WebRequest.Create("http://rss.sina.com.cn/news/marquee/ddt.xml")
   
    Dim res As HttpWebResponse = req.GetResponse()
   
    Dim strm As StreamReader = New StreamReader(res.GetResponseStream(), Encoding.UTF8)
   
    Dim sline As String
   
    Sline = strm.ReadToEnd() ''这就是网页代码[/color]
   
   
    引用如下:
   
    Imports System.Net
   
    Imports System.Text
   
    Imports System.IO
   
   
    代码如下:
   
    Dim buf(1000000) As Byte
   
    Dim request As HttpWebRequest = WebRequest.Create("http://www.mcfsoft.com.cn")
   
    Dim response As HttpWebResponse = request.GetResponse()
   
    Dim resStream As Stream = response.GetResponseStream()
   
    Dim count As Integer = resStream.Read(buf, 0, buf.Length)
   
    Dim str As String = Encoding.Default.GetString(buf, 0, count) ''这里的str就是你要的网页代码
   
    resStream.Close()
   
   
    文件下载源代码。同时可以用来显示网页源代码。应该没有编码问题。
   
   
   
    把下面注释的符号去掉就可以断点续传了。不过此功能不稳定
    Sub Down(ByVal StrFileName As String, ByVal StrUrl As String)
   
    Dim lStartPos As Long = 0
    Dim fs As System.IO.FileStream
    '' If System.IO.File.Exists(StrFileName) Then
    '' fs = System.IO.File.OpenWrite(StrFileName)
    '' lStartPos = fs.Length
    '' fs.Seek(lStartPos, System.IO.SeekOrigin.Current)
    '' Else
    fs = New System.IO.FileStream(StrFileName, System.IO.FileMode.Create)
    lStartPos = 0
    '' End If
    Try
    Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(StrUrl), System.Net.HttpWebRequest)
    If lStartPos > 0 Then
    request.AddRange(CType(lStartPos, Integer))
    End If
    Dim ns As System.IO.Stream = request.GetResponse.GetResponseStream
    Dim nbytes(512) As Byte
    Dim nReadSize As Integer = 0
    nReadSize = ns.Read(nbytes, 0, 512)
    While nReadSize > 0
    fs.Write(nbytes, 0, nReadSize)
    nReadSize = ns.Read(nbytes, 0, 512)
    End While
    fs.Close()
    ns.Close()
   
    Catch ex As Exception
    fs.Close()
    End Try
    End Sub



 
   建站学堂
  ●  ASP编程技术
  ●  PHP编程技术
  ●  JSP编辑技术
  ●  ASP.NET编程技术
  ●  JAVA软件开发
  ●  C#软件开发
  ●  VB.NET软件开发
   网站推广与营销
  ● 网站备案的9个细节问题
  ● 网上注册一个域名的意义
  ● 网站从建设到运营的5点注意
  ● 8种提高网站ALEXA排名的方法
  ● 搜索引擎之间的4个区别
  ● 网站优化基本搜索引擎优化篇
  ● 点评A8音乐商业模式
  ● 5种不可取的网站推广方法
  ● SNS将成四大门户竞争的关键筹码
  ● 企业整站优化的一些技巧
  ● 马化腾创业三问
  ● 站长们每天都要做的工作
   网站优化与排名
  ● 快速提升访问量的方法
  ● 网站优化关键词工具,优化软件,SEO优化工具,SEO优化软件
  ● 总结四点分享我建站失败的经历
  ● 从达人圈到开心人人首谈SNS域名的选择与定位
  ● 良好心态是站长们成功的关键
  ● 浅谈做冷门站的一些心得体会
  ● 小游戏网站经营最重要的是站在用户的角度创新
  ● 关于网站首页打开速度之我见
  ● 谈一次域名解析出错带来的惨痛代价
  ● 我的地方论坛的建站之路经验总结
  ● 千人站长讲座第46期空姐网军哥谈特色社区运营
  ● 浅谈QQ类网站之站长的出路