[vb6] simple gaia auto poster

[Chad]

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

[MattSmith]

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

[Chad]

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.

[MattSmith]

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.

[Chad]

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

[Coak]

So uhmmm, does this work??

[Chad]

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

[Coak]

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

[Chad]

Maybe later, kinda busy right now.

[Coak]

Err. Alright. PM me whenever I guess.

[Scrubs]

My friend Brian helped me w/ this,
but now I need a tutorial, because he hasn't
re-registered for lg yet D:

[MattSmith]

Im planning on writing a tutorial on submitting post data.

[oKING]

Bro is wont download for me for some reason

[Chad]

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