「FreeScriptの練習」の版間の差分

2024年12月28日 (土) 21:27時点における最新版

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

test string.

@@ 1行目: / 1行目: @@
+[[FreeScriptの練習2]]
 <yjavascript></script>
 <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.11.1/styles/vs2015.css">
@@ 42行目: / 43行目: @@
 End Sub</code></pre><div>
 <script></freescript>
+<syntaxhighlight lang="text">
+test string.
+</syntaxhighlight>