1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
request = CType(WebRequest.Create(Url), HttpWebRequest)
request.Credentials = hcredential
request.ContentType = "application/atom+xml; type=entry "
MsgBox(post)
request.ContentLength = post.Length
request.Method = "POST"
request.AllowAutoRedirect = False
Dim requestStream As Stream = request.GetRequestStream()
Dim postBytes As Byte() = Encoding.UTF8.GetBytes(post)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
response = CType(request.GetResponse, HttpWebResponse)
MsgBox(response)
Return New StreamReader(response.GetResponseStream()).ReadToEnd() |
Partager