.net Facebook自动类和机器人的自动评论

需要源代码为facebook自动喜欢和自动评论使用vb.net，到目前为止，我们只创建了自动登录

我们登录的源代码是：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fb_button.Click
    Dim fb_button As String = Nothing
    For Each element As HtmlElement In WebBrowser1.Document.All
        If InStr(element.Id, "u_0_b") Then
            fb_button = element.Id
        End If
    Next
    WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
    WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)

    WebBrowser1.Document.GetElementById(fb_button).InvokeMember("click")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.Navigate("https://www.facebook.com/")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fb_button.Click
    Dim fb_button As String = Nothing
    For Each element As HtmlElement In WebBrowser1.Document.All
        If InStr(element.Id, "u_0_b") Then
            fb_button = element.Id
        End If
    Next
    WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox1.Text)
    WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox2.Text)

    WebBrowser1.Document.GetElementById(fb_button).InvokeMember("click")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    WebBrowser1.Navigate("https://www.facebook.com/")
End Sub