タイトル : Re: WebBrpwser内で自動ログインを【修正】 投稿日 : 2012/08/24(Fri) 14:02 投稿者 : Arms
> With WebBrowser1 > If .Document.Body.InnerText.IndexOf("ログインに失敗しました。") >= 0 Then > Exit Sub > End If > '追加部分(違う画面が表示されたら Top 画面に移動) > If .Document.Body.InnerText.IndexOf("不正なアクセスです。") >= 0 Then > 'https: と s を付けて下さい。 > .Navigate("https://www.sonomanma.co.jp")) > Exit Sub > End If 上記の追加コードを入力したところエラーがなくなりました。 アドバイスありがとうございます。 > >ログインしてるかしてないかの判断(if文)できればいいのですが > .Document.Body.InnerText 内にそのユーザー名があるかを調べれば解ります。 > If .Document.Body.InnerText.IndexOf("ユーザー名") >= 0 Then のように こちらに関してもなんとか調べ試行錯誤しましたら、出来ました。 花ちゃんさん、ここまでアドバイスを頂きありがとうございました。 まだまだVBに関しての知識やノウハウは少ないですが、ここのサイトを最大利用し身につけていきたいと思います。本当にありがとうございました。 |