[ツリー表示へ] [ワード検索] [Home]
タイトル ： 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に関しての知識やノウハウは少ないですが、ここのサイトを最大利用し身につけていきたいと思います。本当にありがとうございました。 |
をクリックするとツリー全体を一括表示します） - WebBrpwser内で自動ログインを - Arms 12/08/18-18:13No.10897