Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1
    Dim cookieCon As New CookieContainer
    Dim request As HttpWebRequest
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        request = DirectCast(HttpWebRequest.Create( _
          "http://uploaded.net/io/login"), HttpWebRequest)
        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:20.0)" & _
          "Gecko/20100101 Firefox/20.0"
        request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
        request.Host = "uploaded.net"
        request.Referer = "http://uploaded.net/"
        request.Accept = "text/javascript, text/html, application/xml," & _
          "text/xml, */*"
 
        Dim post As String = "id=UserID&pw=UserPW"
 
        Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
        request.ContentLength = byteArr.Length
 
        Dim dataStream As Stream = request.GetRequestStream()
        dataStream.Write(byteArr, 0, byteArr.Length)
 
        Dim response As HttpWebResponse = DirectCast(request.GetResponse(), _
          HttpWebResponse)
 
        request = DirectCast(HttpWebRequest.Create("http://uploaded.net/me"), _
          HttpWebRequest)
 
        request.CookieContainer = cookieCon
 
        Dim reader As New StreamReader(response.GetResponseStream())
        Dim seitenQuelltext As String = reader.ReadToEnd()
 
        response = DirectCast(request.GetResponse(), HttpWebResponse)
        reader = New StreamReader(response.GetResponseStream())
        seitenQuelltext = reader.ReadToEnd()
 
        Dim bla As StreamWriter = New StreamWriter("PfadfürQuelltext.txt")
        bla.WriteLine(seitenQuelltext)
        bla.Close()
 
        If seitenQuelltext.Contains("Logout") Then
            MessageBox.Show("Erfolgreich")
        Else
            MessageBox.Show("Nicht erfolgreich")
        End If
 
 
    End Sub
End Class