VB中自动从网站下载文件，知道的给20分

比如：自动从http://11.dc.ftn.qq.com/ftn_handler/176097eab6de3ce2bb0e87cee4908451137b6dcc98e11840fbeddb7198bdd30e4fa86f6984fc40d67d970856a9ac9a8077dd1f6c39a37a0ca6cdbccca63385cf/相册.rar?k=59663733a472d8c6ef0c511713380316005f5252535b085c490305015615050c05021a51025a041406560203035e075c07030106353031f684d4d61d4759433959&&txf_fid=749f5c06096077630949693871ac6f31db053ddc
上下载相册.rar到"upgrade\photo.rar"
代码该怎么写？
写错了。。。
当点击command1是，
自动从http://11.dc.ftn.qq.com/ftn_handler/176097eab6de3ce2bb0e87cee4908451137b6dcc98e11840fbeddb7198bdd30e4fa86f6984fc40d67d970856a9ac9a8077dd1f6c39a37a0ca6cdbccca63385cf/相册.rar?k=59663733a472d8c6ef0c511713380316005f5252535b085c490305015615050c05021a51025a041406560203035e075c07030106353031f684d4d61d4759433959&&txf_fid=749f5c06096077630949693871ac6f31db053ddc
上下载相册.rar到"upgrade\photo.rar"
代码该怎么写？

举报该问题

推荐答案 2010-05-08

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000

Public Function DownloadFile(sSourceUrl As String, _
sLocalFile As String) As Boolean

DownloadFile = URLDownloadToFile(0&, _
sSourceUrl, _
sLocalFile, _
BINDF_GETNEWESTVERSION, _
0&) = ERROR_SUCCESS

End Function

Private Sub Command1_Click()
Dim sSourceUrl As String
Dim sLocalFile As String

sSourceUrl = "http://11.dc.ftn.qq.com/ftn_handler/176097eab6de3ce2bb0e87cee4908451137b6dcc98e11840fbeddb7198bdd30e4fa86f6984fc40d67d970856a9ac9a8077dd1f6c39a37a0ca6cdbccca63385cf/相册.rar?k=59663733a472d8c6ef0c511713380316005f5252535b085c490305015615050c05021a51025a041406560203035e075c07030106353031f684d4d61d4759433959&&txf_fid=749f5c06096077630949693871ac6f31db053ddc"
sLocalFile = "c:\相册.rar"

If DownloadFile(sSourceUrl, sLocalFile) Then

MsgBox "下载成功"
End If

End Sub

下载文件到 c:\相册.rar

路径自己改吧 sLocalFile 就是设置本地存放文件位置

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/WBW7j7jtO.html

其他回答

第1个回答 2010-05-08

学习下……

相似回答

用VB做一个自动从FTP服务器下载文件并运行的程序答：Option Explicit Dim strCommand As String Dim strWebPage As String Private Sub Command1_Click() Winsock1.RemoteHost = "202.103.176.81" '返回或设置远程计算机，控件向它发送数据或从它那里接收数据。既可提供主机名，比如 "FTP://ftp.microsoft.com"，也可提供点格式下的 IP 地址字符串，...

如何在vb中实现文件下载(从指定网站下载到指定文件夹)?答：先通过注册表把防火墙给他关了

VB问题,知道的给20分答：End Function Exists 是用来判断文件是否存在的函数，后面的参数为文件路径，返回值为true和flase

怎样利用VB将EXCEL中的数据导入ACCESS 这里给20分答：1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1 2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls 3、sAccessTable：要导入的 Access Table 名称，例如 TestTable 4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb 在声明...

vb编程自动下载某一网站目录下连续编号的文件答：回答：for step=1 to 10000 next

VB的关于文件保存的方式?答：添加数据到文件文本文件一经创建，就可以分三步向其中加入数据：打开文本文件以备写入数据。写入数据。关闭文件。要打开文件，可以使用下面两种方法中的任一种： File 对象的 OpenAsTextStream 方法，或 FileSystemObject 对象的 OpenTextFile 方法。要向打开的文本文件中写入数据，可以使用 TextStream 对象的 ...

请教VB高手,用VB6写个用ftp下载文件的源代码,追加高分答：老式的传输代码都不能用了，可能是服务器安全级别的关系终于找到一个，这是一个完整的ftp客户端，测试好用

从文件中提取符合要求的数据,编程语言不限,最好是perl/python/shell/...答：include <string.h> include <math.h> int main(void){ FILE *fp;int i=0,j=0,l=0,m=0,second=0,snd=0,sec21=0,sec22=0,sec23=0;char buf[10],first[10],str[10],t,orien[10];char sb31[10],sb32[10],sb33[10],third[10],pthird[10];if ((fp=fopen("xuan.txt",...

大家正在搜

百度下载的文件在哪个文件夹下载文档的网站有哪些免费下载文档的网站网盘下载的文件怎么找怎么下载网页文件怎么下载网页上的文档百度浏览器下载的文件在哪免费文档下载网址百度文库付费文档怎么下载