request = DirectCast(Net.HttpWebRequest.Create( _
   "http://www.youtube.com/subscription_ajax?action_create_subscription_to_cha" & _
   "nel=1&c=UCnOVVuoLJ_1YY8A0V802wHA"), Net.HttpWebRequest)
        request.Method = "POST"
        request.CookieContainer = cookieCon
        request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:30.0)" & _
          "Gecko/20100101 Firefox/30.0"
        request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
        request.Host = "www.youtube.com"
        request.Accept = _
          "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        request.AllowAutoRedirect = True
        'request.AutomaticDecompression = DecompressionMethods.GZip
        'request.ServicePoint.Expect100Continue = True
 
        Dim post As String = "session_token=" & session_token
 
        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 Net.HttpWebResponse = DirectCast(request.GetResponse(), _
          Net.HttpWebResponse)
 
        Dim reader As New StreamReader(response.GetResponseStream(), _
          System.Text.Encoding.Default)
        seitenQuelltext = reader.ReadToEnd()

 Dim response As Net.HttpWebResponse = DirectCast(request.GetResponse(), _
   Net.HttpWebResponse)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist