ページが表示されたら実行の2回目以降について


散髪屋  2008-09-03 06:27:04  No: 140369

はじめまして、ページが表示されたら実行を下記のように使いたいのですが、1回目の記述のログインは成功するのですが、2回目の'テキスト4を入力が、うまくできません。おそらく、2回目のWebBrowser1.DocumentCompletedの記述を変えないといけないと思うのですがどのように変更すればよろしいでしょうか。よろしく  お願いします。

Public Class Form1
    Private Sub Form1_Load1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '文字列で指定したURLに飛ぶ
        WebBrowser1.Navigate("https://www.***.co.jp")
       
    End Sub
    'ページが表示されたら実行
    Private Sub WebBrowser1_DocumentCompleted1(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        '支店コードを入力 
        WebBrowser1.Document.All.GetElementsByName("***")(0).InnerText = TextBox1.Text
        '口座番号を入力 
        WebBrowser1.Document.All.GetElementsByName("***")(0).InnerText = TextBox2.Text
        'パスワードを入力
        WebBrowser1.Document.All.GetElementsByName("***")(0).InnerText = TextBox3.Text
        'ログイン
        WebBrowser1.Document.Forms(0).InvokeMember("submit")
    End Sub

    'ページが表示されたら実行
    Private Sub WebBrowser1_DocumentCompleted1(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 'テキスト4を入力
WebBrowser1.Document.All.GetElementsByName("MEIGARA_CODE")(0).InnerText = TextBox4.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


我龍院  2008-09-04 20:50:17  No: 140370

WebBrowser1.Document.Forms(0).InvokeMember("submit")
が完了した後で、
WebBrowser1.Document.All.GetElementsByName("MEIGARA_CODE")(0).InnerText = TextBox4.Text
を行いたという事ですよね。
フラグを使ってジョブを切り替えたらいかがですか。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加