Results 1 to 3 of 3

[VB] How to ban people from TC auth

This is a discussion on [VB] How to ban people from TC auth within the Tutorials forums, part of the Programming category; People been being an ass to you? Here is a simple tweek to the auth that I did to get ...

  1. #1
    Restless is offline Banned
    Join Date
    Jul 2010
    Posts
    114

    Default [VB] How to ban people from TC auth

    People been being an ass to you? Here is a simple tweek to the auth that I did to get rid of people. This isn't the only way to do this, so please feel free to experiment.

    Code:
    Public Class Form1
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            WebBrowser1.Navigate("http://www.truecheaters.com/forums/tcauth.php?user=" & TextBox1.Text & "&pass=" & TextBox2.Text)
        End Sub
    
        Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
            If WebBrowser1.DocumentText.Contains("0") = True Then
                If TextBox1.Text = "Alenah" = True Then
                    MessageBox.Show("You have been banned, if you would like to resolve this issue, please contact Restless")
                    Me.Close()
                ElseIf TextBox1.Text = "Alenah" = False Then
                    MessageBox.Show("Auth passed. Enjoy the bot!")
                    Me.Hide()
                End If
            End If
            If WebBrowser1.DocumentText.Contains("0") = False Then
                MessageBox.Show("Auth failed. Please subscribe to True Cheaters!")
                Me.Close()
            End If
        End Sub
    End Class
    This is the only thing I changed:

    Code:
    If WebBrowser1.DocumentText.Contains("0") = True Then
                If TextBox1.Text = "Alenah" = True Then
                    MessageBox.Show("You have been banned, if you would like to resolve this issue, please contact Restless")
                    Me.Close()
                ElseIf TextBox1.Text = "Alenah" = False Then
                    MessageBox.Show("Auth passed. Enjoy the bot!")
                    Me.Hide()
                End If
            End If
    If the auth passes, but that username is in the textbox, it will stop them from using the bot and close it. I'm assuming this will work. I am in a different usergroup that doesn't allow me to pass the TC sub auth. If you have any questions, please ask.

  2.   Alt These ads help cover server costs and such.


  3. #2
    soccer18soccer18 is offline Subscriber
    Join Date
    Jul 2009
    Posts
    434

    Default

    I don't know how to do this in VB but would it just be something like before the auth part:

    If username = fagthatihate
    Exitapp (close program)

    Edit: nevermind that's what u did. It's just a lot longer looking in VB

  4. #3
    Join Date
    Feb 2010
    Posts
    102

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Facebook Bots | Admin Forum