《SeleniumBasic 3.141.0.0

JavaScript中的JSON，指的是数组和字典形式的字符串。JSON解析是把字符串转换为对象，或者把对象转换为字符串的过程。

其中JavaScript的parse函数用于把字符串转换为对象，stringify则可以把对象输出为格式良好的字符串。

下面以处理浏览器的信息为例讲解。

IWebDriver对象的Capabilities返回一个JSON对象，如果要从中得到某个属性值，需要借助ExecuteScript执行脚本。

在VBA执行如下代码：

WD.New_ChromeDriver Service:=Service, Options:=Options
WD.URL = "https://www.baidu.com"
Debug.Print WD.Capabilities.ToString

立即窗口中打印出如下互相嵌套的字符串：

{
  "acceptInsecureCerts": false,
  "browserName": "chrome",
  "browserVersion": "85.0.4183.121",
  "chrome": {
    "chromedriverVersion": "85.0.4183.87 (cd6713ebf92fa1cacc0f1a598df280093af0c5d7-refs/branch-heads/4183@{#1689})",
    "userDataDir": "C:\Users\ADMINI~1\AppData\Local\Temp\scoped_dir8752_2084918897"
  },
  "goog:chromeOptions": {
    "debuggerAddress": "localhost:59968"
  },
  "networkConnectionEnabled": false,
  "pageLoadStrategy": "normal",
  "platformName": "windows",
  "proxy": {},
  "setWindowRect": true,
  "strictFileInteractability": false,
  "timeouts": {
    "implicit": 0,
    "pageLoad": 300000,
    "script": 30000
  },
  "unhandledPromptBehavior": "dismiss and notify",
  "webauthn:virtualAuthenticators": true
}

这些信息中，有的信息只有一层，例如browserVersion，可以直接读出对应的值。

有一些信息，还有下一层花括号包含。例如userDataDir，它的JPath是：chrome.userDataDir，也就是说，需要先得到外层的chrome。

Dim beautiful As String

beautiful = WD.ExecuteScript("var J=JSON.parse(arguments[0]);return J.browserVersion", WD.Capabilities.ToString)
Debug.Print beautiful

beautiful = WD.ExecuteScript("var J=JSON.parse(arguments[0]);return J.chrome.userDataDir", WD.Capabilities.ToString)
Debug.Print beautiful

上述程序中J是一个JavaScript中的内部变量，通过parse函数把Capabilities字符串转换为JSON对象。打印结果分别为：

85.0.4183.121
C:UsersADMINI~1AppDataLocalTempscoped_dir8752_2084918897

接下来体会一下stringify的魅力。该函数可以把JSON对象按指定的缩进量进行输出，下面的程序设置8个空格的缩进。

beautiful = WD.ExecuteScript("var J=JSON.parse(arguments[0]);return JSON.stringify(J,null,8)", WD.Capabilities.ToString)
Debug.Print beautiful

可以看到上下级节点的缩进空白很宽。

SeleniumBasic中的ICapabilities是一个特殊的JSON，它具有GetCapability和Item方法，可以返回指定名称的JSON对象。这样就不需要使用parse函数就能处理。

beautiful = WD.ExecuteScript("return arguments[0].pageLoad", WD.Capabilities.GetCapability("timeouts"))
Debug.Print beautiful

上述程序的结果是30000