{"id":6129,"date":"2015-08-17T22:29:11","date_gmt":"2015-08-17T13:29:11","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=6129"},"modified":"2021-10-25T22:51:34","modified_gmt":"2021-10-25T13:51:34","slug":"microsoft-edge%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8bvbscript","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=6129","title":{"rendered":"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBScript"},"content":{"rendered":"<p>\u300c<a href=\"\/\/www.ka-net.org\/blog\/?p=6018\" title=\"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8) | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" target=\"_blank\" rel=\"noopener\">Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8)<\/a>\u300d\u3067\u3082\u66f8\u3044\u3066\u3044\u307e\u3059\u304c\u3001Edge\u3092\u5916\u90e8\u304b\u3089\u64cd\u4f5c\u3059\u308b\u65b9\u6cd5\u3068\u3057\u3066\u300c<a href=\"https:\/\/www.microsoft.com\/en-us\/download\/details.aspx?id=48212\" title=\"Download Microsoft WebDriver from Official Microsoft Download Center\" target=\"_blank\" rel=\"noopener\">WebDriver<\/a>\u300d\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<p><a href=\"http:\/\/blogs.windows.com\/msedgedev\/2015\/07\/23\/bringing-automated-testing-to-microsoft-edge-through-webdriver\/\" title=\"Bringing automated testing to Microsoft Edge through WebDriver | Microsoft Edge Dev Blog\" target=\"_blank\" rel=\"noopener\">Microsoft Edge Dev Blog\u306e\u8a18\u4e8b<\/a>\u306b\u306fC#\u306e\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u307e\u3059\u304c\u3001\u4ed5\u7d44\u307f\u3068\u3057\u3066\u306fWebDriver Server(localhost)\u306bJSON\u3092\u6295\u3052\u308c\u3070\u826f\u3044\u3060\u3051\u306a\u306e\u3067\u3001\u8a00\u8a9e\u306f\u4f55\u3067\u3082\u69cb\u3044\u307e\u305b\u3093\u3002cURL + \u30d0\u30c3\u30c1(DOS)\u3067\u3082Edge\u3092\u64cd\u4f5c\u3059\u308b\u3053\u3068\u304c\u53ef\u80fd\u3067\u3059\u3002<\/p>\n<p>\u305d\u3053\u3067\u4eca\u56de\u306fEdge\u3092\u5916\u90e8\u304b\u3089\u64cd\u4f5c\u3059\u308bVBScript\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n<h4 class=\"style4a\">\u691c\u8a3c\u74b0\u5883<\/h4>\n<ul>\n<li>Windows 10 Pro x86\/x64<\/li>\n<li>Microsoft Edge 20.10240.16384.0<\/li>\n<li>WebDriver 1.0<\/li>\n<\/ul>\n<h4 class=\"style4a\">Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBScript<\/h4>\n<p><span style=\"color: #ff0000; font-weight: bold;\">\u203b \u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u52d5\u4f5c\u306b\u306f\u300c<a href=\"https:\/\/www.microsoft.com\/en-us\/download\/details.aspx?id=48212\" title=\"Download Microsoft WebDriver from Official Microsoft Download Center\" target=\"_blank\" rel=\"noopener\">WebDriver<\/a>\u300d\u304c\u5fc5\u8981\u3068\u306a\u308a\u307e\u3059\u3002\u4e8b\u524d\u306b\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u3066\u304a\u3044\u3066\u304f\u3060\u3055\u3044\u3002<\/span><\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPrivate http\r\nPrivate doc\r\nPrivate Const WebDriverFileName = &quot;MicrosoftWebDriver.exe&quot;\r\nPrivate Const URI = &quot;http:\/\/localhost:17556\/&quot;\r\nPrivate Const CSIDL_PROGRAM_FILESX86 = 42\r\n\r\nSet http = CreateObject(&quot;MSXML2.XMLHTTP&quot;)\r\nSet doc = CreateObject(&quot;htmlfile&quot;)\r\nCall AutomateMicrosoftEdge\r\n\r\nPublic Sub AutomateMicrosoftEdge()\r\n'Microsoft Edge Automation using WebDriver\r\n  Dim proc\r\n  Dim sid, eid\r\n  Dim b64\r\n  Dim WebDriverFilePath\r\n  \r\n  'Run the Microsoft WebDriver Server\r\n  WebDriverFilePath = CreateObject(&quot;Shell.Application&quot;).Namespace(CSIDL_PROGRAM_FILESX86).Self.Path\r\n  WebDriverFilePath = WebDriverFilePath &amp; &quot;\\Microsoft Web Driver\\&quot; &amp; WebDriverFileName\r\n  If CreateObject(&quot;Scripting.FileSystemObject&quot;) _\r\n     .FileExists(WebDriverFilePath) = False Then Exit Sub\r\n  If CreateObject(&quot;WbemScripting.SWbemLocator&quot;).ConnectServer.ExecQuery _\r\n     (&quot;Select * From Win32_Process Where Name = '&quot; &amp; WebDriverFileName &amp; &quot;'&quot;).Count &lt; 1 Then\r\n    Set proc = CreateObject(&quot;WScript.Shell&quot;).Exec(WebDriverFilePath &amp; &quot; --port=17556&quot;)\r\n  End If\r\n  \r\n  sid = StartSession()\r\n  If sid = &quot;&quot; Then Exit Sub\r\n  NavigateToURL sid, &quot;https:\/\/www.bing.com\/&quot;\r\n  WScript.Sleep 1000\r\n  eid = FindElement(sid, &quot;id&quot;, &quot;sb_form_q&quot;)\r\n  If eid = &quot;&quot; Then Exit Sub\r\n  SendKeysElement sid, eid, &quot;Microsoft MVP&quot;\r\n  eid = FindElement(sid, &quot;id&quot;, &quot;sb_form_go&quot;)\r\n  If eid = &quot;&quot; Then Exit Sub\r\n  ClickElement sid, eid\r\n  WScript.Sleep 2000\r\n  b64 = TakeScreenshot(sid)\r\n  If b64 = &quot;&quot; Then Exit Sub\r\n  DecodeBase64 b64, GetScriptFolderPath() &amp; &quot;Screenshot.png&quot;\r\n  EndSession sid\r\n  If Not proc Is Nothing Then proc.Terminate 'Terminate Microsoft WebDriver Server\r\n  \r\n  MsgBox &quot;done.&quot;, vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Function StartSession()\r\n'return sessionId\r\n  Dim ret\r\n  Dim json\r\n  Dim elm\r\n  \r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;POST&quot;, URI &amp; &quot;session&quot;, False\r\n    .send &quot;{&quot;&quot;desiredCapabilities&quot;&quot;: {}, &quot;&quot;requiredCapabilities&quot;&quot;: {}}&quot;\r\n    Select Case .Status\r\n      Case 200\r\n        json = &quot;(&quot; &amp; .responseText &amp; &quot;)&quot;\r\n        Set elm = doc.createElement(&quot;span&quot;)\r\n        elm.setAttribute &quot;id&quot;, &quot;result&quot;\r\n        doc.body.appendChild elm\r\n        doc.parentWindow.execScript _\r\n          &quot;document.getElementById('result').innerText=eval(&quot; &amp; json &amp; &quot;).sessionId;&quot;\r\n        If LCase(elm.innerText) = &quot;null&quot; Then\r\n          ret = &quot;&quot;\r\n        Else\r\n          ret = elm.innerText\r\n        End If\r\n        doc.RemoveChild elm\r\n    End Select\r\n  End With\r\n  On Error GoTo 0\r\n  StartSession = ret\r\nEnd Function\r\n\r\nPrivate Sub NavigateToURL(ByVal sessionId, ByVal URL)\r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;POST&quot;, URI &amp; &quot;session\/&quot; &amp; sessionId &amp; &quot;\/url&quot;, False\r\n    .send &quot;{&quot;&quot;url&quot;&quot;: &quot;&quot;&quot; &amp; URL &amp; &quot;&quot;&quot;}&quot;\r\n  End With\r\n  On Error GoTo 0\r\nEnd Sub\r\n\r\nPrivate Function FindElement(ByVal sessionId, ByVal using, ByVal elmValue)\r\n'return elementId\r\n  Dim ret\r\n  Dim json\r\n  Dim elm\r\n  \r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;POST&quot;, URI &amp; &quot;session\/&quot; &amp; sessionId &amp; &quot;\/element&quot;, False\r\n    .send &quot;{&quot;&quot;using&quot;&quot;: &quot;&quot;&quot; &amp; using &amp; &quot;&quot;&quot;, &quot;&quot;value&quot;&quot;: &quot;&quot;&quot; &amp; elmValue &amp; &quot;&quot;&quot;}&quot;\r\n    Select Case .Status\r\n      Case 200\r\n        json = &quot;(&quot; &amp; .responseText &amp; &quot;)&quot;\r\n        Set elm = doc.createElement(&quot;span&quot;)\r\n        elm.setAttribute &quot;id&quot;, &quot;result&quot;\r\n        doc.body.appendChild elm\r\n        doc.parentWindow.execScript _\r\n          &quot;document.getElementById('result').innerText=eval(&quot; &amp; json &amp; &quot;).value.ELEMENT;&quot;\r\n        If LCase(elm.innerText) = &quot;null&quot; Then\r\n          ret = &quot;&quot;\r\n        Else\r\n          ret = elm.innerText\r\n        End If\r\n        doc.RemoveChild elm\r\n    End Select\r\n  End With\r\n  On Error GoTo 0\r\n  FindElement = ret\r\nEnd Function\r\n\r\nPrivate Sub SendKeysElement(ByVal sessionId, ByVal elementId, ByVal elmValue)\r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;POST&quot;, URI &amp; &quot;session\/&quot; &amp; sessionId &amp; &quot;\/element\/&quot; &amp; elementId &amp; &quot;\/value&quot;, False\r\n    .send &quot;{&quot;&quot;value&quot;&quot;:&#x5B;&quot;&quot;&quot; &amp; elmValue &amp; &quot;&quot;&quot;]}&quot;\r\n  End With\r\n  On Error GoTo 0\r\nEnd Sub\r\n\r\nPrivate Sub ClickElement(ByVal sessionId, ByVal elementId)\r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;POST&quot;, URI &amp; &quot;session\/&quot; &amp; sessionId &amp; &quot;\/element\/&quot; &amp; elementId &amp; &quot;\/click&quot;, False\r\n    .send\r\n  End With\r\n  On Error GoTo 0\r\nEnd Sub\r\n\r\nPrivate Function TakeScreenshot(ByVal sessionId)\r\n'return screenshot as a base64 encoded PNG\r\n  Dim ret\r\n  Dim json\r\n  Dim elm\r\n  \r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;GET&quot;, URI &amp; &quot;session\/&quot; &amp; sessionId &amp; &quot;\/screenshot&quot;, False\r\n    .send\r\n    Select Case .Status\r\n      Case 200\r\n        json = &quot;(&quot; &amp; .responseText &amp; &quot;)&quot;\r\n        Set elm = doc.createElement(&quot;span&quot;)\r\n        elm.setAttribute &quot;id&quot;, &quot;result&quot;\r\n        doc.body.appendChild elm\r\n        doc.parentWindow.execScript _\r\n          &quot;document.getElementById('result').innerText=eval(&quot; &amp; json &amp; &quot;).value;&quot;\r\n        If LCase(elm.innerText) = &quot;null&quot; Then\r\n          ret = &quot;&quot;\r\n        Else\r\n          ret = elm.innerText\r\n        End If\r\n        doc.RemoveChild elm\r\n    End Select\r\n  End With\r\n  On Error GoTo 0\r\n  TakeScreenshot = ret\r\nEnd Function\r\n\r\nPrivate Sub EndSession(ByVal sessionId)\r\n  On Error Resume Next\r\n  With http\r\n    .Open &quot;DELETE&quot;, URI &amp; &quot;session\/&quot; &amp; sessionId, False\r\n    .send\r\n  End With\r\n  On Error GoTo 0\r\nEnd Sub\r\n\r\nPrivate Sub DecodeBase64(ByVal base64, ByVal filePath)\r\n'decode a base64 string\r\n  Dim elm\r\n  Const adTypeBinary = 1\r\n  Const adSaveCreateOverWrite = 2\r\n  \r\n  On Error Resume Next\r\n  Set elm = CreateObject(&quot;MSXML2.DOMDocument&quot;).createElement(&quot;base64&quot;)\r\n  elm.DataType = &quot;bin.base64&quot;\r\n  elm.Text = base64\r\n  With CreateObject(&quot;ADODB.Stream&quot;)\r\n    .Type = adTypeBinary\r\n    .Open\r\n    .Write elm.nodeTypedValue\r\n    .SaveToFile filePath, adSaveCreateOverWrite\r\n    .Close\r\n  End With\r\n  On Error GoTo 0\r\nEnd Sub\r\n\r\nPrivate Function GetScriptFolderPath()\r\n  Dim ret\r\n  \r\n  With CreateObject(&quot;Scripting.FileSystemObject&quot;)\r\n    ret = .GetParentFolderName(WScript.ScriptFullName)\r\n  End With\r\n  If Right(ret, 1) &lt;&gt; ChrW(92) Then ret = ret &amp; ChrW(92)\r\n  GetScriptFolderPath = ret\r\nEnd Function<\/pre>\n<p>\u30b9\u30af\u30ea\u30d7\u30c8\u306e\u52d5\u4f5c\u306f\u300c<a href=\"\/\/www.ka-net.org\/blog\/?p=6018\" title=\"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8) | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" target=\"_blank\" rel=\"noopener\">Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8)<\/a>\u300d\u3068\u307b\u307c\u540c\u3058\u3067\u3001Edge\u3067Bing\u3092\u958b\u304f \u2192 \u300cMicrosoft MVP\u300d\u3092\u30ad\u30fc\u30ef\u30fc\u30c9\u306b\u3057\u3066\u691c\u7d22\u5b9f\u884c \u2192 \u691c\u7d22\u7d50\u679c\u306e\u30b9\u30af\u30ea\u30fc\u30f3\u30b7\u30e7\u30c3\u30c8\u3092\u64ae\u308b\u3001\u3068\u3044\u3063\u305f\u3053\u3068\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u5b9f\u969b\u306b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u5b9f\u884c\u3057\u305f\u969b\u306e\u52d5\u753b\u3092\u30a2\u30c3\u30d7\u3057\u305f\u306e\u3067\u3001\u3069\u306e\u3088\u3046\u306a\u52d5\u304d\u3092\u3059\u308b\u306e\u304b\u306f\u4e0b\u8a18\u52d5\u753b\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n<p><iframe loading=\"lazy\" width=\"550\" height=\"413\" src=\"https:\/\/www.youtube.com\/embed\/VfWSQRPkVyA\" frameborder=\"0\" allowfullscreen><\/iframe><\/p>\n<p>\u4e0a\u8a18\u306e\u3088\u3046\u306bWebDriver\u3092\u4f7f\u3046\u3053\u3068\u3067\u3001\u5316\u77f3\u3068\u3082\u8a00\u3048\u308b\u53e4\u3044\u6280\u8853\u3010VBScript\u3011\u304b\u3089\u3067\u3082Microsoft Edge\u3092\u64cd\u4f5c\u3067\u304d\u308b\u3053\u3068\u304c\u5206\u304b\u308a\u307e\u3057\u305f\u3002\u305f\u3060\u3057\u3001\u52b9\u7387\u304c\u826f\u3044\u3068\u306f\u8a00\u3048\u307e\u305b\u3093\u306e\u3067\u3001\u5b9f\u969b\u306b\u696d\u52d9\u3067\u5229\u7528\u3059\u308b\u3068\u304d\u306f<a href=\"http:\/\/www.seleniumhq.org\/\" title=\"Selenium - Web Browser Automation\" target=\"_blank\" rel=\"noopener\">Selenium<\/a>\u306e\u5229\u7528\u3092\u304a\u85a6\u3081\u3057\u307e\u3059\u3002<\/p>\n<h4 class=\"style4a\">\u95a2\u9023\u8a18\u4e8b<\/h4>\n<ul>\n<li>Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8)<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6018\" target=\"_blank\" title=\"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8)\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6018<\/a><\/li>\n<li>PowerShell\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6029\" target=\"_blank\" title=\"PowerShell\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6029<\/a><\/li>\n<li>Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6033\" target=\"_blank\" title=\"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6033<\/a><\/li>\n<li>\u7d9a\u30fbMicrosoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6068\" target=\"_blank\" title=\"\u7d9a\u30fbMicrosoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6068<\/a><\/li>\n<li>Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBScript<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6129\" target=\"_blank\" title=\"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBScript\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6129<\/a><\/li>\n<li>\u8d77\u52d5\u4e2d\u306eMicrosoft Edge\u304b\u3089\u30bf\u30a4\u30c8\u30eb\u3068URL\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed(UI Automation\u7de8)<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6076\" target=\"_blank\" title=\"\u8d77\u52d5\u4e2d\u306eMicrosoft Edge\u304b\u3089\u30bf\u30a4\u30c8\u30eb\u3068URL\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed(UI Automation\u7de8)\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6076<\/a><\/li>\n<li>\u8d77\u52d5\u4e2d\u306eMicrosoft Edge\u304b\u3089\u30bf\u30a4\u30c8\u30eb\u3068URL\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6086\" target=\"_blank\" title=\"\u8d77\u52d5\u4e2d\u306eMicrosoft Edge\u304b\u3089\u30bf\u30a4\u30c8\u30eb\u3068URL\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6086<\/a><\/li>\n<li>Microsoft Edge\u3067Web\u30da\u30fc\u30b8\u3092\u958b\u304f\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6040\" target=\"_blank\" title=\"Microsoft Edge\u3067Web\u30da\u30fc\u30b8\u3092\u958b\u304f\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6040<\/a><\/li>\n<li>Microsoft Edge\u3092\u8d77\u52d5\u3059\u308bVBScript<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6048\" target=\"_blank\" title=\"Microsoft Edge\u3092\u8d77\u52d5\u3059\u308bVBScript\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6048<\/a><\/li>\n<li>Microsoft Edge\u3067\u30ea\u30f3\u30af\u5148\u3092\u958b\u304f<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6050\" target=\"_blank\" title=\"Microsoft Edge\u3067\u30ea\u30f3\u30af\u5148\u3092\u958b\u304f\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6050<\/a><\/li>\n<li>\u300c\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u6307\u5b9a\u3057\u3066\u5b9f\u884c\u300d\u304b\u3089Microsoft Edge\u3092\u8d77\u52d5\u3059\u308b<\/li>\n<li style=\"list-style-type:none;\"><a href=\"\/\/www.ka-net.org\/blog\/?p=6098\" target=\"_blank\" title=\"\u300c\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u6307\u5b9a\u3057\u3066\u5b9f\u884c\u300d\u304b\u3089Microsoft Edge\u3092\u8d77\u52d5\u3059\u308b\" rel=\"noopener\">\/\/www.ka-net.org\/blog\/?p=6098<\/a><\/li>\n","protected":false},"excerpt":{"rendered":"\u300cMicrosoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(WebDriver\u7de8)\u300d\u3067\u3082\u66f8\u3044\u3066\u3044\u307e\u3059\u304c\u3001Edge\u3092\u5916\u90e8\u304b\u3089\u64cd\u4f5c\u3059\u308b\u65b9\u6cd5\u3068\u3057\u3066\u300cWebDriver\u300d\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u3002 Microsoft Edge Dev Bl [&hellip;]","protected":false},"author":1,"featured_media":7132,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"\u307e\u305f\u3057\u3066\u3082 #Edge \u30cd\u30bf\u3002\u4eca\u56de\u306fYouTube\u306b\u3082\u52d5\u753b\u3092\u30a2\u30c3\u30d7\u3057\u307e\u3057\u305f\u2192 https:\/\/youtu.be\/VfWSQRPkVyA [Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBScript]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[132,25,6,133],"tags":[],"class_list":["post-6129","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-windows10","category-windows","category-vbs","category-microsoft-edge"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-VBScript.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1AR","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/6129","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6129"}],"version-history":[{"count":5,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/6129\/revisions"}],"predecessor-version":[{"id":14220,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/6129\/revisions\/14220"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7132"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6129"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6129"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6129"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}