Imports System.Net 
Imports System.Text 
Imports System.IO 
Public Class Form1 
Dim logincookie As CookieContainer 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click 
Dim postData As String = "referer=http%3A%2F%2Fdie-ebesucher.eu%2" & _
TextBox1.Text & "&nickname=" & TextBox2.Text & "&passwort=" & _
"%2$s&autologin=true&checkid=Login" 
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://www.die-ebesucher.eu"), HttpWebRequest) 
postReq.Method = "POST" 
postReq.KeepAlive = True 
postReq.CookieContainer = tempCookies 
postReq.ContentType = "application/x-www-form-urlencoded" 
postReq.Referer = "http://www.die-ebesucher.eu" 
postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3)" & _
  "Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)" 
postReq.ContentLength = byteData.Length 
Dim postreqstream As Stream = postReq.GetRequestStream() 
postreqstream.Write(byteData, 0, byteData.Length) 
postreqstream.Close() 
Dim postresponse As HttpWebResponse 
postresponse = DirectCast(postReq.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 Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click 
WebBrowser1.DocumentText = RichTextBox1.Text 
End Sub 
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal _
  e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
  WebBrowser1.DocumentCompleted 
End Sub 
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As _
  System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow 
e.Cancel = True 
End Sub 
End Class