VBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法

VBSでブラウザ上のテキストボックスに文字列を打ち込み、ボタンを押す方法を教えてください。
現在、下のような方法で行っているのですが応用が利かないので改善したいと思っています。

Set IE = CreateObject("InternetExplorer.Application")
Set WshShell = CreateObject("WScript.Shell")

IE.Visible = True
IE.Navigate("https://サイトのURL")

Do Until IE.Busy = False
WScript.Sleep 1000
WshShell.SendKeys "y"
Loop
'(セキュリティの警告が出るため)
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "loginid"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "password"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "{ENTER}"

操作したいページのソースの一部を抜粋すると下記のようになっています。

テキストボックス
<INPUT type="text" name="loginId" class="Necessary" size="20" maxlength="5" value="" tabindex="20">

ボタン
<INPUT class="button10" type="button" name="sentaku" value="認証" onClick="javascript:execute・・・・略

うまく操作できる方法を教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： yambejp 回答日時： 2006/09/01 11:47

set f=oIE.document.forms(0)

f.loginId.value="loginid"
f.password.value="password"
WshShell.SendKeys "{ENTER}"

テキスト領域でエンターするとsubmitになるので
エンターをsendkeysするのはありだとおもいますよ

この回答へのお礼

ありがとうございます。
文字の入力はうまくできました。
ただ、テキスト領域でのエンターは作動しないのでTABキーでボタンの上にフォーカスを合わせてENTERしなくてはいけません。
ボタンを押すプログラムはないのでしょうか？

お礼日時：2006/09/01 13:22

No.2 回答者： BLUEPIXY 回答日時： 2006/09/02 06:07

#1>ボタンを押すプログラムはないのでしょうか？

同じようにして
f.sentaku.click
でいけると思います。

この回答へのお礼

ありがとうございます。
完璧に機能しました！

お礼日時：2006/09/04 09:27