使VB浏览器成为Facebook状态

我正在尝试制作一个vb脚本来登录我的facebook并更新我的状态。问题是，提交按钮没有一个ID，我可以通过Chrome的页面信息找到它。到目前为止，我的剧本是：

    Try
        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText("pathtotext") ' I sensoored my path
        fileReader2 = My.Computer.FileSystem.ReadAllText("pathtotext") 'I sensored my path
        WebBrowser1.Document.GetElementById("email").SetAttribute("value", fileReader2)
        WebBrowser1.Document.GetElementById("pass").SetAttribute("value", fileReader)
        WebBrowser1.Document.GetElementById("loginbutton").InvokeMember("click")
    Catch ex As Exception
        WebBrowser1.Document.GetElementById("u_0_10").SetAttribute("value", "Can I make a   status?")
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
    End Try

除了“提交”按钮，所有这些都有效。我使用了“提交”，因为这是类型，没有显示ID。提前谢谢你的帮助

另外，为了将来的参考，你是如何找到这个按钮的id的？“如果你给一个饥饿的人一条鱼，他就会饱足；但是，教他钓鱼，他就再也不会挨饿了。”《匿名》

你可以用这个

Dim htmlElements As HtmlElementCollection = WebBrowser1.Document.All
        For Each ClickOnElementButton As HtmlElement In htmlElements
            If ClickOnElementButton.InnerText = "Post" Then
                ClickOnElementButton.InvokeMember("click")
            End If
        Next

---

您可以通过选择文本并单击文本编辑器中的

{}

按钮来格式化代码，而不是使用旧代码。这将使代码更容易阅读。。。。