[VBScript] Internet Explorer 自動操作(2)

  • このエントリーをはてなブックマークに追加
  • Pocket

attention この記事は2年以上前の投稿になります。
記載された情報が古くなっている可能性がございますので十分ご注意ください。

前回の続きです。
今度は、表示した内容に対してクリック操作してみようと思います。

前回の内容からの変更点は後半の3行分のところになります。
(下記をメモ帳等へコピー&ペーストして「~.vbs」というファイル名で保存すればOKです。)

Option Explicit
Dim objIE, strURL

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
strURL = https://www.google.co.jp/

objIE.navigate2 strURL
WScript.Sleep 5000
objIE.document.forms(0).item("q").value = "VBScript"
objIE.document.forms(0).Submit()
Set objIE = Nothing

プログラムの変更点の詳しい内容です。

  • WScript.Sleep 5000  ← 読込終わるまで5000ms(ミリ秒)待つ ※本来、読込終わるまでループして待つ処理すべき
  • objIE.document.forms(0).item(“q”).value = “VBScript”  ← 検索文字列をセットする
  • objIE.document.forms(0).Submit()  ← 検索を実行する(検索ボタンをを押す)

これで、Googleのトップページを表示した5秒後に、検索キーワードがセットされて検索結果画面が表示されます。

ご訪問ありがとうございます。
参考になりましたら『いいね!』もお願いします。

ITの活用情報を毎週お届けする無料メルマガに是非ご登録ください。

閉じる

ご意見・ご感想をお待ちしております。

いただいた情報は一般公開されません。(入力いただいたメールアドレスにてご返信させていただきます)
また、* が付いている欄は必須項目となりますので、必ずご記入をお願いします。

内容に問題なければ、下記の「コメントを送信する」ボタンを押してください。