Dim login_tubeload As String = Req("http://tubeload.to/", _
              "sUsername=vbparadise&sPassword=vbparadise&login_submit=", _
              "POST", "tubeload.to")
            Dim source_tubeload As String = Req("http://tubeload.to/manager", _
            "", "POST", "tubeload.to")
            Dim guthaben_tubeload As String = get_tubeloadmoney(source_tubeload)
            lbl_tubeloadmoney.Text = guthaben_tubeload
 
        Private Cookies As System.Net.CookieContainer = New CookieContainer
        Private Function Req(ByVal Site As String, ByVal P As String, ByVal _
          Method As String, ByVal Host As String) As String
            Dim CookieCount As Double = 0
            Dim R As HttpWebRequest = HttpWebRequest.Create(Site)
 
            R.Method = Method
            R.ServicePoint.Expect100Continue = False
            R.CookieContainer = Cookies
            R.Host = Host
            R.MaximumAutomaticRedirections = 20
            R.AllowAutoRedirect = True
            R.Referer = ""
            R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1;" _
              & _
              "de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
            R.ContentType = "application/x-www-form-urlencoded"
            Dim Post As String = P
            R.ContentLength = Post.Length
            Dim writer As New IO.StreamWriter(R.GetRequestStream(), _
              System.Text.Encoding.ASCII)
            writer.Write(Post)
            writer.Close()
 
            Dim Response As HttpWebResponse = DirectCast(R.GetResponse, _
              HttpWebResponse)
            Response.Cookies = R.CookieContainer.GetCookies(R.RequestUri)
            Dim Reader As IO.StreamReader = New IO.StreamReader( _
              Response.GetResponseStream)
            Dim SourceCode As String = Reader.ReadToEnd()
            Debug.Print(SourceCode)
            Reader.Close()
 
            For Each SetCookie As Cookie In Response.Cookies
                Debug.Print(SetCookie.Name)
            Next
 
            Return SourceCode
        End Function