Como Conseguir Clicar Num Elemento HTML Através Da Class

[Guest Pazap Tutors]

Olá, eu estou a criar um programa para postar em grupos do facebook. Mas para conseguir clicar num botão, preciso que o web browser faça isso pela class, pois o ID é random.

Espero que me ajudem!

[apocsantos]

Bom dia,

For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
If Element.OuterHtml.Contains("ClasseName") Then
Element.InvokeMember("click")
return
End If
Next Element

Cordiais cumprimentos,

Apocsantos

[Guest Pazap Tutors]

Bem, eu já testei e não resultou. O objetivo era postar em grupos do facebook! Se puder ajudar novamente agradecia que o fizesse!

 

Obrigado Pela Atenção, Pazap Tutors

[apocsantos]

Boa noite,

Troca o classname, pelo nome da classe em questão.

Cordiais cumprimentos,

Apocsantos

[Guest Pazap Tutors]

Foi mesmo isso que eu fiz e infelizmente não resultou!

[Rui Carlos]

Tentar usar um debugger para perceber qual é o problema do código que te foi indicado.  Não é a dizeres que não resultou que alguém vai adivinhar em que é que o teu programa está a falhar.

[Guest Pazap Tutors]

Eu coloquei o código no evento do botão e alterei a ClassName para a class em questão. Logo em seguida executei o programa para testar e, quando clico no botão, simplesmente não acontece nada nem um erro!

Public Class Form1
    '================================'
    'Isto é só um formulário de teste'
    '================================'

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Site Do navegador'
        WebBrowser1.Navigate("https://www.facebook.com/groups/511333882410468/")
    End Sub

    Private Sub bnt_msg_Click(sender As System.Object, e As System.EventArgs) Handles bnt_msg.Click
        'Evento do Botão: bnt_msg'
        For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
            If Element.OuterHtml.Contains("_1mf7 _4jy0 _4jy3 _4jy1 _51sy selected _42ft") Then
                Element.InvokeMember("Click")
                Return
            End If
        Next Element
    End Sub

End Class

[apocsantos]

Bom dia,

Experimenta usar o debuger do vs e os breakpoints para ver o que está a falhar.

Cordiais cumprimentos,

Apocsantos

[Guest Pazap Tutors]

Bem, eu utilizei os Breakpoints e cheguei a uma conclusão:

O programa não está a encontrar a class, logo a linha de código que faz o programa clicar no elemento não é executada.

'Evento Do Botão'

        For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("a")
            If Element.OuterHtml.Contains("_332r") Then

 				 Element.InvokeMember("Click") '<--Esta Linha de Código não é executada'

                Return
            End If
        Next Element

Espero que me continue a ajudar! Obrigado!

[apocsantos]

Boa noite,

'Evento Do Botão'

For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("<div") ''tag html a ser pesquisada, para depois pesquisar os elementos
            If Element.OuterHtml.Contains("_332r") Then

 				 Element.InvokeMember("Click") '<--Esta Linha de Código não é executada'

                Return
            End If
        Next Element

Não tenho a certeza se vai dar, pois não estou com tempo para testar, mas testa e experimenta trocar a tag html a ser pesquisada.

Cordiais cumprimentos,

Apocsantos

[Guest Pazap Tutors]

Bem, isso também não funcionou, porém já não preciso dessa função! Obrigado a todos por me terem ajudado. 

Ainda não irei encerrar o tópico pois a dúvida ainda não foi corretamente respondida.

 

Boa sorte a todos e bons código!