.NET Making a VB Program - [Login Password Brute-Force]

Code

Imports System.Net

Imports System.Text

Imports System.IO



Public Class Form1



    Dim logincookie As CookieContainer



    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click



        Dim postdata As String = "username=" & TextBox1.Text & "&password=" & TextBox2.Text

        Dim tempcookies As New CookieContainer

        Dim encoding As New UTF8Encoding

        Dim bytedata As Byte() = encoding.GetBytes(postdata)



        Dim postrequest As HttpWebRequest = DirectCast(WebRequest.Create("https://website.com/login"), HttpWebRequest)



        postrequest.Method = "POST"

        postrequest.KeepAlive = "True"

        postrequest.CookieContainer = tempcookies

        postrequest.ContentType = "application/x-www-form-urlencoded"

        postrequest.Referer = "https://website.com/"

        postrequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Firefox/45.0"

        postrequest.ContentLength = bytedata.Length



        Dim postreqstream As Stream = postrequest.GetRequestStream()

        postreqstream.Write(bytedata, 0, bytedata.Length)





        Dim postresponse As HttpWebResponse



        Try



        Catch ex As Exception





        End Try

        postresponse = DirectCast(postrequest.GetResponse(), HttpWebResponse)









        tempcookies.Add(postresponse.Cookies)

        logincookie = tempcookies



        Dim postreqreader As New StreamReader(postresponse.GetResponseStream())





        Dim thepage As String = postreqreader.ReadToEnd



        RichTextBox1.Text = thepage



    End Sub



    Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted





    End Sub



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        WebBrowser1.DocumentText = RichTextBox1.Text

    End Sub



    Private Sub TabPage1_Click(sender As System.Object, e As System.EventArgs)



    End Sub



    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        Form2.Show()

    End Sub



    Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged





    End Sub



End Class

Code

Public Class Form2



    Dim streamer As IO.StreamReader



    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click



        OpenFileDialog1.ShowDialog()

        TextBox1.Text = OpenFileDialog1.FileName



    End Sub



    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

        streamer = IO.File.OpenText(TextBox1.Text)



        Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)



        ListBox1.Items.AddRange(mystring)

    End Sub

End Class