Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'vystavit požadavek na dnešní den
 
        Dim rq As HttpWebRequest = HttpWebRequest.Create("http://www.eurovea.com/sk/sutaze-a-ponuky/foto-sutaz/hlasovanie/?auth&id_photo=261")
 
        'sestavit data
        Dim data As String = "sbmt=Submit&id_photo=261&lang=sk&name=" + Web.HttpUtility.UrlEncode("Richard Palopičč") + "&email=" + Web.HttpUtility.UrlEncode("blazek48@gmail.com") + Web.HttpUtility.UrlEncode("&xxx=Odosla%C5%A5+%C2%BB")
        Dim bytes() As Byte = System.Text.Encoding.ASCII.GetBytes(data)    'převést data na bajty v kódování ASCII 
 
        'poslat je na server
        rq.Method = "POST"    'nastavit metodu POST
        rq.ContentLength = bytes.Length       'nastavit Content-Length na počet bajtů dat
        rq.GetRequestStream().Write(bytes, 0, bytes.Length)    'zapsat data do streamu
 
        'odeslat jej na server a získat odpověď
        Dim rs As HttpWebResponse = rq.GetResponse()
 
        'dále s odpovědí pracujeme jako normálně
 
        'přečíst stream až do konce
        Using sr As New IO.StreamReader(rs.GetResponseStream())
            'vypsat odpověď
            TextBox2.Text = sr.ReadToEnd()
        End Using
 
        'zavřít spojení
        rs.Close()
    End Sub