Chciałbym wysłać SOAP do chomikuj.pl , nie potrafię tego zrobić i chciałbym wiedzieć co robię źle.
Taki kod stworzyłem do tej pory (hasło jest w MD5):
Dim manualWebClient As New System.Net.WebClient()
manualWebClient.Headers.Add("SOAPAction", "http://chomikuj.pl/IChomikBoxService/Auth")
manualWebClient.Headers.Add("Content-Type", "text/xml;charset=utf-8")
manualWebClient.Headers.Add("User-Agent", "Mozilla/5.0")
' Note: don't put the <?xml... tag in--otherwise it will blow up with a 500 internal error message!
Dim bytArguments As Byte() = System.Text.Encoding.ASCII.GetBytes( _
"<s:Envelope xmlns:s=""http://schemas.xmlsoap.org/soap/envelope/"">" & System.Environment.NewLine & _
"<s:Body>" & System.Environment.NewLine & _
"Auth xmlns=""http://chomikuj.pl/"">" & System.Environment.NewLine & _
"<name>[email protected]</name>" & System.Environment.NewLine & _
"<passHash>" + MD5(password) + "</passHash>" & System.Environment.NewLine & _
"<ver>4</ver>" & System.Environment.NewLine & _
"<client>" & System.Environment.NewLine & _
"<name>chomikbox</name>" & System.Environment.NewLine & _
"<version>2.0.4.3</version>" & System.Environment.NewLine & _
"</client>" & System.Environment.NewLine & _
"</Auth>" & System.Environment.NewLine & _
"</s:Body>" & System.Environment.NewLine & _
"</s:Envelope>")
Dim bytRetData As Byte() = manualWebClient.UploadData("http://box.chomikuj.pl/services/ChomikBoxService.svc", "POST", bytArguments)
MsgBox(System.Text.Encoding.ASCII.GetString(bytRetData))