[vb6] simple gaia auto poster

The login is outdated for there is no reason at all I should up date it...

' Simple Auto Poster for gaiaonline by Chad of LogicalGamers



Option Explicit

Dim StrHTML As String

Dim StrNonce As String

Dim i As Integer



Private Sub ChkHide_Click()

    If ChkHide.Value = Checked Then

        txtPassword.PasswordChar = "*"

    Else

        txtPassword.PasswordChar = ""

    End If

End Sub



Private Sub CmdLogin_Click()

    If txtUsername.Text = (vbNullString) Then

        MsgBox ("Please input a username for the username field!"), vbInformation, ("Fail")

        Exit Sub

    End If

    

    If txtPassword.Text = (vbNullString) Then

        MsgBox ("Please input a password for the password field!"), vbInformation, ("Fail")

        Exit Sub

    End If

    

    CmdLogin.Enabled = False

    txtUsername.Enabled = False

    txtPassword.Enabled = False

    ChkHide.Enabled = False

    

    StrHTML = Wrapper.PostWrapper("login.gaiaonline.com/gaia/login.php", "username=" & txtUsername.Text & "&password=" & txtPassword.Text & "&frob=&token=&redirect=http%3A%2F%2Fwww.gaiaonline.com%2F&chap=", "http://www.gaiaonline.com")

    If InStrB(1, StrHTML, "Location: http://www.gaiaonline.com/?login_success=1") Then

        lblStatus.Caption = ("Status: Logged in")

        CmdStart.Enabled = True

    Else

        lblStatus.Caption = ("Status: Loggin Failed")

        txtUsername.Enabled = True

        txtPassword.Enabled = True

        CmdLogin.Enabled = True

        ChkHide.Enabled = True

    End If

    

End Sub



Private Sub CmdStart_Click()

    CmdStart.Enabled = False

    CmdStop.Enabled = True

    

    If txtThread.Text = (vbNullString) Then

        MsgBox ("Please enter a thread ID!"), vbInformation, ("Error")

        Exit Sub

    End If

    

    If txtMessage.Text = (vbNullString) Then

        MsgBox ("Please enter a message!"), vbInformation, ("Error")

        Exit Sub

    End If

    

    TmrPost.Enabled = True

End Sub



Private Sub CmdStop_Click()

    CmdStop.Enabled = False

    CmdStart.Enabled = True



    TmrPost.Enabled = False

    TmrWait.Enabled = False

End Sub





Private Sub TmrPost_Timer()



    i = 70

    lblStatus.Caption = ("Status: Navigating...")

    

    StrHTML = Wrapper.GetWrapper("http://www.gaiaonline.com/forum/compose/entry/new/" & txtThread.Text)

    StrHTML = Replace(StrHTML, Chr(34), "'")

    StrNonce = GetStringBetween(StrHTML, "nonce' value='", "' />")

    

    lblStatus.Caption = ("Status: Posted 1/2")

    

    StrHTML = Wrapper.PostWrapper("http://www.gaiaonline.com/forum/compose/entry/new/" & txtThread.Text, "message=" & txtMessage.Text & "&nonce=" & StrNonce & "&action_submit=submit")

    lblStatus.Caption = ("Status: Posted 2/2")

    

    TmrWait.Enabled = True

    TmrPost.Enabled = False

    

End Sub



Private Sub TmrWait_Timer()

    i = i - Val(1)

    lblStatus.Caption = ("Status: Waiting " & i & " Seconds")

    

    If i >= "0" Then

        TmrWait.Enabled = False

        i = "70"

    End If

End Sub

Download:Here

Ill re-write the VB6 gaia login and release it. Iv already re-written it in php. So has arti. They didnt change much.

Sk8er wrote:

Ill re-write the VB6 gaia login and release it. Iv already re-written it in php. So has arti. They didnt change much.

No need to, i have an encrypted login i fixed and they rolled back the update were the login needs to be encrypted so the old one still works.

Chad wrote:

No need to, i have an encrypted login i fixed and they rolled back the update were the login needs to be encrypted so the old one still works.

Yea, lol, arti told me that they rolled back after i posted the post so.

I havnt made a gaia program in a while. Been working on some other stuff.

Me and Alex had a long talk last night about possible bot ideas and stuff. Do you have any?

So uhmmm, does this work??

If you set it up correctly in visual basic 6 it does. That's if you know how to program.

Okay, then I'm guessing it won't work for me. Haha. Wanna make a tut on how to use this for me?

Maybe later, kinda busy right now.

Err. Alright. PM me whenever I guess.

Im planning on writing a tutorial on submitting post data.

Bro is wont download for me for some reason

Should. It's coming directly off of my own site.