[vb6] simple gaia auto poster
The login is outdated for there is no reason at all I should up date it...
PHP Code:
' 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
