VB.NET中如何通过WebBrowser控件获取JavaScript函数返回值

DomWindow.execscript() 是IE原生DOM提供的方法，该方法从设计上就不返回脚本执行结果，无论被调用的JS函数返回什么内容，这个方法的返回值始终为Nothing，属于方法本身的特性，不是代码运行错误。

方案1：使用.NET封装的InvokeScript方法（推荐） #

WebBrowser控件自带的Document.InvokeScript()方法原生支持获取JS函数的返回值，直接替换原有execscript调用即可。
注意：JS对大小写敏感，你定义的JS函数名为myfunction（f小写），之前调用写的myFunction（F大写）会导致调用失败，必须保证名称完全一致。
VB.NET实现代码：

' 建议把调用逻辑放在WebBrowser的DocumentCompleted事件中，确保页面加载完成、JS函数已存在
Dim result As Object = WebBrowser.Document.InvokeScript("myfunction")
Dim s As String = result?.ToString()
If s = "123" Then
    MsgBox("ok")
End If

这个方法会直接将JS函数的return值作为Object类型返回，直接转换为对应类型使用即可。

方案2：兼容execScript的全局变量传值方案 #

如果因特殊场景必须使用execscript方法，可以通过JS全局变量中转返回值：
如果可以修改页面原有JS代码，提前定义全局变量存储结果：

var _jsResult = null;
function myfunction() {
  var x = 123
  alert(x)  
  _jsResult = x;
  return x
}

如果无法修改原有页面JS，可在执行脚本时直接将返回值挂载到window全局对象上，VB.NET代码如下：

' 执行JS函数的同时，把返回值存到window的自定义属性上
WebBrowser.Document.Window.DomWindow.execscript("window._jsResult = myfunction()", "JavaScript")
' 读取全局属性拿到返回值
Dim s As String = WebBrowser.Document.Window.DomWindow._jsResult?.ToString()
If s = "123" Then
    MsgBox("ok")
End If

• 所有JS调用逻辑都要等页面完全加载完成后再执行，否则会出现找不到JS函数的报错，建议统一放在WebBrowser_DocumentCompleted事件中触发。
• 不要混淆JS函数、变量的大小写，JS是大小写敏感语言，名称不匹配会直接导致调用失败。

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