Windows窗体应用WebBrowser传参数：Power BI嵌入令牌传递失败求助

我帮你梳理下代码里的关键问题，一步步解决这个令牌传递失败的问题：

1. 修复JSON字符串拼接与TokenType格式错误 #

你在WebBrowser1_DocumentCompleted里构造的消息字符串有两个核心问题：

• 手动拼接JSON容易出现引号转义错误，尤其是令牌包含特殊字符时会直接破坏JSON结构
• tokenType用了.NET枚举models.TokenType.Embed，前端JS无法识别这个枚举值，应该用对应的字符串"Embed"

建议用.NET自带的JsonSerializer来序列化对象，彻底避免手动拼接的问题：

Imports System.Text.Json

' 替换DocumentCompleted事件里的message构造逻辑
Dim payload = New With {
    .action = "loadReport",
    .accessToken = tKn,
    .id = ReportID,
    .groupId = wkspID, ' 注意你之前写的是tenantID，这里应该是工作区ID（groupId）
    .tokenType = "Embed"
}
Dim message = JsonSerializer.Serialize(payload)

2. 解决WebBrowser控件的IE内核兼容性 #

默认情况下，WinForms的WebBrowser控件用的是IE7/8兼容模式，而Power BI嵌入API需要至少IE11的环境。你需要强制控件使用IE11模式：

方法一：修改注册表（推荐） #

在注册表中添加以下项（替换YourApp.exe为你的应用程序名称）：

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION
    YourApp.exe = DWORD: 11001 (十进制)

如果是64位系统，还要在HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION下添加同样的项。

方法二：启动时动态设置（需管理员权限） #

可以在程序启动时自动修改注册表：

Imports Microsoft.Win32
Imports System.Diagnostics

Sub Main()
    Dim appName = Process.GetCurrentProcess().ProcessName & ".exe"
    ' 设置32位注册表项
    Using key = Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION")
        key.SetValue(appName, 11001, RegistryValueKind.DWord)
    End Using
    ' 设置64位注册表项
    Using key = Registry.LocalMachine.CreateSubKey("SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION")
        key.SetValue(appName, 11001, RegistryValueKind.DWord)
    End Using
    Application.Run(New YourMainForm())
End Sub

3. 等待Power BI嵌入环境初始化完成 #

直接在DocumentCompleted事件里调用postMessage时机太早，页面的JS API还没加载完成。可以用定时器延迟执行：

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
    ' 延迟1.5秒执行，确保页面JS环境完全初始化
    Timer1.Interval = 1500
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs)
    Timer1.Stop()
    Try
        Dim payload = New With {
            .action = "loadReport",
            .accessToken = tKn,
            .id = ReportID,
            .groupId = wkspID,
            .tokenType = "Embed",
            .embedUrl = embedUrl
        }
        Dim message = JsonSerializer.Serialize(payload)
        WebBrowser1.Document.InvokeScript("postMessage", New Object() {message, "*"})
    Catch ex As Exception
        MessageBox.Show($"传递参数失败: {ex.Message}")
    End Try
End Sub

记得在窗体上添加一个Timer控件，默认设置Enabled = False。

完整修正后的代码示例 #

' 窗体类中的核心代码
Private tKn As String
Private embedUrl As String
Private ReportID As String
Private wkspID As String

Private Sub LoadPowerBIReport()
    Dim pbiClient = GetPowerBiClientAsApp()
    ' 异步获取报表信息
    Dim reportTask = pbiClient.Reports.GetReportInGroupAsync(New Guid(wkspID), New Guid(ReportID))
    reportTask.Wait()
    embedUrl = reportTask.Result.EmbedUrl
    
    ' 生成嵌入令牌
    Dim generateTokenRequest = New Models.GenerateTokenRequest(accessLevel:="View")
    Dim tokenTask = pbiClient.Reports.GenerateTokenInGroupAsync(New Guid(wkspID), New Guid(ReportID), generateTokenRequest)
    tokenTask.Wait()
    tKn = tokenTask.Result.Token
    
    AddHandler WebBrowser1.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted
    WebBrowser1.Navigate(embedUrl)
End Sub

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
    Timer1.Interval = 1500
    Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs)
    Timer1.Stop()
    Try
        Dim payload = New With {
            .action = "loadReport",
            .accessToken = tKn,
            .id = ReportID,
            .groupId = wkspID,
            .tokenType = "Embed",
            .embedUrl = embedUrl
        }
        Dim message = JsonSerializer.Serialize(payload)
        WebBrowser1.Document.InvokeScript("postMessage", New Object() {message, "*"})
    Catch ex As Exception
        MessageBox.Show($"传递参数失败: {ex.Message}")
    End Try
End Sub

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