Question

我正在为一家需要自动执行类似Twitter的按钮的公司开发Twitter管理工具。

事实证明，我无法以任何方式使点击自动化。

有人对我该如何做有任何建议吗？

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

Answer 1

斯蒂芬

我根据该教程更新了Getattribute条款并修改了注册表中的app.exe参数。

代码仍然无法自动完成对Twitter之类的按钮的点击。

不过，谢谢您的关注。

私有子Button1_Click（作为对象发送，作为EventArgs发送）处理Button1.Click HtmlElementCollection = WebBrowser1.Document.All的暗淡分配对于每个网页元素，如在allelements中的HtmlElement 如果webpageelement.GetAttribute（“ className”）=“ css-1dbjc4n r-xoduu5”然后 webpageelement.InvokeMember（“ click”）万一下一个结束子

在Twitter上调用Click事件不起作用:(

1 个答案: