auto poster source code

[shaunyboy]

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.


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

[vbNeo]

try putting

at the start of your code

and

at the end - it will make your syntax get highlighted.


*Edit - Changed what Si suggested*

[si_the_geek]

:lol:

what vbNeo meant was:

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


(neo - put inside tags you want to display as text, I used [VBCode] )

[vbNeo]

Do'H

Thanks Si! Nice tip =).

[da_silvy]

i think vb3 removes "dead" tags D:

[Madboy]

What was the actual thread about again?

[manavo11]

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

Read the first post :rolleyes: