「FreeScriptの練習」の版間の差分
編集の要約なし |
編集の要約なし タグ: 差し戻し済み |
||
| 7行目: | 7行目: | ||
< | <freescript2></script> | ||
<!-- | <!-- | ||
data-line-num-start="1" | data-line-num-start="1" | ||
| 41行目: | 41行目: | ||
End With | End With | ||
End Sub</code></pre><div> | End Sub</code></pre><div> | ||
<script></ | <script></freescript2> | ||
<syntaxhighlight lang="text"> | <syntaxhighlight lang="text"> | ||
test string. | test string. | ||
</syntaxhighlight> | </syntaxhighlight> | ||
2024年12月28日 (土) 20:37時点における版
<freescript2></script>
<code class="language-vbnet">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</code><script></freescript2>
test string.