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