Tworzenie bota przeglądarkowego

[d'emploi]

WItam!

Tworzę bota przeglądarkowego, i wykorzystuję web browser. Utknąłem na przechwyceniu ID przycisku, który znajduje się chociażby przy logowaniu na MPC. Chodzi o przycisk "submit". 

Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Navigate("http://www.mpcforum.pl/")

    End Sub

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

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("sign_in").InvokeMember("click")
        WebBrowser1.Document.GetElementById("ips_username").InnerText = "LOGIN"
        WebBrowser1.Document.GetElementById("ips_password").InnerText = "HASLO"
        WebBrowser1.Document.GetElementById("submitt").InvokeMember("click")

    End Sub
End Class

To co jest na czerwono nie działa. Przechwytywanie ID nie działa w tym przypadku, gdyz przycisk submit nie ma okreslonego id a jest to jakas forma. Mozecie mi pomoc w rozszyfrowaniu tego przycisku?

[d'emploi]

Udało się

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Navigate("http://www.mpcforum.pl/")
        Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
        WebBrowser1.Document.GetElementById("sign_in").InvokeMember("click")
        WebBrowser1.Document.GetElementById("ips_username").InnerText = "********"
        WebBrowser1.Document.GetElementById("ips_password").InnerText = "***********"




        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All


        For Each webpageelement As HtmlElement In allelements
            'value="Zaloguj się"


            If webpageelement.GetAttribute("value") = "Zaloguj się" Then


                webpageelement.InvokeMember("Click")


            End If


        Next
    End Sub
End Class