[Source]How to make an Auto Poster.

Public Class Form1

    Inherits System.Windows.Forms.Form





    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.ReadOnly = True 'makes it so people cant change their options
        TextBox2.ReadOnly = True
        TextBox3.ReadOnly = True
        TextBox4.ReadOnly = True
        TextBox5.ReadOnly = True
        TextBox6.ReadOnly = True
        TextBox7.ReadOnly = True
        TextBox8.ReadOnly = True
        Timer1.Start()
        Button1.Enabled = False
        Button2.Enabled = False
    End Sub

    Sub Delay(ByVal dblSecs As Double) 'call a delay

        Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
        Dim dblWaitTil As Date
        Now.AddSeconds(OneSec)
        dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
        Do Until Now > dblWaitTil
            Application.DoEvents()
        Loop

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = "Timer re-loop"
        ListBox1.SelectedIndex = 0 'targets our first link
        WebBrowser1.Navigate(ListBox1.SelectedItem)
        Call Delay(3)
        Label1.Text = CStr(Int(Rnd() * 6)) 'generates a number from 0-6

        If Label1.Text = 0 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox2.Text())
        ElseIf Label1.Text = 1 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox3.Text())
        ElseIf Label1.Text = 2 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox4.Text())
        ElseIf Label1.Text = 3 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox5.Text())
        ElseIf Label1.Text = 4 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox6.Text())
        ElseIf Label1.Text = 5 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox7.Text())
        ElseIf Label1.Text = 6 Then
            WebBrowser1.Document.GetElementById("message").SetAttribute("value", TextBox8.Text()) 'posts data into the messagebox
        End If

        '^ the above acts upon generation, meaning if its a 0 it will send textbox2.text
        '^ if its a 1 it will do textbox3, and etc


        Call Delay(4)

        WebBrowser1.Document.GetElementById("sbutton").InvokeMember("click") 'submits it
        ListBox1.Items.RemoveAt(0) 'deletes the link it just posted a thread on
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.arguewitheveryone.com") 'the target
        Randomize() 'random number generator

        MsgBox("Please login first, didn't bother adding that feature, because of people saying I would e-mail it to my gmail.")
    End Sub
End Class