VB.Net中WebView2点击PDF图标或Ctrl+S无法保存PDF的解决方法

问题原因 #

• WebView2内置的PDF查看器DOM元素并非公开可通过getElementById('download')直接获取，你的JavaScript代码找不到目标按钮，点击操作无效。
• SendKeys依赖控件焦点，WebView2可能未获得焦点，且WebView2的安全机制会拦截系统级快捷键操作，导致Ctrl+S无法触发保存对话框。

解决方案 #

方案一：利用WebView2下载事件自动保存PDF #

通过拦截WebView2的下载事件，直接指定保存路径完成下载，无需依赖PDF查看器的UI操作：

Imports Microsoft.Web.WebView2.Core
Imports System.IO

Public Class Form1
    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Await InitializeAsync()
    End Sub

    Async Function InitializeAsync() As Task
        Await wv.EnsureCoreWebView2Async()
        ' 注册下载事件处理器
        AddHandler wv.CoreWebView2.DownloadStarting, AddressOf CoreWebView2_DownloadStarting
        ' 加载目标PDF
        wv.Source = New Uri("https://recherche.wallonie.be/files/E_Kiosque/01.ATHENA/Athena%20PDF/358.pdf")
    End Function

    Private Sub CoreWebView2_DownloadStarting(sender As Object, e As CoreWebView2DownloadStartingEventArgs)
        ' 设置PDF保存路径（可根据需求修改）
        Dim savePath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "358.pdf")
        e.ResultFilePath = savePath
        ' 禁用确认对话框，自动完成下载
        e.DialogKind = CoreWebView2DownloadDialogKind.None
        ' 绑定下载完成回调
        AddHandler e.DownloadOperation.DownloadCompleted, AddressOf DownloadCompleted
    End Sub

    Private Sub DownloadCompleted(sender As Object, e As EventArgs)
        Dim downloadOp = DirectCast(sender, CoreWebView2DownloadOperation)
        MessageBox.Show($"PDF已保存到：{downloadOp.ResultFilePath}")
    End Sub
End Class

方案二：调用PDF查看器内置按钮触发保存对话框 #

如果需要弹出系统默认的保存对话框，可以通过JavaScript定位PDF查看器的下载按钮（需匹配WebView2内置PDF viewer的DOM结构）：

Imports Microsoft.Web.WebView2.Core

Public Class Form1
    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Await InitializeAsync()
    End Sub

    Async Function InitializeAsync() As Task
        Await wv.EnsureCoreWebView2Async()
        wv.Source = New Uri("https://recherche.wallonie.be/files/E_Kiosque/01.ATHENA/Athena%20PDF/358.pdf")
    End Function

    Private Async Sub wv_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs) Handles wv.NavigationCompleted
        ' 等待PDF完全渲染完成
        Await Task.Delay(2000)
        Await TriggerSaveDialog()
    End Sub

    Async Function TriggerSaveDialog() As Task
        ' 定位PDF查看器的下载按钮，适配不同版本的DOM结构
        Dim jsScript = "
            const downloadBtn = document.querySelector('viewer-download-button') || document.querySelector('[title=""保存""]');
            if (downloadBtn) downloadBtn.click();
        "
        Await wv.ExecuteScriptAsync(jsScript)
    End Function
End Class

方案三：直接下载PDF文件（最可靠） #

跳过WebView2的PDF查看器，直接通过HttpClient下载PDF文件到本地：

Imports System.Net.Http
Imports System.IO

Public Class Form1
    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Await DownloadPdfDirectly()
        ' 可选：下载完成后加载本地PDF到WebView2
        ' wv.Source = New Uri(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "358.pdf"))
    End Sub

    Async Function DownloadPdfDirectly() As Task
        Dim pdfUrl = "https://recherche.wallonie.be/files/E_Kiosque/01.ATHENA/Athena%20PDF/358.pdf"
        Dim savePath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "358.pdf")

        Using httpClient = New HttpClient()
            Dim pdfBytes = Await httpClient.GetByteArrayAsync(pdfUrl)
            Await File.WriteAllBytesAsync(savePath, pdfBytes)
            MessageBox.Show($"PDF已保存到：{savePath}")
        End Using
    End Function
End Class

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