Advertisement

03.29.2005 at 12:31PM PST, ID: 21368850
[x]
Attachment Details

VB.NET Http Post

[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.2
Tags:

post, http

Hi all!

I need to develop an VB.NET app that will make a POST request to an WEB Server.
Actualy, i have an ASP Script as an example of how could i be this post to my web server. The ASP code is show below:

<%
' Server URL, HTTPS
const strTangramURL = "https://tangram/scripts/tangram.asp"
' Service Code
const strServiceId = "015"
' User and Password that will be used to authenticate on the WEB Server
const strTangramUser = "user"
const strTangramPwd = "password"

' *********** Mount a XML that will be sent to the server ***********
' recupera o destinatário da mensagem
strDestination = Request("destination")
' recupera o texto da mensagem
strText = Request("text")      

' monta a string XML
strXML = _
"<xml version=""1.0"" encoding=""ISO-8859-1"">" & _
"<tangram_request service_id="" & strServiceId & "">" & _
"      <send>" & _
"            <destination>" & strDestination & "</destination>" & _
"            <text>" & strText & "</text>" & _
"      </send>" & _
"</tangram_request>"

' *********** envia ao TANGRAM ***********
' carrega a string XML par o componente
Set oDoc = CreateObject("MSXML2.DOMDocument")
oDoc.async = false
oDoc.loadXML strXML

' Here is where we connect to the server.....
Set oHttp = CreateObject("MSXML2.ServerXMLHttp")
oHttp.SetTimeouts 10000, 10000, 10000, 10000
oHttp.open "POST", strTangramURL, False, strTangramUser, strTangramPwd
oHttp.send oDoc
strXML = oHttp.responseText

' *********** Verify the Result***********
' recupera o código de retorno da operação
oDoc.loadXML strXML
strCode = oDoc. selectSingleNode("/tangram_response/send").attributes.getNamedItem("code").text
if strCode = "0" then
' redireciona para a página de sucesso
      Response.Redirect "sucesso.asp"
else
      ' recupera a descrição do erro
      strDescription = oDoc.selectSingleNode("/tangram_response/send/description").text
' redireciona para a página de erro
      Response.Redirect "erro.asp?msg=" & strDescription
end if

Set oDoc = Nothing
Set oHttp = Nothing
%>


So, can anybody shows me convert the ASP code above to a VB.NET method that will do the same thing?
Thanks all!
Answered By: gangwisch
Expert Since: 01/16/2004
Accepted Solutions: 200
gangwisch has been an Expert for 4 years 11 months, during which he has posted 643 comments and answered 200 questions. gangwisch is just one of 2737 experts in the Microsoft Visual Basic.Net Zone. 2 experts collaborated on this answer, which was graded a "B" by the asker.
 
 
20081119-EE-VQP-48