• ベストアンサー
  • 困ってます

vbsでスクロール位置を指定してurlを開くには?

  • 質問No.7152649
  • 閲覧数1812
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 19% (22/112)

vbsを実行して、IE等でurlを開くことはできるのですが、
最初に指定した文字列を検索し、その検索一致位置までスクロールを下げた状態で開くことはできますか?

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 83% (5/6)

できます。
こんな手順で想定した動作になるでしょうか。
1. InternetExplorer.Applicationで所定のページを開く
2. document.bodyからTextRangeオブジェクトを生成
3. TextRangeクラスのfindTextメソッドで文字列を検索
4. scrollIntoViewで一致した位置にスクロールダウン

コードにするとこんな感じです。
#ここではokwaveのトップを開いて下の方にある「採用情報」を引っ掛けてます。

option explicit

dim ie
dim rng

sub WaitIE(ie)
do while ie.busy or ie.readyState <> 4
WScript.Sleep 100
loop
end sub

set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = true
ie.navigate "http://okwave.jp/"

WaitIE ie

set rng = ie.document.body.createTextRange()

if rng.findText("採用情報") then
rng.scrollIntoView
end if
お礼コメント
ttt20110701

お礼率 19% (22/112)

megauturoさん、回答ありがとうございました。
期待していた動作になりました。
投稿日時:2011/11/25 08:34
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ