Post Race!

Quote:

---

Originally Posted by Niya

Well some of them are warriors.

---

I'm not complaining, they still have some huge knockers!

Quote:

---

Originally Posted by dday9

I'm not complaining, they still have some huge knockers!

---

Thank God for these small pleasures that big knockers bring :)

Quote:

---

Originally Posted by dday9

http://www.vbforums.com/

---

lol......

Quote:

---

Originally Posted by dday9

I wish I could tell how much memory this thread is taking up.

---

Presumable each image would be a Bitmap GDI object so multiply the number of images by their dimensions by their bit depth.

Birthday's

I'm definately not going to type out <name> turned <age> today!

That takes to long!

rikosintie

sailendra

AHarel

redhat_25

Jdjackson

half flung pie

cadillacdevon

naveeanr

J. D. Jackson (65)

Meeeeeeeeeeeeee (63)

AlfFlowers (58)

vbnt (57)

Zakk_wylde (48)

arbelkasim (47)

ccengine (46)

ssr (40)

sanjays (34)

Mimo (33)

SWLin (33)

xlumination (32)

illigan (31)

SuReKiLL (29)

barathan_k (29)

scorpion12345_2 (29)

Mridul (29)

ds-reid

N30 (27)

vbNeo(26)

RapchikProgrammer (24)

smallbadad (23)

schinis (22)

rahayu_dwi (18)

I have 97 more post to pass up chrisjk.

And only 201 to pass up ghost ryder.

Code:

---

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.

Actually.... I probably could.

Hold on one second.

HTTP POST FTW :d

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

Excellente!!

0000

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

Code:

---

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

---

Code:

---

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

---

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

All I do is set the interval to 31000.

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

I wasn't really focusing on efficiency.

Blast Processing all over dday!!! :bigyello:

http://www.vbforums.com/attachment.p...1&d=1375379023

...wait that didnt sound right :ehh:

Haha! I took it all in!

Quote:

---

Originally Posted by dday9

Haha! I took it all in!

---

Ewww its all sticky and warm o.O

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 :bigyello:

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

And no its not spam :ehh:

...or is it