Usuário com melhor resposta
webbrowser InvokeMember("click")

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.
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
-
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.
Todas as Respostas
-
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.
-
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
-
-
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.