如何在IE中利用view-source模式绕过操作提示保存文件？

嘿，我来帮你完成这个功能！你的思路是对的——利用view-source:前缀绕开IE的下载弹窗，但直接取innerText会丢失二进制数据的细节，得做些编码处理才能正确还原文件。下面分两种方案给你：

方案1：基于IE的view-source实现 #

这个方案严格按照你的需求，用IE加载view-source页面后提取内容并转换为二进制文件：

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False ' 让IE在后台运行，不弹窗口
url = "view-source:http://mysite/stockquote/NASDAQ/AAPL.zip"

' 导航到目标链接
ie.Navigate url

' 等待页面完全加载（必须同时检查ReadyState和Busy状态，避免提前读取）
Do Until ie.ReadyState = 4 And Not ie.Busy
    WScript.Sleep 100
Loop

' 获取view-source页面的完整文本内容
Dim sourceText
sourceText = ie.Document.DocumentElement.InnerText

' 关闭IE，释放资源
ie.Quit
Set ie = Nothing

' 将文本转换为二进制并保存为文件
Dim outputPath
outputPath = "C:\Your\Save\Path\AAPL.zip" ' 替换成你实际要保存的路径

Set fileStream = CreateObject("ADODB.Stream")
' 先以ASCII文本模式写入，确保每个字符对应原始字节
fileStream.Type = 2
fileStream.Charset = "us-ascii"
fileStream.Open
fileStream.WriteText sourceText
' 切换到二进制模式准备保存
fileStream.Position = 0
fileStream.Type = 1
' 保存文件（2表示覆盖已存在的文件）
fileStream.SaveToFile outputPath, 2
fileStream.Close

Set fileStream = Nothing

WScript.Echo "文件已成功保存到: " & outputPath

关键说明： #

• 等待页面加载时，必须同时判断ReadyState=4和Not ie.Busy，否则可能在页面未完全渲染时就读取内容，导致数据不完整。
• 用DocumentElement.InnerText而非Body.innerText，因为view-source的内容是放在整个文档根元素里的。
• 通过ADODB.Stream的编码转换，把ASCII文本还原成原始二进制字节，确保zip文件的完整性。

方案2：更高效的XMLHTTP直接下载（推荐） #

其实完全可以不用IE，直接用XMLHTTP对象获取原始二进制数据，绕开所有弹窗问题，代码更简洁高效：

Dim xhr, fileStream
url = "http://mysite/stockquote/NASDAQ/AAPL.zip"
outputPath = "C:\Your\Save\Path\AAPL.zip"

Set xhr = CreateObject("MSXML2.XMLHTTP")
xhr.Open "GET", url, False ' 同步请求，等待下载完成
xhr.Send

' 检查请求是否成功
If xhr.Status = 200 Then
    Set fileStream = CreateObject("ADODB.Stream")
    fileStream.Type = 1 ' 二进制模式
    fileStream.Open
    fileStream.Write xhr.ResponseBody ' 直接写入原始二进制响应
    fileStream.SaveToFile outputPath, 2
    fileStream.Close
    WScript.Echo "文件下载成功！路径: " & outputPath
Else
    WScript.Echo "下载失败，状态码: " & xhr.Status
End If

Set xhr = Nothing
Set fileStream = Nothing

这个方案不需要依赖IE，直接和服务器交互获取文件内容，稳定性和效率都更高，强烈推荐使用。

内容的提问来源于stack exchange，提问作者Dmitrij Holkin