URLDownloadToFile據說工作，但文件損壞或不正確

我一直在成功使用URLDownloadToFile功能一年，但最近它只是停止工作（或與網絡的東西）。URLDownloadToFile據說工作，但文件損壞或不正確

的代碼中的相關行： success = URLDownloadToFile(0, URL, Target, 0, 0)

在試圖打開它，我得到以下信息：

Excel無法打開文件「wkbk.xlsm」，因爲文件格式或文件擴展名無效。驗證文件是否已損壞，文件擴展名是否與文件的格式相匹配。

當我在我的文本編輯器打開該文件，我看到它確實是HTML： 我已經star'd了域和路徑window.location...出於安全原因

<script src="/edms/scripts/JRETest.js"></script> 
<script> 

function setCookie(cname, cvalue, exdays) { 
    var d = new Date(); 
    d.setTime(d.getTime() + (exdays*24*60*60*1000)); 
    var expires = "expires="+d.toGMTString(); 
    document.cookie = cname + "=" + cvalue + "; " + expires + ";domain=***;path=/"; 
}  

if (JRETest.versionCheck('1.8+')) { 
    setCookie("JRECookie", "1.7", 5); 
} else if (JRETest.versionCheck('1.7+')) { 
    setCookie("JRECookie", "1.7", 5); 
} else if (JRETest.versionCheck('1.6+')) { 
    setCookie("JRECookie", "1.6", 5); 
} else { 
    setCookie("JRECookie", "1.6", 5); 
} 
window.location = "<link that I passed to URLDownloadToFile>"; 

</script> 
</html>

但是，當我將文件的URL放入瀏覽器時，它會自動下載它，就像它總是這樣，所以URL是正確的，如果我運行這個GetURLStatus函數，它將返回200 - OK

Function GetURLStatus(ByVal URL As String, Optional AllowRedirects As Boolean) 
    Const WinHttpRequestOption_UserAgentString = 0 
    Const WinHttpRequestOption_EnableRedirects = 6 

    On Error Resume Next 
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") 
    If httpRequest Is Nothing Then 
     Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5") 
    End If 
    Err.Clear 
    On Error GoTo 0 

    httpRequest.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)" 
    httpRequest.Option(WinHttpRequestOption_EnableRedirects) = AllowRedirects 

    'Clear any pervious web page source information 
    PageSource = "" 

    'Add protocol if missing 
    If InStr(1, URL, "://") = 0 Then 
     URL = "http://" & URL 
    End If 

    'Launch the HTTP httpRequest synchronously 
    On Error Resume Next 
    httpRequest.Open "GET", URL, False 
    If Err.Number <> 0 Then 
     'Handle connection errors 
     GetURLStatus = Err.Description 
     Err.Clear 
     Exit Function 
    End If 
    On Error GoTo 0 

    'Send the http httpRequest for server status 
    On Error Resume Next 
    httpRequest.Send 
    httpRequest.WaitForResponse 
    If Err.Number <> 0 Then 
     ' Handle server errors 
     PageSource = "Error" 
     GetURLStatus = Err.Description 
     Err.Clear 
    Else 
     'Show HTTP response info 
     GetURLStatus = httpRequest.Status & " - " & httpRequest.StatusText 
     'Save the web page text 
     PageSource = httpRequest.responsetext 
    End If 
    On Error GoTo 0 
End Function

就像我說的，這一切都工作過，所以我不知道如果內部腳本改變，如果它與我們的內部文件系統的可能，如果有任何其他的方式我可以叫URLDownloadToFile要麼等待一會兒，直到位置改變，或者真正發生了什麼。

來源

2015-10-19 redOctober13

我會說你的一個管理員開始使用你的公司代理玩你試圖打開F12並開始網絡跟蹤，而你輸入鏈接到瀏覽器？我相信你會看到一些瀏覽器可以複製的重定向，但不是你的下載腳本。 – Marged

輝煌！這一定是發生了什麼，因爲使用其中一個重定向請求的URL我能夠得到正確的文件。如果你想讓這個答案，我會標記它是正確的。 – redOctober13

我知道啓用了使用條件頁面或某些跟蹤的網站的類似行爲。也許你的一位管理員在最後幾天開始使用公司代理。

打開瀏覽器的開發人員工具（通常是F12鍵帶你到那裏），並在瀏覽器中打開一個不再工作的URL時啓動網絡跟蹤。

我相信你會看到一些瀏覽器可以應付的重定向，但不是你的下載腳本。嘗試爲腳本使用上次重定向網址，如果在第一次調用期間沒有創建會話密鑰或其他內容，則應該可以使用。另一種方法是讓腳本對重定向做出反應。

來源

2015-10-20 18:02:51 Marged

我會將此標記爲正確的，但它也顯示我昨天嘗試的網址今天無法正常工作，因此它也可能與單點登錄或Windows身份驗證有關。我昨天嘗試清除緩存和cookie，但是我今天早上必須重新啓動計算機，所以也許這是一個SSO問題，在我重新啓動時會自行解決。無論如何，謝謝你的提示 – redOctober13

這可能是緩存問題。我對「URLDownloadToFile」的體驗是，我需要先調用「DeleteUrlCacheEntry（downLoadURL）」來確保緩存不會搞亂我的測試。

來源

2015-10-28 23:19:33

URLDownloadToFile據說工作，但文件損壞或不正確

回答

相關問題