知识大全用.net和协议快速开发下载软件

Posted 2022-07-19 文件

篇首语：历览千载书，时时见遗烈。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用.net和协议快速开发下载软件相关的知识，希望对你有一定的参考价值。

　　在互连网广泛应用的今天将有用的信息下载到本地是一件很普遍的事当然这个过程我们可以通过许多下载工具实现目前的这些下载工具绝大多数都是使用协议完成的虽然使用编写下载工具是一种很简单的方法但美中不足的是开发人员必须要结合winsock并编写大量的代码才可以完成因为是一个工业标准你不可以自定义这个标准唯一的办法只有服从而且由于用到winsock技术所以对开发人员的要求也很高　　　　以前我曾经用vb 编写了一个下载程序在程序中使用了vb 中提供的winsock activeX控件和协议来实现最简单的下载功能这个程序的长度有行　　　　今天当我翻框架时我兴奋了应为要编写一个下载软件比以前方便快捷了于是我忍不住希望有人和我分享这种愉悦的心情我真的是叫好他能使你从乏味的工作中解脱出来！　　　　下面就让我们一下这种技术为什么如此让人兴奋　　　　中编写快速简单的下载和上传的代码只要调用WebClient类就可以了对于简单请求和响应事务 WebClient类提供将数据上载到Internet服务器或从Internet服务器下载数据的最简便的方法 WebClient提供上载和下载文件发送和接收流以及将数据缓冲区发送到服务器并接收响应的方法这样事情就简单多了　　　　了解了这个技术后我们就可以编写下载和上传的程序了　　　　先添加timer textbox button savefiledialog和个label控件 savefiledialog用来保存下载的文件 timen用来和一个label控件结合显示已经下载了多少 Textbox用来接受输入的url地址将timer 的属性interval定为即每一秒启动一次Timer _Tick事件将label text定为 \\\\ 　　　　 代码如下 　　Imports System Net 到入命名空间　　Public Class Form 　　Inherits System Windows Forms Form　　Public Shared fpath As String　　Dim fsize As Long　　Private Sub Button _Click(ByVal sender As System Object ByVal e As　　System EventArgs) Handles Button Click　　Dim urld As String　　Dim i As Integer　　Dim dfile As New WebClient() 实例化WebClient类　　SaveFileDialog ShowDialog()　　fpath = SaveFileDialog FileName　　Label Text = 文件保存在 &# ; fpath　　urld = Label Text + TextBox Text　　Timer Enabled = True　　dfile DownloadFile(urld fpath) 下载指定nrl地址的文件　　Timer Enabled = False　　End Sub　　Private Sub Timer _Tick(ByVal sender As Object 　　ByVal e As System EventArgs) Handles Timer Tick　　Me Refresh() 用来刷新窗口　　Dim th As New th ()　　Dim tt As New System Threading Thread(AddressOf th timeth) 实例化线程类　　tt Start() 启动线程　　Label Text = th downk 显示下载文件的大小　　进行计算下载速度　　Static k As Integer　　Dim p downspeed　　p = k　　k = p + 　　p = k　　Dim fileinfo As New System IO FileInfo(form fpath)　　downspeed = fileinfo Length()　　downspeed= downspeed/p　　label textbox= 当前下载速度是 &# ; downspeed &# ; k/m 　　End Sub　　End Class　　Public Class th 　　Public Shared downk As String　　Dim form As New Form ()　　Dim fileinfo As New System IO FileInfo(form fpath)　　Dim fsize As Long　　Public Sub timeth()　　If fileinfo Exists = True Then　　fsize = fileinfo Length()　　downk = 以下载文件 &# ; fsize &# ; k 　　End If　　End Sub　　End Class　　　　你看懂上面的代码了吗？别急让我来解释一下　　　　● 第一个要解释的是线程简单的说就是在exe文件运行的时候计算机会为他创建一个进程将这个进程分成若个块每块完成不同的任务这些块就是线程（更多的知识请见相关照料）那为什么我会在Timer _Tick事件（每过一段时间就执行其中的代码）中使用线程尼？因为我发现在调试的时候WebClient类占有的资源校大（这可能是net自己的原因）在运行时使整个窗口的显示不完整使用了线程和Me Refresh()语句后情况有所好转（在net中要创建线程的方法见msdn）　　　　● 另一个要解释的是System IO框架中的FileInfo类我用他来读已经下载的文件大小在程序中我没有获取要下载文件的大小换句话说就是只有等下载完成后才可以知道文件到底用多大这时您或许要问难道net中没提供相关的类吗？我花了个小时将net中的所有类打开一一查看终于找了到相关的类这两个类就是WebRequest和WebResponse（这两个类的使用见msdn）即它们的子代类因为这两个类的使用比WebClient复杂（如果你要写更复杂的下载程序就要使用它们）但是如果你要获得服务器上你要下载的文件的大小你就必须使用它们下面我就写一个简单的代码来获得其服务器上你要下载的文件的大小　　　　Private Sub Form _Click(ByVal sender As Object 　　ByVal e As System EventArgs) Handles MyBase Click　　Dim th As WebRequest =　　WebRequest Create( ( ) exe )　　这个站是超星的网站 SSR b B( ) exe文件是超星图书阅读器　　Dim w As WebResponse = th GetResponse()　　Dim j As Long　　j = w ContentLength() ToString 获得文件大小　　Debug WriteLine(j)　　End Sub　　　　● 对于无法获得的下载速度我们可以通过计算来获得计算的思路是通过定义一个静态变量使他每一秒加一就可以知道下载了多少秒在从downspeed = fileinfo Length()语句得到下载的这段时间文件的大小用downspeed除以秒就可以得到当前的下载速度了请注意这只是一个估略的值如果你想每隔n秒才计算的话设置p=k* timer interval/ 　　　　● 最后要说的是你还可以调用wininte dll这个动态库中的函数这个库是专为编写网络程序提供的使用它你也可以编写下载和上传的程序当然你也可以使用来写　　　　在结束前向大家推荐一本用vb和协议开发的书《visual basic 网络高级编程》是人民邮电出版社出的 isbn号是 /tp 元汪晓平钟军写的这本书详细讲了用vb和 ftp smtp nntp telnt协议开发网络程序的知识　　　　看了以上的代码你是否觉得编写下载软件以不是什么高手才可以完成的任务了吧！那就动手吧！ cha138/Article/program/Java/hx/201311/25638

知识大全 用.net和协议快速开发下载软件

知识大全用.net和协议快速开发下载软件