InternetReadFile函数问题

Question

为什么我用InternetReadFile下载一个文件，下载第一次就可以，可要下载第二次就死机，为什么，师长请您帮帮小弟，说明一下。急，谢谢

Answer 1

到这儿看看，有两位大师关于此的解答：
http://www.5iv.net/data/web5107/20050227/20050227__3354994.html

Answer 2

如果要下载文件，为何不使用 URLDownloadToFile函数？
声明：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 a as long
a= URLDownloadToFile(0, "http://www.foyi.cn/bbs/UploadFile/2005-3/20053181803598.rar", "动网邮件收集工具.rar", 0, 0) Then

Answer 3

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 LongPrivate Sub Command1_Click()
    Dim a As Long
    a = URLDownloadToFile(0, "http://www.foyi.cn/bbs/UploadFile/2005-3/20053181803598.rar", "c:\动网邮件收集工具", 0, 0)
    If a = 0 Then
        MsgBox "下载成功完成！"
    Else
        MsgBox "下载失败！
    End If
End Sub