用URLDownloadToFile 下载的问题

wwk198 2007-12-30 04:37:11

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 Sub Command1_Click()
DownloadFile "http://down101.uuu9.com/war3/200712/200712071908.rar", App.Path & "\1111.RAR"
End Sub

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
End Function
为什么我用 URLDownloadToFile 下载下来的 200712071908.rar 大小只有 4K？
然后我把 200712071908.rar 后缀改成 200712071908.htm 内容如下
U9网下载文件说明

您下载的该文件来自U9网||http://www.UUU9.com

使用前请您先阅读以下条款，否则请勿使用本站提供的文件！
1) 不得擅自修改或者传播地图。
2) 请在使用前查毒 (这也是您使用其它网络资源所必须注意的) 。
3) 由本站提供的程序对您的网站或计算机造成严重后果的本站概不负责。
4) 转载本站提供的资源请勿删除本说明文件。

有任何问题可到U9网论坛||http://Bbs.uuu9.com，在那里您可以得到更多的帮助信息！

官方网站: www.uuu9.com
官方论坛: bbs.uuu9.com www.uuu9.com！！！

为什么war3.uuu9.com 魔兽地图网就这样这个网站做了什么限制要用什么函数才可以正常下载？
问题补充：用讯雷下就绝对可以
如果是URLDownloadToFile 下载就下载了一个页面文件

...全文

1024 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

yfara 2011-08-13

打赏
举报

你那个明显就是人家网站做了防盗链了

cbm6666 2008-05-04

打赏
举报

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
上面这行返回布尔值出了问题, 你可能是还没下载完成吧?越大的文件你越要耐心的等,不然你就加上进度条.

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

Dim fname$, lngRetVal&
Private Sub Command1_Click()
fname = "c:\test1.gif"
If Dir(fname) <> "" Then Kill fname
DownloadFile "http://cbm666.com/v.gif", fname
End Sub

Public Sub DownloadFile(URL As String, LocalFilename As String)
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then MsgBox "下载完成"
End Sub