none
webbrowser InvokeMember("click") RRS feed

  • Pergunta

  • 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.

    quarta-feira, 2 de dezembro de 2015 11:37

Respostas

  • 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

    • Marcado como Resposta Marcos SJ quarta-feira, 2 de dezembro de 2015 19:25
    quarta-feira, 2 de dezembro de 2015 15:08
  • 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.

    • Editado Eliseu5 quarta-feira, 2 de dezembro de 2015 17:36
    • Marcado como Resposta Eliseu5 quarta-feira, 2 de dezembro de 2015 17:36
    quarta-feira, 2 de dezembro de 2015 17:27

Todas as Respostas

  • 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.

    quarta-feira, 2 de dezembro de 2015 13:55
  • 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

    • Marcado como Resposta Marcos SJ quarta-feira, 2 de dezembro de 2015 19:25
    quarta-feira, 2 de dezembro de 2015 15:08
  • 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.

    quarta-feira, 2 de dezembro de 2015 17:08
  • 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.

    • Editado Eliseu5 quarta-feira, 2 de dezembro de 2015 17:36
    • Marcado como Resposta Eliseu5 quarta-feira, 2 de dezembro de 2015 17:36
    quarta-feira, 2 de dezembro de 2015 17:27