文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
ASP.NET编程中url编码的转换
Asp.net把UTF-8编码转换为GB2312编码
如何用vb.net获取网页源代码2
如何用vb.net获取网页源代码
VB.Net中关于数组赋值
Imports 语句
Imports 语句分析
VB.NET入门--Imports 语句
asp.net连接Access数据库
Asp.net如何连接Access数据库
ASP.NET技巧:access下的分页方案
ASP.net的ACCESS数据分页方案
ASP.NET与ACCESS结合建设网站的经验总..
编译asp.net文件为dll文件
ASP.NET的错误处理机制
ASP.NET 2.0编程小技巧两则
ASP.NET 2.0发送电子邮件全面剖析之二
ASP.NET 2.0中发送电子邮件剖析之一
如何充分利用ASP.NET 2.0预编译
如何改变asp.net项目名称
轻松加密ASP.NET 2.0 Web程序配置信息
Visual Studio.NET常见问题解答
ASP.Net中将图片数据保存到XML文档
ASP.NET中随机数的产生
提高ASP.Net应用程序性能的十大方法
ASP.NET中利用cookies保持客户端信息
ASP.NET热点问题解答14个
用ASP.NET加密Cookie数据(2)
用ASP.NET加密Cookie数据(1)
ASP.NET中在线用户统计


技术教程 -> ASP.NET教程 ->  
如何用vb.net获取网页源代码2
来源:转载   人气:1758   录入时间:2007-11-8
    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
   
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987