VBScriptでフォームに値を入れることを繰り返したいのですがどうもうまくいかずに悩んでいます。いい方法を教えて下さい。
指定ページを開いた後に
If objIE.Document.URL = strURL Then
Set objIN = objIE.Document.getElementByTagName("INPUT")
objIN(0).value = ID
objIN(1).value = PASSWORD
objIN(2).Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
If objIE.Document.URL <> strAfterLoginPage Then
objIN(0).value = ID
objIN(1).value = PASSWORD
objIN(2).Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
ElseIf objIE.Document.URL <> strAfterLoginPage Then
objIN(0).value = ID
objIN(1).value = PASSWORD
objIN(2).Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
ElseIf objIE.Document.URL <> strAfterLoginPage Then
objIN(0).value = ID
objIN(1).value = PASSWORD
objIN(2).Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
ElseIf objIE.Document.URL <> strAfterLoginPage Then
objIN(0).value = ID
objIN(1).value = PASSWORD
objIN(2).Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
Else objIE.Document.URL <> strAfterLoginPage Then
objIN(0).value = ID
objIN(1).value = PASSWORD
objIN(2).Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
End If
以下省略
といったように1回でログインできなかった場合何度か入力するプログラムなのですが最初のElseIfの後のところで「オブジェクトがありません」となってしまいます。
ページも遷移してないのですが何故かオブジェクトがなくなってしまいます。
そういった対策をすればよいのでしょうか？
お願いします。
