Авторизация на сайте через post запрос

Dim request1 As HttpWebRequest = HttpWebRequest.Create("http://forum.minecraft-galaxy.ru/main/")
        Dim request As HttpWebRequest = HttpWebRequest.Create("http://forum.minecraft-galaxy.ru/login.php")
        request1.Method = "POST"
        request1.Accept = "..."
        request1.UserAgent = "..."
        request1.ContentType = "."
        request1.Referer = "http://forum.minecraft-galaxy.ru/guilogin/"
        request.Method = "POST"
        request.Accept = "..."
        request.UserAgent = "...."
        request.ContentType = "..." 
        request.Referer = "http://forum.minecraft-galaxy.ru/guilogin/" 'всякие поля, которые я заполняю 
        Dim data As String = "login=...&pass=..." 'логин и пароль
        Dim writer As New StreamWriter(request.GetRequestStream(), Encoding.Default)
        writer.Write(data)
        writer.Close()
        Dim stream As Stream = request.GetResponse().GetResponseStream()
        Dim reader As New StreamReader(stream, Encoding.Default)
        Dim response As String = reader.ReadToEnd
        request.Abort()
 
        Dim Request2 As HttpWebRequest = HttpWebRequest.Create("") 'ссылка для работы 2 части программы
        Dim Response2 As HttpWebResponse
        Request2.Method = "POST"
        Request2.AllowAutoRedirect = False
 
        Dim reqString As String = "form=&invite=&user=..." 'user - кого инвайтить
        Dim requestData As Byte() = Encoding.Default.GetBytes(reqString)
 
        Using s As Stream = Request2.GetRequestStream()
            s.Write(requestData, 0, requestData.Length)
        End Using
        Response2 = Request2.GetResponse

Dim Request2 As HttpWebRequest = HttpWebRequest.Create("") 'ссылка для работы 2 части программы
        Dim Response2 As HttpWebResponse
        Request2.Method = "POST"
        Request2.AllowAutoRedirect = False
 
        Dim reqString As String = "form=&invite=&user=..." 'user - ник пользователя
        Dim requestData As Byte() = Encoding.Default.GetBytes(reqString)
 
        Using s As Stream = Request2.GetRequestStream()
            s.Write(requestData, 0, requestData.Length)
        End Using
        Response2 = Request2.GetResponse

For Each h As HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("input")
            h.GetAttribute("value").Equals("имя_кнопки")
            h.InvokeMember("click")
        Next

For Each h As HtmlElement In WebBrowser1.Document.Body.GetElementsByTagName("input")
     If h.GetAttribute("value").Equals("имя_кнопки") Then
          h.InvokeMember("click")
     End if
Next

Dim attr As Object = h.getAttribute("Class")
If Not attr Is Nothing AndAlso attr.Equals("btn") Then
    'вызов клика / проверка нужна для того, чтобы не получить исключения при отсутствии такого атрибута, ведь не все элементы имеют атрибут Class
End If

Public Function YouCodes_Post(ByVal url As String, ByVal data As String) As String
        Dim cook = New CookieContainer()
        'ServicePointManager.Expect100Continue = False
        Dim request = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.CookieContainer = cook
        request.Method = "POST"
        request.ContentType = "application/x-www-form-urlencoded"
        Using requestStream = request.GetRequestStream()
            Using writer = New StreamWriter(requestStream)
                writer.Write(data)
            End Using
        End Using
        Using responseStream = request.GetResponse().GetResponseStream()
            Using reader = New StreamReader(responseStream)
                Dim result = reader.ReadToEnd()
                Return result
            End Using
        End Using
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = YouCodes_Post("куда отправить запрос (сайт)", "данные для отправки") 'отправляем запрос, получаем исходный код страницы
    End Sub

Public _loginCookie As CookieContainer
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim postdata As String = "form=&ref=http%3A%2F%2Fforum.minecraft-galaxy.ru%2Fmain%2F&login=тут логин&pass=тут пароль"
        Dim tempCookies As New CookieContainer
        Dim encoding As New UTF8Encoding
        Dim bytedata As Byte() = encoding.GetBytes(postdata)
        Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://forum.minecraft-galaxy.ru/login.php"), HttpWebRequest)
        postReq.Method = "POST"
        postReq.KeepAlive = True
        postReq.CookieContainer = tempCookies
        postReq.ContentType = "application/x-www-form-urlencoded"
        postReq.UserAgent = "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
        postReq.Referer = "Referer: http://forum.minecraft-galaxy.ru/main/"
        postReq.ContentLength = bytedata.Length
        Dim postreqststream As Stream = postReq.GetRequestStream()
        postreqststream.Write(bytedata, 0, bytedata.Length)
        postreqststream.Close()
        Dim postresponse As HttpWebResponse
        postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
        _loginCookie = tempCookies
        Dim postreqreader As New StreamReader(postresponse.GetResponseStream, System.Text.Encoding.UTF8)
        Dim thepage As String = postreqreader.ReadToEnd()
        postresponse.Close()
        postreqreader.Close()
        postreqststream.Close()
        RichTextBox1.Text = thepage
    End Sub

Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions
 
Public Class SiteProcessor
 
Private CookieContainer As New CookieContainer
 
Public ReadOnly Property CookieHeader As String
  Get
    Return CookieContainer.GetCookieHeader(Options.CookieUri)
  End Get
End Property
 
Protected Async Function GetHtmlPageByGet(ByVal Url As String) As Task(Of String)
  Dim Request As HttpWebRequest = WebRequest.Create(Url)
  Dim SetCookie As String
 
  With Request
    .Method = WebRequestMethods.Http.Get
    .CookieContainer = CookieContainer
    Using Response As HttpWebResponse = Await .GetResponseAsync()
      With Response
        SetCookie = .Headers("Set-Cookie")
        If Not String.IsNullOrEmpty(SetCookie) Then CookieContainer.SetCookies(Options.CookieUri, SetCookie)
        Using ResponseStream As Stream = .GetResponseStream()
          Using Reader As New StreamReader(ResponseStream, Options.SiteEncoding)
            Return Await Reader.ReadToEndAsync()
          End Using
        End Using
      End With
    End Using
  End With
End Function
 
Protected Async Function GetHtmlPageByPost(ByVal Url As String, ByVal Data As Dictionary(Of String, String), Optional ByVal AllowAutoRedirect As Boolean = True) As Task(Of String)
  Dim Request As HttpWebRequest = WebRequest.Create(Url)
  Dim DataStr As String = String.Join("&", From Kvp In Data Select Uri.EscapeUriString(Kvp.Key) & "=" & Uri.EscapeUriString(Kvp.Value))
  Dim BinData As Byte() = Options.SiteEncoding.GetBytes(DataStr)
  Dim SetCookie As String
 
  With Request
    .Method = WebRequestMethods.Http.Post
    .AllowAutoRedirect = AllowAutoRedirect
    .CookieContainer = CookieContainer
    .ContentType = "application/x-www-form-urlencoded"
    .ContentLength = BinData.Length
    .GetRequestStream().Write(BinData, 0, BinData.Length)
    Using Response As HttpWebResponse = Await .GetResponseAsync()
      With Response
        SetCookie = .Headers("Set-Cookie")
        If Not String.IsNullOrEmpty(SetCookie) Then CookieContainer.SetCookies(Options.CookieUri, SetCookie)
        Using ResponseStream As Stream = .GetResponseStream()
          Using Reader As New StreamReader(ResponseStream, Options.SiteEncoding)
            Return Await Reader.ReadToEndAsync()
          End Using
        End Using
      End With
    End Using
  End With
End Function
 
Public Async Function LoginAsync(ByVal User As String, ByVal Password As String) As Task
  Await GetHtmlPageByPost(Options.SiteUrl & "/login.php", New Dictionary(Of String, String) From {{"usrname", User}, {"passwrd", Password}, {"login", "Войти"}}, False)
End Function
 
End Class

Dim postdata As String = "form=&ref=http%3A%2F%2Fforum.minecraft-galaxy.ru%2Fmain%2F&login=тут логин&pass=тут пароль"

check=данные&texttospel=TextBox1.Text&sendtospel=данные(2)