[Zeitgo]

So guys the "js_5" script is obviously not working so guys how the hell do i make the bot i am making just find the comment box the bot works this way

1. login to facebook
2. insert permalink - automove to permalink in webbrowser
3. select time between comments
4. comment a prewritten comment saved in a textbox to the permalink / facebook status
5. loop the timer until press stop or close program

i cant seem to find the ID of how to comment
like when logging in its easy as ("email") and ("pass")
but there comes in js in the facebook comment box
and i cant find the right ID of how i make the bot comment -_-

anyone help please

Code

Public Class sjalfupp

    Dim logintakki As Boolean
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    End Sub

    Private Sub sjalfupp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  WebBrowser1.Navigate("http://www.facebook.com/login.php")
  ListBox1.Items.Add("18000")
  logintakki = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  logintakki = True
  Try
    WebBrowser1.Document.GetElementById("email").SetAttribute("value", TextBox5.Text)
    WebBrowser1.Document.GetElementById("pass").SetAttribute("value", TextBox6.Text)
    WebBrowser1.Document.GetElementById("login").InvokeMember("click")
  Catch ex As Exception
  End Try
  Label1.Text = ("Innskráður")

    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
  WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  Do
    Timer1.Enabled = True
    Timer1.Start()
    WebBrowser1.Navigate(TextBox1.Text)
    WebBrowser1.Document.GetElementById("js_5").InnerText = (TextBox2.Text)
    SendKeys.Send("{Enter}")
  Loop
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  Timer1.Enabled = False
  Stop
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Timer1.Interval = ListBox1.SelectedItem
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  Close()
    End Sub

End Class

[Charles Carmichael]

cant you do something like

Code

WebBrowser1.Document.GetElementById("u_0_1q").SetAttribute("value", (TextBox1.Text))

i think that way u can get something into the text box now to get it to actually post im not sure

maybe not sure though sorry if this isnt right

[Zeitgo]

please can someone bring me an update

[Sutton2k9]

I've not looked into it but maybe far easier to use a web request