{"id":10666,"date":"2018-07-26T12:00:44","date_gmt":"2018-07-26T03:00:44","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=10666"},"modified":"2019-06-05T16:14:34","modified_gmt":"2019-06-05T07:14:34","slug":"%e3%80%902018%e5%b9%b47%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=10666","title":{"rendered":"\u30102018\u5e747\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002"},"content":{"rendered":"

2\u5e74\u4ee5\u4e0a\u524d\u3001SeleniumBasic<\/a>\u304cMicrosoft Edge<\/a>\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<\/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

SeleniumBasic\u306e\u66f4\u65b0\u304c2\u5e74\u4ee5\u4e0a\u6b62\u307e\u3063\u3066\u3044\u308b<\/a>\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\u306bSeleniumBasic\u3067Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\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\u30022018\u5e747\u6708\u6642\u70b9\u3067\u306f\u3001SeleniumBasic\u306e\u6700\u65b0\u7248\u306fv2.0.9.0<\/span>\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n

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

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

\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3059\u308bWebDriver\u306e\u9078\u629e\u753b\u9762\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u304c\u3001\u3053\u3053\u3067\u306f\u3068\u308a\u3042\u3048\u305aEdge\u7528\u3068IE\u7528\u306e\u3082\u306e\u3092\u9078\u629e\u3057\u3066\u304a\u304d\u307e\u3059\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

\u52d5\u4f5c\u78ba\u8a8d<\/h4>\n

\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u5f8c\u3001\u7c21\u5358\u306a\u30b3\u30fc\u30c9\u3067\u52d5\u4f5c\u78ba\u8a8d\u3092\u884c\u3044\u307e\u3059\u3002<\/p>\n

Public Sub Sample1()\r\n  With CreateObject("Selenium.EdgeDriver")\r\n    .Start\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  MsgBox "\u7d42\u4e86", vbInformation + vbSystemModal\r\nEnd Sub<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3057\u305f\u3068\u3053\u308d\u3001\u4e0b\u56f3\u306e\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002
\n\u3084\u306f\u308a\u66f4\u65b0\u306e\u6b62\u307e\u3063\u3066\u3044\u308b\u53e4\u3044SeleniumBasic\u3067\u306fEdge\u3092\u64cd\u4f5c\u3067\u304d\u306a\u3044\u306e\u3067\u3057\u3087\u3046\u304b\uff1f<\/p>\n
\"\"<\/a><\/p>\n
\u78ba\u8a8d\u306e\u305f\u3081\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u5148\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u898b\u3066\u307f\u308b\u3068\u3001Edge\u7528\u306eWebDriver(edgedriver.exe)\u3092\u898b\u3064\u3051\u307e\u3057\u305f\u3002
\n\u305f\u3060\u3001\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u306f\u30d0\u30fc\u30b8\u30e7\u30f3\u304c10.0.10240.0<\/span>\u3068\u3001\u304b\u306a\u308a\u53e4\u3044\u3082\u306e\u3067\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u305d\u3053\u3067\u3001\u516c\u5f0f\u30b5\u30a4\u30c8<\/a>\u304b\u3089\u6700\u65b0\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3001WebDriver\u3092\u5dee\u3057\u66ff\u3048\u305f\u3068\u3053\u308d(\u300cMicrosoftWebDriver.exe\u300d\u304b\u3089\u300cedgedriver.exe\u300d\u306b\u30ea\u30cd\u30fc\u30e0)\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u304c\u554f\u984c\u306a\u304f\u52d5\u4f5c\u3059\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n
\"\"<\/a><\/p>\n
WebDriver\u3092\u6307\u5b9a\u3057\u3066SeleniumBasic\u306b\u3088\u308b\u64cd\u4f5c\u3092\u5b9f\u884c<\/h4>\n
WebDriver\u3092\u6700\u65b0\u306e\u30d5\u30a1\u30a4\u30eb\u306b\u5dee\u3057\u66ff\u3048\u308b\u3053\u3068\u3067\u52d5\u4f5c\u3059\u308b\u3053\u3068\u306f\u78ba\u8a8d\u3067\u304d\u307e\u3057\u305f\u304c\u3001\u30d6\u30e9\u30a6\u30b6\u30fc(WebDriver)\u304c\u66f4\u65b0\u3055\u308c\u308b\u305f\u3073\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u5165\u308c\u66ff\u3048\u308b\u306e\u306f\u3001\u305d\u308c\u306f\u305d\u308c\u3067\u9762\u5012\u304f\u3055\u3044\u3082\u306e\u3067\u3059\u3002<\/p>\n
\u305d\u3053\u3067\u3001WebDriver\u306e\u8d77\u52d5\u51e6\u7406\u3092\u5206\u3051\u3001\u4efb\u610f\u306e\u5834\u6240\u306b\u3042\u308bWebDriver\u3092\u5b9f\u884c\u3059\u308b\u3088\u3046\u306a\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n
Public Sub Sample2()\r\n  Dim pid As Long\r\n  Dim pno As Long: pno = 17556\r\n  \r\n  pid = StartDriver(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  TerminateDriver pid\r\n  MsgBox "\u7d42\u4e86", vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Function StartDriver(Optional ByVal BrowserName As String = "MicrosoftEdge", _\r\n                             Optional ByVal PortNo As Long = 58082) As Long\r\n'WebDriver\u5b9f\u884c\r\n  Dim DriverPath 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\r\n  Const DriverFolderPath As String = "C:\\System\\Driver"\r\n  Const EdgeDriverName As String = "MicrosoftWebDriver.exe"\r\n  Const IEDriverName As String = "IEDriverServer.exe"\r\n  \r\n  pid = 0 '\u521d\u671f\u5316\r\n  With CreateObject("Scripting.FileSystemObject")\r\n    Select Case LCase(BrowserName)\r\n      Case "microsoftedge", "edge"\r\n        DriverName = EdgeDriverName\r\n        Options = " --host=localhost --port=" & PortNo\r\n      Case "internet explorer", "ie"\r\n        DriverName = IEDriverName\r\n        Options = " \/host=127.0.0.1 \/port=" & PortNo & " \/log-level=ERROR \/silent"\r\n      Case Else: GoTo Fin\r\n    End Select\r\n    DriverPath = .BuildPath(DriverFolderPath, DriverName)\r\n    If .FileExists(DriverPath) = False Then GoTo Fin\r\n  End With\r\n  \r\n  '\u4e8c\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  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  StartDriver = pid\r\nEnd Function\r\n\r\nPrivate Sub TerminateDriver(ByVal ProcessId As Long)\r\n'WebDriver\u7d42\u4e86\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
WebDriver\u306e\u8d77\u52d5\u3068\u7d42\u4e86\u3092\u81ea\u529b\u3067\u884c\u3046\u3088\u3046\u306b\u3057\u305f\u305f\u3081\u3001\u5197\u9577\u306a\u30b3\u30fc\u30c9\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u304c\u3001\u3053\u308c\u3067\u3042\u308c\u3070\u597d\u304d\u306a\u30d5\u30a9\u30eb\u30c0\u306bWebDriver\u3092\u7f6e\u3044\u3066SeleniumBasic\u3092\u4f7f\u3046\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
VBA\u30de\u30af\u30ed\u304b\u3089Edge\u3092\u64cd\u4f5c\u3059\u308b\u6a5f\u4f1a\u3082\u306a\u304b\u306a\u304b\u7121\u3044\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u8208\u5473\u304c\u3042\u308a\u307e\u3057\u305f\u3089\u3001\u4e00\u5ea6\u8a66\u3057\u3066\u307f\u3066\u306f\u3044\u304b\u304c\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n
\n
2019\/6\/5 \u8ffd\u8a18\uff1a<\/span>
\nWindows 10 May 2019 Update\u3067\u3082\u52d5\u4f5c\u78ba\u8a8d\u3092\u884c\u3044\u307e\u3057\u305f\u3002<\/p>\n
\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/a><\/div>
2019.06.05<\/span>
\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002 <\/a><\/div>
2015\u5e74\u30682018\u5e74\u306bSeleniumBasic\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\r\n\r\n\r\n\r\n\r\n\r\nWindows 10 May 2019 Update\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...<\/div><\/div>
<\/div><\/div>\n
\n
\n