FreeScriptの練習
2024年12月28日 (土) 17:04時点におけるYo-net (トーク | 投稿記録)による版 (ページの作成:「<yjavascript></script> <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.11.1/styles/vs2015.css"> <link rel="stylesheet" href="https://wiki.yo-net.jp/custom.css"> <script src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.11.1/highlight.min.js"></script> <script src="https://wiki.yo-net.jp/custom.js"></script> <script></yjavascript> <FreeScript></script> <!-- data-line-num-start="1" data-line-highlight="3, 10-" data-max-…」)
Public Sub グーグル検索()
Dim driver As Selenium.EdgeDriver
Set driver = New Selenium.EdgeDriver
With driver
.Start
.Get "https://www.google.com/"
.FindElementByName("q").SendKeys ("Yonewiki")
.FindElementByCss("input.gNO89b").Click '.FindElementById("btnK").Click
Debug.Print .FindElementById("search").Text
.Quit
End With
End Sub
Public Sub グーグル検索()
Dim driver As Selenium.EdgeDriver
Set driver = New Selenium.EdgeDriver
With driver
.Start
.Get "https://www.google.com/"
.FindElementByName("q").SendKeys ("Yonewiki")
.FindElementByCss("input.gNO89b").Click '.FindElementById("btnK").Click
Debug.Print .FindElementById("search").Text
.Quit
End With
End Sub