myResponse = CType(myRequest.GetResponse(), HttpWebResponse)
            myStreamReader = New StreamReader(myResponse.GetResponseStream(), _
              Encoding.ASCII)
            sResponse = myStreamReader.ReadToEnd().Trim()

        Dim httpreq As HttpWebRequest = HttpWebRequest.Create( _
          "http://www.google.com/search?hl=en&q=w%C3%BCste")
 
        Dim httpresp As HttpWebResponse = CType(httpreq.GetResponse(), _
          HttpWebResponse)
 
        Dim ct As String = httpresp.Headers("Content-Type")
        Dim enc As System.Text.Encoding
 
        If Not String.IsNullOrEmpty(ct) Then
            Dim vals() As String = Split(ct.ToLower, "charset=")
            If vals.Length = 2 Then
                enc = System.Text.Encoding.GetEncoding(vals(1))
            End If
        End If
 
        If enc Is Nothing Then
            enc = System.Text.Encoding.Default
        End If
 
        Dim rdr As New IO.StreamReader(httpresp.GetResponseStream(), enc)
        Dim body As String = rdr.ReadToEnd().Trim()
        RichTextBox1.Text = body

________
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

________
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

myPostData = Encoding.GetEncoding("ISO-8859-1").GetBytes(myPostString)

________
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