ＶＢ2005、WebBrowserにてログインが成功したか失敗したかを判断

質問

お世話になっております。
ＶＢ2005ユーザーです。

WebBrowserを使用し、windowsフォームに入力した内容を元にログインし、ログインが成功したか失敗したかを判断したいのです。

With WebBrowser1
.Navigate("ログインしたいＵＲＬ")

Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete '読み込み終わるまで待つ
System.Windows.Forms.Application.DoEvents()
Loop

.Document.All.GetElementsByName("ＩＤ")(0).InnerText = ＩＤ.Text
.Document.All.GetElementsByName("パスワード")(0).InnerText = パスワード.Text
.Document.Forms(0).InvokeMember("submit")

という物を使い、その後にログイン成功か失敗かを判断するために、

If .Document.Body.Innertext = "ログイン失敗" Then
MsgBox("だめ")
Exit Sub
Else
MsgBox("ＯＫ")
Exit Sub
End If

というコードを使ってみたのですが、Innertextの情報を読み取っていないのか、Else　MsgBox("ＯＫ")に飛んでしまいます。

Navigateにて進んだ先のＨＴＭＬ情報（Innertext）と、コチラが指定したい情報が一致しているかの判断はどのようなコードを記述すればいいのでしょうか？

回答No.1

mo_gu · ベストアンサー

ログインしたいＵＲＬで
実際にログインに失敗した場合 "ログイン失敗" という文字しか表示しないサイトなのですか？

サイト内にほかの文字の中から"ログイン失敗" があるかを調べるなら
InStr 関数を使えばいいです。

if InStr(WebBrowser1.Document.Body.Innertext ,"ログイン失敗") >0 then

お礼

いつもお世話になります。

ご回答ありがとうございました！！
InStr 関数を使用することで、ログインの成否が判別できるようになりました。