auto poster source code

heres some code i wrote.... it works for vbulettin forums with the quick post box enabled, and with a bit of tweaking, will work for any forum.

VB Code:

Sub timeout(S%)
Dim Start
Start = now
While DateDiff("s", Start, now) <= S
DoEvents
Wend
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
WebBrowser1.Navigate (TextBox2.Text)
j = TextBox1.Text
k = TextBox3.Text
For i = k To j
ListBox1.AddItem (i)
Next i
On Error Resume Next
Do Until ListBox1.ListCount = 0
timeout (4)
On Error Resume Next
WebBrowser1.Document.all("message").Value = ListBox1.List(0)
On Error Resume Next
WebBrowser1.Document.all("SUBMIT").Click
On Error Resume Next
ListBox1.RemoveItem (0)
On Error Resume Next
timeout (31)
On Error Resume Next
Loop
If ListBox1.ListCount = 0 Then
MsgBox ("done")
End
End If
End Sub

try putting

[VBCode] at the start of your code

and

[/VBCode] at the end - it will make your syntax get highlighted.


*Edit - Changed what Si suggested*

:lol:

what vbNeo meant was:

try putting [VBCode] at the start of your code and [/VBCode] at the end - it will make your syntax get highlighted.


(neo - put [b][/b] inside tags you want to display as text, I used [VBCo[b][/b]de] )

Do'H

Thanks Si! Nice tip =).

i think vb3 removes "dead" tags D:

What was the actual thread about again?

Quote:

---

Originally posted by Madboy
What was the actual thread about again?

---

Read the first post :rolleyes: