Me.TextBox1.MaxLength = Integer.MaxValue

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fic As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString & "diccionario.lst"
        Dim sr1 As New System.IO.StreamReader(fic)
        Dim texto As String
 
        TextBox3.Text = fic
        Label1.Text = ""
        texto = sr1.ReadToEnd()
        sr1.Close()
        TextBox1.Text = texto
 
    End Sub

    Private passFilepath As String = Path.Combine(Application.StartupPath, "diccionario.lst")
    Private passwordList As IEnumerable(Of String)
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.Load
 
        Me.LoadDefaults()
 
    End Sub
 
    Private Sub LoadDefaults()
 
        Me.Label1.ResetText()
        Me.tb_PassFilepath.Text = Me.passFilepath
 
        Try
            Me.passwordList = Me.GetPasswordList(Me.passFilepath)
 
        Catch ex As Exception
            Throw
 
        End Try
 
        With Me.tb_PasswordList
            .MaxLength = Integer.MaxValue
            .SuspendLayout()
            .Text = String.Join(ControlChars.NewLine, Me.passwordList)
            .ResumeLayout()
        End With
 
    End Sub
 
    ''' <summary>
    ''' Gets the password list.
    ''' </summary>
    ''' <param name="passFilepath">The passwords filepath.</param>
    ''' <returns>IEnumerable(Of System.String).</returns>
    Private Iterator Function GetPasswordList(ByVal passFilepath As String) As IEnumerable(Of String)
 
        Using sr As New StreamReader(passFilepath, Encoding.Default)
 
            Do Until sr.EndOfStream
                Yield sr.ReadLine
            Loop
 
        End Using
 
    End Function

Imports System.ComponentModel
Imports System.Data

    Public Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
 
        If File.Exists(tb_PassFilepath.Text) Then
            ' ...
            sText = Split(tb_PasswordList.Text, vbCrLf)
            textBox_pass.Text = sText(i)
            ' ...
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(URL), HttpWebRequest)
            ' ...
            If DirectCast(response, HttpWebResponse).StatusCode = HttpStatusCode.Redirect Then
                ' ...
            Else
                i += 1
                ' ...
                button1.PerformClick()
            End If
 
        Else
            ' ...
        End If
 
    End Sub
 

    Public Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles button1.Click
 
        Me.TestPasswordList(Me.passwordList)
 
    End Sub
 
    Private Sub TestPasswordList(ByVal passwordList As IEnumerable(Of String))
 
        Dim cookies As CookieContainer = Nothing
 
        For Each password As String In passwordList
 
            If Me.TestPassword(password, cookies) Then
                Me.ReportSuccessPassword(password)
                Exit Sub
            End If
 
        Next password
 
        Me.ReportFailedPassword()
 
    End Sub
 
    ''' <summary>
    ''' Tests the current password.
    ''' </summary>
    ''' <param name="password">The password.</param>
    ''' <param name="cookies">The byreferred cookie container.</param>
    ''' <returns><c>true</c> if password successful, <c>false</c> otherwise.</returns>
    Private Function TestPassword(ByVal password As String,
                                  ByRef cookies As CookieContainer) As Boolean
 
        ' tus llamadas a los métodos de las querys para testear el password actual, aquí.
        Me.SetCookies(cookies)
        Dim response As HttpWebResponse = Me.GetLoginResponse(cookies)
        ' etc...
 
        Return (response.StatusCode = HttpStatusCode.Redirect)
 
    End Function
 
    Private Sub SetCookies(ByRef cookies As CookieContainer)
 
        If cookies Is Nothing Then
            cookies = New CookieContainer
            ' tu query para setear el contenedor de cookies aquí.
        Else
            ' salgo, dando por hecho que la sesión de la cookie no haya expirado.
            Exit Sub
        End If
 
    End Sub
 
    Private Function GetLoginResponse(ByVal cookies As CookieContainer) As HttpWebResponse
 
        ' tu query POST de login aquí.
        Return DirectCast(response, HttpWebResponse)
 
    End Function
 
    Private Sub ReportSuccessPassword(ByVal password As String)
 
        MessageBox.Show(String.Format("Contraseña aceptada: ""{0}""", password), Me.Text,
                        MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    End Sub
 
    Private Sub ReportFailedPassword()
 
        MessageBox.Show("Ninguna contraseña aceptada.", Me.Text,
                        MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
    End Sub

Dim loginURL As String = "https://www.facebook.com/login.php?login_attempt=1"
request...
response...

ListItem currentItem = ((DropDownList)sender).SelectedItem;
 
ViewState["idNombre"] = Convert.ToInt32(currentItem);

        With Me.ProgressBar1
            .Style = ProgressBarStyle.Marquee
            .MarqueeAnimationSpeed = 50
        End With

Imports System.Globalization
Imports System.IO
Imports System.Text
 
Public Class TestForm
 
    ReadOnly backupDirDateFormat As String =
        Date.Today.ToString("yyyy\\MM\\ddMMyyyy", CultureInfo.InvariantCulture)
 
    ReadOnly dbFilenameDateFormat As String =
        Date.Now.ToString("ddMMyyyy_HH\H\Hmm\M\M", CultureInfo.InvariantCulture)
 
    ReadOnly sourceDir As String = "D:\ruta\backup"
    ReadOnly backupDir As String = Path.Combine(Me.sourceDir, Me.backupDirDateFormat)
    ReadOnly dbSrcFilepath As String = Path.Combine(Me.backupDir, String.Format("basede datos-{0}.backup", Me.dbFilenameDateFormat))
    ReadOnly dbDstFilepath As String = Path.Combine(Application.StartupPath, "Nombre del backup")
 
    ReadOnly pgFilepath As String = "C:\Archivos de programa\PostgreSQL\9.3\bin\pg_dump.exe"
    ReadOnly pgPassword As String = String.Empty
    ReadOnly pgArgsFormat As String =
        <a>--host "localhost" --port "5432" --username "siscolsi" --format "custom" --blobs --verbose --file "{0}" "{1}"</a>.Value
 
    Private WithEvents pgProcess As New Process With
        {
            .EnableRaisingEvents = True,
            .StartInfo = New ProcessStartInfo With
                         {
                             .FileName = Me.pgFilepath,
                             .Arguments = String.Format(Me.pgArgsFormat, Me.dbSrcFilepath, Me.dbDstFilepath),
                             .CreateNoWindow = False,
                             .RedirectStandardError = True,
                             .RedirectStandardOutput = True,
                             .StandardErrorEncoding = Encoding.Default,
                             .StandardOutputEncoding = Encoding.Default,
                             .UseShellExecute = False,
                             .WindowStyle = ProcessWindowStyle.Hidden,
                             .WorkingDirectory = Application.StartupPath
                         }
        }
 
    Private Sub TestForm_Load() _
    Handles MyBase.Load
 
        If Not Directory.Exists(Me.sourceDir) Then
            Try
                Directory.CreateDirectory(Me.sourceDir)
 
            Catch ex As Exception
                Throw
 
            End Try
        End If
 
        With Me.pgProcess
            .Start()
            .BeginOutputReadLine()
            .BeginErrorReadLine()
            ' .WaitForExit(milliseconds:=0)
            .WaitForExit()
        End With
 
    End Sub
 
    Private Sub PGprocess_OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) _
    Handles pgProcess.OutputDataReceived
 
        If Not String.IsNullOrEmpty(e.Data) Then
            Debug.WriteLine(String.Format("out: {0}", e.Data))
        End If
 
    End Sub
 
    Private Sub PGprocess_ErrorDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) _
    Handles pgProcess.ErrorDataReceived
 
        If Not String.IsNullOrEmpty(e.Data) Then
            Debug.WriteLine(String.Format("err: {0}", e.Data))
        End If
 
    End Sub
 
    Private Sub PGprocess_Exited(ByVal sender As Object, ByVal e As EventArgs) _
    Handles pgProcess.Exited
 
        Debug.Print(String.Format("Process exited at {0}", Date.Now.ToShortTimeString))
 
    End Sub
 
End Class