vb.net写的断点续传下载类

最新推荐文章于 2019-12-09 16:01:53 发布

彡耶和华

最新推荐文章于 2019-12-09 16:01:53 发布

阅读量975

点赞数

分类专栏： vb.net 文章标签：类 httpwebrequest 下载断点续传 .net

本文链接：https://blog.csdn.net/u012456259/article/details/12884705

版权

vb.net 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

Imports System.IO
Imports System.Net

Public Class DL2
Public Function down(url As String, mode As Integer, fname As String) As Boolean
If mode = 0 Then
Dim httpUrl As New System.Uri(url)
Dim fs As FileStream = (System.IO.File.Create(fname))
Dim req As HttpWebRequest
req = CType(WebRequest.Create(httpUrl), HttpWebRequest)
Dim res As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
Dim nbytes(512) As Byte
Dim nReadSize As Integer = 0
Try
nReadSize = res.GetResponseStream.Read(nbytes, 0, 512)
Do While (nReadSize > 0)
fs.Write(nbytes, 0, nReadSize)
nReadSize = res.GetResponseStream.Read(nbytes, 0, 512)
Loop
fs.Close()
res.GetResponseStream.Close()
down = True
Catch
fs.Close()
down = False
End Try
ElseIf mode = 1 Then
If System.IO.File.Exists(fname) Then
Dim fstream As System.IO.FileStream = System.IO.File.OpenRead(fname)
Dim lp As Integer = fstream.Length
MsgBox(lp)
fstream.Close()
Dim httpUrl As New System.Uri(url)
Dim fs As FileStream = System.IO.File.OpenWrite(fname)
Dim req As HttpWebRequest
req = CType(WebRequest.Create(httpUrl), HttpWebRequest)
req.AddRange(lp)
Dim res As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
fs.Seek(lp, System.IO.SeekOrigin.Current) '移动文件流中的当前指针
Dim nbytes(512) As Byte
Dim nReadSize As Integer = 0
Try
nReadSize = res.GetResponseStream.Read(nbytes, 0, 512)
Do While (nReadSize > 0)
fs.Write(nbytes, 0, nReadSize)
nReadSize = res.GetResponseStream.Read(nbytes, 0, 512)
Loop
fs.Close()
res.GetResponseStream.Close()
down = True
Catch
fs.Close()
down = False
End Try
Else
down = False
End If
Else
down = False

End If
End Function
End Class