使VB浏览器成为Facebook的状态

时间:2014-11-05 16:43:27

标签: facebook vba

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

    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出现。提前感谢您的帮助。

P.S - 为了将来参考,您是如何找到此按钮的ID的? "如果你给一个饥饿的人一条鱼,他就会被填满;教他钓鱼,然而他再也不会饿了#34; - 匿名

0 个答案:

没有答案