VBレスキュー(花ちゃん) の Visual Basic 2010 用掲示板(VB.NET 掲示板)

タイトル： WebBrpwser内で自動ログインを【修正】

投稿日： 2012/08/23(Thu) 17:25

投稿者： VBレスキュー(花ちゃん)

2012/08/24 9:55 修正
> 上のコードで試したところやはり再度開こうとするとエラーが表示されます。

詳しい状況及び状況を確認できるコードを掲載して頂かないと解りません。

念の為に、会員登録して調べてみたら、特別な処理をしているようです。
(ログイン状態からログイン画面(URL)を呼び出すと違う画面が表示される等)

下記の部分を追加して見て下さい。

   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 のように

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

WebBrpwser内で自動ログインを

Arms

No.10897

Re: WebBrpwser内で自動ログインを - VBレスキュー(花ちゃん) 12/08/19-09:10 No.10898
- Re^2: WebBrpwser内で自動ログインを - Arms 12/08/20-12:44 No.10899
  - Re^3: WebBrpwser内で自動ログインを - Arms 12/08/21-11:02 No.10900
    - Re^4: WebBrpwser内で自動ログインを - VBレスキュー(花ちゃん) 12/08/21-12:19 No.10901
      - Re^5: WebBrpwser内で自動ログインを - Arms 12/08/21-17:58 No.10902
        
        Re^6: WebBrpwser内で自動ログインを - VBレスキュー(花ちゃん) 12/08/22-00:23 No.10903
        
        Re^7: WebBrpwser内で自動ログインを - Arms 12/08/22-10:38 No.10906
        
        Re^6: WebBrpwser内で自動ログインを - Arms 12/08/22-09:14 No.10904
        
        Re^7: WebBrpwser内で自動ログインを - Arms 12/08/22-09:16 No.10905
        
        Re^8: WebBrpwser内で自動ログインを - VBレスキュー(花ちゃん) 12/08/22-12:06 No.10908
        
        Re^9: WebBrpwser内で自動ログインを - Arms 12/08/23-16:43 No.10909
        
        WebBrpwser内で自動ログインを【修正】 - VBレスキュー(花ちゃん) 12/08/23-17:25 No.10910
        
        Re: WebBrpwser内で自動ログインを【修正】 - Arms 12/08/24-14:02 No.10911

タイトル	： WebBrpwser内で自動ログインを【修正】
投稿日	： 2012/08/23(Thu) 17:25
投稿者	： VBレスキュー(花ちゃん)

古いスレッドにレスはつけられません。