Pasar parámetros por POST
Publicado por José María (1 intervención) el 11/01/2018 20:53:06
Tengo el siguiente código pero no me funciona cual puede ser el problema ?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim petHttp As HttpWebRequest
Dim resHttp As HttpWebResponse
Dim reader As StreamReader
Dim petBytes As Byte()
Dim escribir As Stream
Dim res As String
petHttp =HttpWebRequest.Create(url)
petHttp.Method = "POST"
petHttp.ContentType = "text/plain; charset=utf-8"
petBytes = Encoding.UTF8.GetBytes("format=l")
escribir = petHttp.GetRequestStream
escribir.Write(petBytes, 0, petBytes.Length)
escribir.Close()
resHttp = petHttp.GetResponse
reader = NewStreamReader(resHttp.GetResponseStream)
res = reader.ReadToEnd
Valora esta pregunta
0