Post Race!

[dday9]

arbelkasim (47)

[dday9]

ccengine (46)

[dday9]

ssr (40)

[dday9]

sanjays (34)

[dday9]

Mimo (33)

[dday9]

SWLin (33)

[dday9]

xlumination (32)

[dday9]

illigan (31)

[dday9]

SuReKiLL (29)

[dday9]

barathan_k (29)

[dday9]

scorpion12345_2 (29)

[dday9]

Mridul (29)

[dday9]

ds-reid

[dday9]

N30 (27)

[dday9]

vbNeo(26)

[dday9]

RapchikProgrammer (24)

[dday9]

smallbadad (23)

[dday9]

schinis (22)

[dday9]

rahayu_dwi (18)

[dday9]

I have 97 more post to pass up chrisjk.

[dday9]

And only 201 to pass up ghost ryder.

[dday9]

For post As Integer = 0 to 200
   VBForums.QuickReply = post.ToString()
   VBForums.PostQuickReply()
Next

VBForums.QuickReply = "I passed up ghost ryder!"
VBForums.PostQuickReply()

Ahh, if only.

[dday9]

Actually.... I probably could.

[dday9]

Hold on one second.

[Niya]

HTTP POST FTW :d

[Niya]

I wonder if in 10+ years of this thread anybody else thought of that!

[Niya]

Excellente!!

[dday9]

0000

[dday9]

Yes! That last post proves how easy it is to make an auto typer program.

[dday9]

Option Strict On
Option Explicit On
Public Class VBForums

    Private ele_txt As HtmlElement
    Public Property QuickReplyTextBox() As HtmlElement
        Get
            Return ele_txt
        End Get
        Set(ByVal value As HtmlElement)
            ele_txt = value
        End Set
    End Property

    Private ele_btn As HtmlElement
    Public Property QuickReplyButton() As HtmlElement
        Get
            Return ele_btn
        End Get
        Set(ByVal value As HtmlElement)
            ele_btn = value
        End Set
    End Property

    Private _val As String
    Public Property Value() As String
        Get
            Return _val
        End Get
        Set(ByVal value As String)
            _val = value
        End Set
    End Property

    Public Sub SetText()
        If IsNothing(_val) OrElse _val = String.Empty OrElse IsNothing(ele_txt) Then
            Throw New NullReferenceException()
        Else
            ele_txt.SetAttribute("value", _val)
        End If
    End Sub

    Public Sub PostQuickReply()
        If IsNothing(_val) OrElse _val = String.Empty OrElse IsNothing(ele_btn) Then
            Throw New NullReferenceException()
        Else
            ele_btn.InvokeMember("click")
        End If
    End Sub

End Class

[dday9]

Option Strict On
Option Explicit On
Public Class Form1

    Private Sub PostButton_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Enabled = Not (Timer1.Enabled)
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        'Button ID - qr_submit
        'Textbox Attributes:
        '                    Tab Index = 1
        '                    Role = Textbox
        '                    Dir = ltr
        '                    Parent ID = cke_contents_vB_Editor_QR_editor

        Dim wb As WebBrowser = DirectCast(Me.Controls("WebBrowser1"), WebBrowser)

        'Get parent
        Dim parent_textbox As HtmlElement = wb.Document.GetElementById("cke_contents_vB_Editor_QR_editor")
        Dim text_box As HtmlElement = Nothing

        'Get all elements in parent
        For Each el As HtmlElement In parent_textbox.All
            'Check if the element matches the textbox attributes
            If el.TabIndex = 1 AndAlso el.GetAttribute("role") = "textbox" Then
                'If so then set textbox
                text_box = el
            End If
        Next

        'New instance of VBForums
        Dim vb As New VBForums
        With vb
            .QuickReplyTextBox = text_box
            .QuickReplyButton = wb.Document.GetElementById("qr_submit")
        End With

        'Loop <x> amount of times
        Static post As Integer = 0
        Dim str As String = post.ToString

        'Atleast four letters:
        Select Case post
            Case Is < 10
                str = "000" & post.ToString
            Case Is < 100
                str = "00" & post.ToString
            Case Is < 1000
                str = "0" & post.ToString
        End Select

        'Set value
        vb.Value = str
        vb.SetText()

        'Post
        vb.PostQuickReply()

        post += 1

        If post = 200 Then
            Timer1.Enabled = False
            post = 0
        End If
    End Sub

End Class

[dday9]

Man, this would've been great to do the birthdays!

[dday9]

All I do is set the interval to 31000.

[dday9]

I guess I could have globally declared VBForums and set the properties in the button's click.

[dday9]

I wasn't really focusing on efficiency.

[Jacob Roman]

Blast Processing all over dday!!!



...wait that didnt sound right

[dday9]

Haha! I took it all in!

[Jacob Roman]

Haha! I took it all in!

Ewww its all sticky and warm o.O

[Jacob Roman]

If you want more information on building a Sega Genesis Emulator in either VB6 or VB.Net, please subscribe to this thread as I will have updates and new information daily. Were building this baby from scratch from the ground up

Lets Make a Sega Genesis Emulator (VB6 & VB.Net)

[Jacob Roman]

And no its not spam

...or is it