【IEから脱却のGoogle Chrome版】さらにお手軽です！楽天ウェブ検索を自動化して口数をためる方法

// #
// #楽天ウェブ検索自動化・・・UWSCR+Google Chrome版　('ω')ノ
// #

// #検索の設定
// #楽天ウェブ検索のURL
url ="https://websearch.rakuten.co.jp/"

// #検索する文字列  ※実際に検索する文字に変更する
dim srch[] =_
    "最初の検索",　　 "02番目の検索", "03番目の検索", "04番目の検索", "05番目の検索",_
    "06番目の検索",  "07番目の検索", "08番目の検索", "09番目の検索", "10番目の検索",_
    "11番目の検索",  "12番目の検索", "13番目の検索", "14番目の検索", "15番目の検索",_
    "16番目の検索",  "17番目の検索", "18番目の検索", "19番目の検索", "20番目の検索",_
    "21番目の検索",  "22番目の検索", "23番目の検索", "24番目の検索", "25番目の検索",_
    "26番目の検索",  "27番目の検索", "28番目の検索", "29番目の検索", "30番目の検索",_
    "31番目の検索",  "32番目の検索", "33番目の検索", "34番目の検索", "35番目の検索",_
    "36番目の検索",  "37番目の検索", "38番目の検索", "39番目の検索", "40番目の検索"

// #ブラウザ立ち上げ
browser = BrowserControl(BC_CHROME)

// #楽天ウェブ検索のトップページを開く（開いたらちょっと待機）
rsp = browser.navigate(url)
sleep(2.0)

// #トップページで検索　※ここはちょいちょい変えてくれる

// #検索テキストボックスを探して検索文字を入力
inp = browser.document.queryselector("#search-input")
inp.input(srch[0])

// #検索ボタンを探してクリック
btn = browser.document.queryselector("#search-submit")
btn.click()

// #ちょっと待機　※検索で更新が遅い時は数字を増やす
sleep(3.0)

// #トップページ以降の検索（繰り返し）

for rnum=1 to 39

　　// #検索テキストボックスを探して、きれいにしてから検索文字を入力
    inp = browser.document.queryselector("#srchformtxt_qt")
    inp.clear()
    inp.input(srch[rnum])

　　// #検索ボタンを探してクリック
    btn = browser.document.queryselector("#searchBtn")
    btn.click()

　　// #ちょっと待機　※検索で更新が遅い時は数字を増やす
    sleep(3.0)

next

// #ブラウザを終了する＼(^o^)／
browser.close()

dim srch[] =_
    "ガンダム",　　 "アムロの父", "シャアの犬", "ザク最高", "本日の天気",_

// #ちょっと待機　※検索で更新が遅い時は数字を増やす
sleep(3.0)