IEでページのボタンをクリックする例。
同じ名前のオブジェクトがない事が前提
Dim IE 'IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "URL" '
'開くまで待つ。ページ遷移の際はお約束
Do While IE.Busy = True Or IE.readyState <> 4
Loop
'###################
'ここに処理を記述
'ページのボタンをクリックする
'同じ名前のオブジェクトはないケース
'オブジェクトは以下として
'<input id="test" type="image" src="../img/common/btn_login_01.png?_fp=0Kh99b8Q1W.cvQ1WfzwwCYezo173p7EsKwBI7a.klrZb00AnaCQaJyDEQHaRjg0wVne5DfY_DlVYr.PDFo8BuWnHGCbYfZOANmNFjUNWAJ0WNT.COknYGsUZkOjGye3C2m0yLZQJ2I" name="x" alt="ログイン" tabindex="105" class="rollover" />
Dim myTarget
Set myTarget = ie.document.getElementsByName("x")(0)
myTarget.Click
WScript.Sleep 10000 '10秒待機 すぐ閉じたらわからないから
'###################
IE.Quit 'IE終了
Set IE = Nothing '開放
同じ名前のオブジェクトがない事が前提
Dim IE 'IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "URL" '
'開くまで待つ。ページ遷移の際はお約束
Do While IE.Busy = True Or IE.readyState <> 4
Loop
'###################
'ここに処理を記述
'ページのボタンをクリックする
'同じ名前のオブジェクトはないケース
'オブジェクトは以下として
'<input id="test" type="image" src="../img/common/btn_login_01.png?_fp=0Kh99b8Q1W.cvQ1WfzwwCYezo173p7EsKwBI7a.klrZb00AnaCQaJyDEQHaRjg0wVne5DfY_DlVYr.PDFo8BuWnHGCbYfZOANmNFjUNWAJ0WNT.COknYGsUZkOjGye3C2m0yLZQJ2I" name="x" alt="ログイン" tabindex="105" class="rollover" />
Dim myTarget
Set myTarget = ie.document.getElementsByName("x")(0)
myTarget.Click
'開くまで待つ。ページ遷移の際はお約束
Do While IE.Busy = True Or IE.readyState <> 4
Loop
Do While IE.Busy = True Or IE.readyState <> 4
Loop
'###################
IE.Quit 'IE終了
Set IE = Nothing '開放
コメント
コメントを投稿