Вызов события Click не работает в твиттере :( - PullRequest
Новая
       13

Вызов события Click не работает в твиттере :(

0 голосов
/ 09 июня 2019

Я разрабатываю инструмент управления Твиттером для компании, которой необходимо автоматизировать кнопку «Мне нравится в Твиттере».

Оказывается, я никак не могу автоматизировать щелчок.

У кого-нибудь есть какие-либо предложения о том, как я могу это сделать? 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
        For Each webpageelement As HtmlElement In allelements
            ListBox1.Items.Add(webpageelement.GetAttribute("class"))
            If webpageelement.GetAttribute("class") = "css-1dbjc4n r-sdzlij r-1p0dtai r-xoduu5 r-1d2f490 r-xf4iuw r-u8s1d r-zchlnj r-ipm5af r-o7ynqc r-6416eg" Then
                webpageelement.InvokeMember("click")

            End If
        Next
    End Sub

1 Ответ

0 голосов
/ 09 июня 2019

Стивен,

Я обновил условия Getattribute и изменил параметры app.exe в реестре в соответствии с руководством.

Код по-прежнему не срабатывает при автоматизации нажатий на кнопки, похожие на твиттер.

Спасибо за внимание.

Private Sub Button1_Click (отправитель как объект, e как EventArgs) Обрабатывает Button1.Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All для каждой веб-страницыelement AsHtmlElement In Allements If webpageelement.GetAttribute ("className") = "css-1dbjc4n r-xoduu5" Затем webpageelement.InvokeMember ("click") Конец если следующий Конец Sub

...