解決済

clip!clip!
Ads By Google

VBScriptで自動的にサイトログインを行うプログラムを作っています。ログイン時にエラーがあった場合の処理対策を考えていますがどうしようか悩んでいます。

Dim LogonID
Dim Password
Dim URL
Dim objIE
Dim objINPUT
Dim BodyText
Dim AriNashi

LogonID = "XXXXXXXX"
Password = "XXXXXXXXX"
URL = " ;

Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate URL
objIE.Visible = True

Do Until objIE.Busy = False
WScript.sleep(250)
Loop

If objIE.document.URL = URL Then
BodyText = objIE.document.body.innerTEXT
AriNashi = InStr(1, BodyText, "Yahoo")
If AriNashi > 0 Then
Set objINPUT = objIE.document.getElementsByTagName("input")
objINPUT(0).value = LoginID
objINPUT(1).value = Password
objINPUT(2).Click
Else
'???????????????????????????????????????????????????
'???????????????????????????????????????????????????
'???????????????????????????????????????????????????
End If
Else
WScript.Echo " ダ メ" & Err.Description
End If
Set objIE = Nothing

※タグは適当になっています。
手作業でログインするときフォームにLoginIDとPasswordを入れてクリックしたとき何らかのサーバーエラーでエラー表示になる場合と5回クリックしたときにエラーページが表示される場合があります。
そういった場合の対策はどうしたらよいでしょうか?

2008-12-03 23:08の質問
この質問と回答を読んで役に立った場合は「役に立つ質問」に投票してください。投票が多い質問は、役に立つ質問一覧に掲載され、より多くの人に見てもらうことができます。

回答(1)

1.

2008-12-04 01:49:55ベスト
プログラム中で
「エラーの原因がわからない」のであれば、
対処(エラー処理)のしようがありません。

時間をおいて再度ログインを試みるか、
ログインに失敗したことを表示して終了するか
すればいいのではないでしょうか。
Ads By Google

コメント

まだコメントがありません

トラックバック(2)

トラックバックURL: