各位好﹕我想從網站上下載几個文件﹐﹐并顯示出下載進度條﹐和速度﹐﹐請問我該怎么做﹐﹐謝謝
解决方案 »
- 帮忙看看这段代码问题在那里~~小弟的分用完了~~不好意思不能给你们分了。~~~~等以后有分了在多多拿出来。。
- 又是个查找文件的问题!
- 病毒的局域网传播
- 请推荐一本优秀的Windows API教程
- ▲△▲△为什么select语句的执行速度在MySQL和SQL Server中要比Access慢那么多呢?
- 求救! 为什么 我更新记录集的时候 老提示“对象或执行者不能提供所需的操作”
- 如何给按钮加上文字提示???
- 求助!如何把多张bmp图片放到一个tif文件中去?
- 谁有IP地址的输入控件啊?
- 两个时间比较,如何确定 00:00 比 23:00 大?
- 关于动态添加按钮的一点疑问
- 用VB自带的打包程序打包时,如何自己设置单个文件的安装目录?还有如何在安装完成后自动运行某个程序?谢谢!!!!
Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
Dim sDownload As String
sDownload = StrConv(Text1.Text, vbUnicode)
Call DoFileDownload(sDownload)
End SubPrivate Sub Form_Load()
Text1.Text = "http://insoft.51.net/soft/filesend.zip" '这里是你要下载的文件.
Form1.Caption = "Downloading....."
End Sub