Hulp bij Code nodig

[luck7]

Hallo

Ik heb een code geschreven die op een website in een aantal textboxen waardes ingeeft.
dat werkt.

daarna moet de code 1x de Tabulator drukken en dan 1x op enter zodat de eerste textbox wordt geselecteerd en dan de ingegeven waardes worden verstuurd.

het gekke is alleen dat dat allemaal wel werkt, maar pas nadatik ik 2X de button die de code uitvoert heb geklikt.

kan iemand even kijken. ik zou niet weten waar het aan ligt.

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Webbrowser1.Focus()
        Webbrowser1.Navigate("http://lost-worlds.net/buildings.php?mode=fleet")
        TimerTest.start()

    End Sub

    Private Sub TimerTest_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerTest.Tick

        On Error Resume Next
        If Webbrowser1.ReadyState = WebBrowserReadyState.Complete Then
            Webbrowser1.Document.GetElementById("fmenge[202]").SetAttribute("value", My.Settings.Planet1LT)
            Webbrowser1.Document.GetElementById("fmenge[203]").SetAttribute("value", My.Settings.Planet1BT)
            Webbrowser1.Document.GetElementById("fmenge[204]").SetAttribute("value", My.Settings.Planet1LJ)
            Webbrowser1.Focus()
            SendKeys.SendWait("{TAB}")
            SendKeys.SendWait("{Enter}")
            TimerTest.Stop()
        End If

        Exit Sub
    End Sub

het opnieuw laten starten van de timer door nog een 2de timer toe te voegen die na bv 5sec. de eerste timer weer aanzet werkt ook niet.
ook een
button3.performclick()
aan het eind van de code niet.

en als ik 2 x klik werkt het alleen als ik tussendoor niet in de webbrowser1 heb geklikt.

bvd
Luck

 

[luck7]

Anyway.
ik heb het nu anders opgelost.
De submit button onderaan heeft geen naam. daarom dat gedoe met de tab en enter, maar dat heb ik nu anders opgelost:

TimerTest.Stop()
            For Each Unit As HtmlElement In Webbrowser1.Document.All
                If Unit.GetAttribute("value") = "Absenden" Then
                    Unit.InvokeMember("click")
                End If
            Next

inplaats van dat de naam wordt gebruikt (wat er zo uit zou zien):
Webbrowser1.Document.GetElementById("submit").InvokeMember("click")

heb ik dit gebruikt:

  For Each Unit As HtmlElement In Webbrowser1.Document.All
            If Unit.GetAttribute("value") = "Absenden" Then
                Unit.InvokeMember("click")
            End If
        Next