{"id":11677,"date":"2019-06-05T15:00:28","date_gmt":"2019-06-05T06:00:28","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11677"},"modified":"2019-06-05T16:04:28","modified_gmt":"2019-06-05T07:04:28","slug":"%e3%80%902019%e5%b9%b46%e6%9c%88%e7%89%88%e3%80%91seleniumbasic%e3%81%a7microsoft-edge%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%97%e3%81%a6%e3%81%bf%e3%81%be%e3%81%97%e3%81%9f%e3%80%82","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11677","title":{"rendered":"\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002"},"content":{"rendered":"

2015\u5e74\u30682018\u5e74\u306bSeleniumBasic<\/a>\u3092\u4f7f\u3063\u3066Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3057\u305f\u3002<\/p>\n

SeleniumBasic(Selenium VBA)\u304cMicrosoft Edge\u306b\u5bfe\u5fdc\u3057\u307e\u3057\u305f\u3002<\/a><\/div>
2015.11.01<\/span>
SeleniumBasic(Selenium VBA)\u304cMicrosoft Edge\u306b\u5bfe\u5fdc\u3057\u307e\u3057\u305f\u3002 <\/a><\/div>
\u8a00\u308f\u305a\u3068\u77e5\u308c\u305fWeb\u30d6\u30e9\u30a6\u30b6\u30fc\u306e\u81ea\u52d5\u5236\u5fa1\u30c4\u30fc\u30eb\u300cSelenium\u300d\u306eVBA\u5411\u3051\u30e9\u30c3\u30d1\u30fc\u300cSeleniumBasic\u300d(\u65e7Selenium VBA)\u304c v2.0.6.0 \u3067Microsoft Edge\u306b\u5bfe\u5fdc\u3057\u307e\u3057\u305f\u3002\r\n\r\n\r\n[vb]Option Explic...<\/div><\/div>
<\/div><\/div>\n
\u30102018\u5e747\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/a><\/div>
2018.07.26<\/span>
\u30102018\u5e747\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002 <\/a><\/div>
2\u5e74\u4ee5\u4e0a\u524d\u3001SeleniumBasic\u304cMicrosoft Edge\u306b\u5bfe\u5fdc\u3057\u305f\u9803\u3001\u5f53\u30d6\u30ed\u30b0\u3067\u3082\u53d6\u308a\u4e0a\u3052\u305f\u3053\u3068\u304c\u3042\u308a\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\nSeleniumBasic\u306e\u66f4\u65b0\u304c2\u5e74\u4ee5\u4e0a\u6b62\u307e\u3063\u3066\u3044\u308b\u3053\u3068\u3082\u3042\u308a\u3001\u3057\u3070\u3089\u304f\u89e6\u3063\u3066\u3044\u306a\u304b\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u6c17\u304c\u5411\u3044\u305f\u306e\u3067\u4e45\u3057\u3076\u308a...<\/div><\/div>
<\/div><\/div>\n

Windows 10 May 2019 Update<\/a>\u304c\u516c\u958b\u3055\u308c\u3001Edge\u5468\u308a\u306e\u74b0\u5883\u304c\u5909\u308f\u3063\u305f\u306e\u3067\u3001\u6539\u3081\u3066\u52d5\u4f5c\u78ba\u8a8d\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u52d5\u4f5c\u78ba\u8a8d\u74b0\u5883<\/h4>\n
    \n
  1. Microsoft Windows 10 Pro \u30d0\u30fc\u30b8\u30e7\u30f3 1903 (OS \u30d3\u30eb\u30c9 18362.145) 64\u30d3\u30c3\u30c8\u7248<\/li>\n
  2. Excel 2016 MSO (16.0.4849.1000) 32\u30d3\u30c3\u30c8\u7248<\/li>\n
  3. Microsoft Edge 44.18362.1.0<\/li>\n
  4. Microsoft EdgeHTML 18.18362<\/li>\n
  5. SeleniumBasic v2.0.9.0<\/li>\n<\/ol>\n

    SeleniumBasic\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb<\/h4>\n

    GitHub\u306eReleases<\/a>\u30da\u30fc\u30b8\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3092\u884c\u3044\u307e\u3059\u30022019\u5e746\u6708\u6642\u70b9\u3067\u3082\u3001SeleniumBasic\u306e\u6700\u65b0\u7248\u306fv2.0.9.0<\/span>\u3068\u306a\u3063\u3066\u3044\u3066\u3001\u4ee5\u524d\u306e\u8a18\u4e8b<\/a>\u516c\u958b\u6642\u70b9\u304b\u3089\u66f4\u65b0\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u3002<\/p>\n

    \"\"<\/a><\/p>\n

    \"\"<\/a><\/p>\n

    WebDriver\u306e\u9078\u629e\u753b\u9762\u3067\u306f\u3001Edge\u7528\u306e\u30c9\u30e9\u30a4\u30d0\u30fc\u3092\u9078\u629e\u3057\u307e\u3059\u3002
    \n(\u3068\u3044\u3063\u3066\u3082\u3001SeleniumBasic\u4ed8\u5c5e\u306eWebDriver\u306f\u53e4\u904e\u304e\u3066\u4f7f\u3044\u7269\u306b\u306a\u308a\u307e\u305b\u3093\u3002)<\/p>\n

    \"\"<\/a><\/p>\n

    \u4e0b\u56f3\u753b\u9762\u306e\u901a\u308a\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u5148\u306f\u300c%USERPROFILE%\\AppData\\Local\\SeleniumBasic<\/span>\u300d\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n

    \"\"<\/a><\/p>\n

    \"\"<\/a><\/p>\n

    .NET Framework 3.5\u306e\u6709\u52b9\u5316<\/h4>\n

    SeleniumBasic\u3092\u52d5\u304b\u3059\u306b\u306f\u3001\u300c.NET Framework 3.5<\/span>\u300d\u3092\u6709\u52b9\u5316\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

    [\u3059\u3079\u3066\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb \u30d1\u30cd\u30eb\u9805\u76ee] \u2192 [\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u6a5f\u80fd] \u2192 [Windows \u306e\u6a5f\u80fd\u306e\u6709\u52b9\u5316\u307e\u305f\u306f\u7121\u52b9\u5316]\u304b\u3089\u300c.NET Framework 3.5 (.NET 2.0 \u304a\u3088\u3073 3.0 \u3092\u542b\u3080)<\/span>\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u3001OK\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3001\u6307\u793a\u306b\u5f93\u3063\u3066\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3092\u884c\u3063\u305f\u5f8c\u3001PC\u3092\u518d\u8d77\u52d5\u3059\u308c\u3070.NET Framework 3.5\u304c\u6709\u52b9\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

    \"\"<\/a><\/p>\n

    \"\"<\/a><\/p>\n

    \"\"<\/a><\/p>\n

    .NET Framework 3.5\u304c\u7121\u52b9\u306b\u306a\u3063\u3066\u3044\u308b\u3068\u3001SeleniumBasic\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f5c\u6210\u3057\u3088\u3046\u3068\u3057\u305f\u6642\u70b9\u3067\u300c\u5b9f\u884c\u6642\u30a8\u30e9\u30fc ‘-2146232576 (80131700)’:\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3 \u30a8\u30e9\u30fc\u300d<\/i>\u304c\u767a\u751f\u3057\u307e\u3059\u3002<\/p>\n

    \"\"<\/a><\/p>\n

    \u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u30a8\u30e9\u30fc\u3060\u3051\u3067\u306f\u4f55\u304c\u539f\u56e0\u306a\u306e\u304b\u5206\u304b\u3089\u305a\u3001SeleniumBasic\u3092\u4f7f\u3046\u3068\u304d\u306b\u610f\u5916\u3068\u30cf\u30de\u308a\u3084\u3059\u3044\u7f60\u306a\u306e\u3067\u304a\u6c17\u3092\u4ed8\u3051\u304f\u3060\u3055\u3044\u3002<\/p>\n

    WebDriver\u306e\u8ffd\u52a0<\/h4>\n

    Microsoft\u306e\u516c\u5f0f\u30b5\u30a4\u30c8<\/a>\u306b\u3042\u308b\u901a\u308a\u3001Edge \u30d0\u30fc\u30b8\u30e7\u30f3 18\u3067\u306f\u3001DISM<\/a>\u30b3\u30de\u30f3\u30c9\u3067WebDriver\u3092\u8ffd\u52a0\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

    DISM.exe \/Online \/Add-Capability \/CapabilityName:Microsoft.WebDriver~~~~0.0.1.0<\/pre>\n
    \u7ba1\u7406\u8005\u6a29\u9650\u3067\u5b9f\u884c\u3057\u305f\u30b3\u30de\u30f3\u30c9\u30d7\u30ed\u30f3\u30d7\u30c8\u304b\u3089\u3001\u4e0a\u8a18\u30b3\u30de\u30f3\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001System32\u30d5\u30a9\u30eb\u30c0\u306b\u300cMicrosoftWebDriver.exe<\/span>\u300d\u30d5\u30a1\u30a4\u30eb\u304c\u8ffd\u52a0\u3055\u308c\u307e\u3059\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    \"\"<\/a><\/p>\n
    \"\"<\/a><\/p>\n
    \u30d5\u30a1\u30a4\u30eb\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u308210.0.18362.1<\/span>\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    SeleniumBasic\u4ed8\u5c5e\u306eWebDriver\u3068\u5165\u308c\u66ff\u3048\u3066\u5b9f\u884c<\/h4>\n
    WebDriver\u306e\u6e96\u5099\u304c\u3067\u304d\u305f\u306e\u3067\u3001\u524d\u56de\u306e\u8a18\u4e8b<\/a>\u306b\u5023\u3063\u3066\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u5165\u308c\u66ff\u3048\u3066\u5b9f\u884c\u3057\u3066\u307f\u307e\u3057\u305f\u3002
    \n(\u300cMicrosoftWebDriver.exe\u300d\u30d5\u30a1\u30a4\u30eb\u3092\u300c%USERPROFILE%\\AppData\\Local\\SeleniumBasic\u300d\u306b\u30b3\u30d4\u30fc\u3057\u3066\u300cedgedriver.exe\u300d\u306b\u30ea\u30cd\u30fc\u30e0)<\/p>\n
    \"\"<\/a><\/p>\n
    ---------------------------\r\nMicrosoft Visual Basic for Applications\r\n---------------------------\r\n\u5b9f\u884c\u6642\u30a8\u30e9\u30fc '0':\r\n\r\n\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3 \u30a8\u30e9\u30fc\u3067\u3059\u3002\r\n\u3053\u306e\u64cd\u4f5c\u3092\u6b63\u3057\u304f\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002<\/pre>\n
    \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u4f5c\u6210\u6642\u70b9\u3067\u306f\u30a8\u30e9\u30fc\u306f\u767a\u751f\u3057\u307e\u305b\u3093\u304c\u3001Start\u30e1\u30bd\u30c3\u30c9\u3092\u5b9f\u884c\u3057\u3088\u3046\u3068\u3057\u305f\u6642\u70b9\u3067\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3059\u3002<\/p>\n
    \u958b\u767a\u8005\u5411\u3051\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8<\/a>\u3092\u53c2\u8003\u306b\u3001AddArgument\u30e1\u30bd\u30c3\u30c9\u3067\u300cjwp<\/span>\u300d\u30aa\u30d7\u30b7\u30e7\u30f3\u3092\u4ed8\u3051\u3066\u307f\u307e\u3057\u305f\u304c\u3001\u7d50\u679c\u306f\u5909\u308f\u308a\u307e\u305b\u3093\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    jwp\u30aa\u30d7\u30b7\u30e7\u30f3\u3092\u4ed8\u3051\u3066\u5148\u306bWebDriver\u3092\u5b9f\u884c<\/h4>\n
    \u4ed5\u65b9\u304c\u7121\u3044\u306e\u3067\u5148\u306bWebDriver\u3092\u5b9f\u884c\u3057\u3066\u304a\u3044\u3066\u3001StartRemotely<\/span>\u30e1\u30bd\u30c3\u30c9\u3092\u4f7f\u7528\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002
    \n(\u30b3\u30fc\u30c9\u306f    \u524d\u56de\u306e\u8a18\u4e8b<\/a>\u3068\u5927\u4f53\u540c\u3058\u3067\u3059\u306d\u3002)<\/p>\n
    Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim pid As Long\r\n  Dim pno As Long: pno = 17556\r\n  \r\n  pid = StartEdgeDriver(PortNo:=pno)\r\n  If pid = 0 Then Exit Sub\r\n  With CreateObject("Selenium.WebDriver")\r\n    .StartRemotely "http:\/\/localhost:" & pno & "\/", "MicrosoftEdge"\r\n    .Get "https:\/\/www.yahoo.co.jp\/"\r\n    .FindElementById("srchtxt").SendKeys "\u3042\u3044\u3046\u3048\u304a"\r\n    MsgBox "\u4e00\u6642\u505c\u6b62", vbInformation + vbSystemModal\r\n    .Quit\r\n  End With\r\n  TerminateEdgeDriver pid\r\n  MsgBox "\u7d42\u4e86", vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Function StartEdgeDriver( _\r\n  Optional ByVal DriverPath As String = "C:\\Windows\\System32\\MicrosoftWebDriver.exe", _\r\n  Optional ByVal PortNo As Long = 17556) As Long\r\n  \r\n  Dim DriverFolderPath As String\r\n  Dim DriverName As String\r\n  Dim Options As String\r\n  Dim itm As Object, itms As Object\r\n  Dim pid As Long: pid = 0\r\n  \r\n  With CreateObject("Scripting.FileSystemObject")\r\n    If .FileExists(DriverPath) = False Then GoTo Fin\r\n    DriverFolderPath = .GetParentFolderName(DriverPath)\r\n    DriverName = .GetFileName(DriverPath)\r\n  End With\r\n  \r\n  '\u591a\u91cd\u8d77\u52d5\u78ba\u8a8d\r\n  Set itms = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery _\r\n             ("Select * From Win32_Process Where Name = '" & DriverName & "'")\r\n  If itms.Count > 0 Then\r\n    For Each itm In itms\r\n      pid = itm.ProcessId: GoTo Fin\r\n    Next\r\n  End If\r\n  \r\n  'WebDriver\u5b9f\u884c\r\n  Options = " --host=localhost --jwp --port=" & PortNo\r\n  With CreateObject("WbemScripting.SWbemLocator").ConnectServer.Get("Win32_Process")\r\n    .Create DriverPath & Options, DriverFolderPath, Null, pid\r\n  End With\r\n  \r\nFin:\r\n  StartEdgeDriver = pid\r\nEnd Function\r\n\r\nPrivate Sub TerminateEdgeDriver(ByVal ProcessId As Long)\r\n  Dim itm As Object, itms As Object\r\n   \r\n  Set itms = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery _\r\n             ("Select * From Win32_Process Where ProcessId = " & ProcessId & "")\r\n  If itms.Count > 0 Then\r\n    For Each itm In itms\r\n      itm.Terminate: Exit For\r\n    Next\r\n  End If\r\nEnd Sub<\/pre>\n
    \u3053\u308c\u3067\u3088\u3046\u3084\u304f\u4e0a\u624b\u304f\u3044\u304d\u307e\u3057\u305f\u3002
    \n\u4e0b\u8a18\u30ad\u30e3\u30d7\u30c1\u30e3\u30fc\u52d5\u753b\u306e\u901a\u308a\u3001VBA\u30de\u30af\u30ed\u304b\u3089Edge\u304c\u64cd\u4f5c\u3067\u304d\u3066\u3044\u308b\u306e\u304c\u5206\u304b\u308b\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
    \"\"<\/a><\/p>\n
    \n
    \n