2015京东双十一海报:用.net快速开发下载软件(Use. Net download software to q...
来源:百度文库 编辑:中财网 时间:2024/05/03 06:30:45
用.net快速开发下载软件 [ English ]
2008-2-24 1:52:08 中国学网 跟贴 0 条 网友投稿
在互连网广泛应用的今天,将有用的信息下载到本地是一件很普遍的事。当然,这个过程我们可以通过许多下载工具实现。目前的这些下载工具,绝大多数都是使用http协议完成的。虽然使用http编写下载工具是一种很简单的方法,但美中不足的是开发人员必须要结合winsock并编写大量的代码才可以完成。因为http是一个工业标准,你不可以自定义这个标准,唯一的办法只有服从。而且由于用到winsock技术,所以对开发人员的要求也很高。
以前我曾经用vb6编写了一个下载程序,在程序中使用了vb6中提供的winsock activeX控件和http协议来实现最简单的下载功能。这个程序的长度有200行。
今天当我翻开.net框架时,我兴奋了,应为要编写一个下载软件比以前方便、快捷了,于是我忍不住希望有人和我分享这种愉悦的心情。我真的是为.net叫好,他能使你从乏味的工作中解脱出来!
下面就让我们一下这种技术为什么如此让人兴奋。
在.net中编写快速简单的下载和上传的代码只要调用WebClient类就可以了。对于简单请求和响应事务,WebClient类提供将数据上载到Internet服务器或从Internet服务器下载数据的最简便的方法。WebClient提供上载和下载文件、发送和接收流以及将数据缓冲区发送到服务器并接收响应的方法。这样,事情就简单多了。
了解了这个技术后,我们就可以编写下载和上传的程序了。
先添加timer,textbox,button,savefiledialog和4个label控件,savefiledialog用来保存下载的文件,timen用来和一个label控件结合,显示已经下载了多少。Textbox用来接受输入的url地址。将timer1的属性interval定为1000,即每一秒启动一次Timer1_Tick事件。将label1.text定为http://。
代码如下:
Imports System.Net'到入命名空间
Public Class Form1
Inherits System.Windows.Forms.Form
Public Shared fpath As String
Dim fsize As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim urld As String
Dim i As Integer
Dim dfile As New WebClient()'实例化WebClient类
SaveFileDialog1.ShowDialog()
fpath = SaveFileDialog1.FileName
Label3.Text = "文件保存在" & fpath
urld = Label1.Text + TextBox1.Text
Timer1.Enabled = True
dfile.DownloadFile(urld, fpath)'下载指定nrl地址的文件
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Refresh()'用来刷新窗口
Dim th2 As New th1()
Dim tt As New System.Threading.Thread(AddressOf th2.timeth) 实例化线程类
tt.Start()'启动线程
Label2.Text = th2.downk'显示下载文件的大小
'进行计算下载速度
Static k As Integer
Dim p,downspeed
p = k
k = p + 1
p = k
Dim fileinfo As New System.IO.FileInfo(form.fpath)
downspeed = fileinfo.Length()
downspeed= downspeed/p
label4.textbox= "当前下载速度是"& downspeed & "k/m"
End Sub
End Class
Public Class th1
Public Shared downk As String
Dim form As New Form1()
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 转帖于 Xue163.com_VB.NET
用“net use"命令映射共享目录,提示我选择“Y”或“N”,怎么用批处理来映射呢?
用asp.net开发网站,用什么软件啊
用ASP.NET开发平台软件的思路
一般开发C++用什么软件啊? 【可以用C++.net开发c++吗?】
net use的用法
net use 是什么
asp.net开发要用到哪些软件??
用.net开发网站需要安装完整版吗,是不是有专门用于网站开发的一种.net?在那里下载呢?
怎么能快速学会电脑软件开发?
谁知道怎么用net use建立ipc$连接吗?
.net开发
学习ASP.NET应用与开发案例教程这本书,想下载软件,哪里有下,软件名是什么?
C#和C#.net 用什么开发环境?(就是软件)
大家用asp.net开发网页时。用什么软件环境。有教程吗?
为什么NET USE复制失败?
DOS :net use的问题
关于net use的问题
关于net use的问题
请问用Eclipse 开发jsp要下载什么插件才可以像asp.net 那样开发web的?
请问开发ASP.NET(C#)用什么开发环境
用什么开发环境开发C#的asp.net?
.net开发B/S结构组态软件文档
如何打包用易表.net开发的小软件
关于.net下开发出来软件如何使用?