webbrowser InvokeMember("click")

Question

Olá

Estou tentando clicar automaticamente em um botão:

<input type="submit" value="Search" class="knp">

mas não está funcionando.

Meu código:

 Try
            Dim theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
            For Each curElement As HtmlElement In theElementCollection
                If curElement.GetAttribute("value").Equals("Search") Then
                    curElement.InvokeMember("click")
                    MessageBox.Show("Concluído!!")
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

O atributo "Search" é encontrado e a mensagem "Concluído!!" é exibida, no entanto o "InvokeMember("click")" não funciona.

Quem puder me ajudar, desde já agradeço.

Answer 1

Eliseu5

Alguma informação de erro adicional(código de erro sendo exibido)?

Atenciosamente

---

Marcos Roberto de Souza Junior

Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

MSDN Community Support

Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

Answer 2

Boa tarde Eliseu5,

É mais ou menos nesse sentido que você precisa

 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If TextBox1.Text = 50 Then
            Me.Button1.Focus()
            SendKeys.Send("{ENTER}")

        End If
    End Sub

Atenciosamente, Roberto Alves

Answer 3

Olá Marcos

Obrigado pela ajuda.

Nenhum erro aparece, o valor é encontrado, a mensagem de concluído surge mas o InvokeMember parece não ter efeito.

Answer 4

Olá

Gente agora tanto

WebBrowser1.Document.Forms(0).InvokeMember("submit")

quanto

SendKeys.Send("{ENTER}")

funcionam.

Criei um novo projeto e surgiu uma mensagem de segurança do Internet Explorer. Como em meu projeto atual eu estava com "ScriptErrorsSuppressed = True" o alerta não aparecia e a página ficava praticamente travada.

Vou criar um novo tópico, vlw.