[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