Code-Bin #871

POST
Posted by: Ã…Â prici | October 1, 2010 @ 11:30am

VB.NET Code

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

Syntax Highlighting

[Open in new window]

Author Comments

none

Rating

4.64 / 8
59 Votes