Вызов Webservice из кода VB6 приводит к «Системный запрос неверен» Системная ошибка

Question

Вот мой код

Private Sub PassTXrecordtoGP(ByVal sopNum As String, ByVal WOnum As String, ByVal mustNumb As String)
Dim objXMLHTTP As MSXML2.XMLHTTP60
Dim sURL As String
Dim i As Integer

i = 1
For i = 1 To 3

If (Len("" & sopNum) = 0) Or (Len("" & WOnum) = 0) Or (Len("" & mustNumb) = 0) Then Exit For
sURL = "http://192.168.214.111/webservice/integration.asmx/PreauthMode2?WOnum=" & WOnum & "&masterNumber=" & mustNumb & "&invoiceNumber=" & sopNum
Set objXMLHTTP = New MSXML2.XMLHTTP60
objXMLHTTP.Open "POST", sURL, False

objXMLHTTP.Send

If InStr(1, objXMLHTTP.responceText, "success") > 0 Then   'webservice call is successful, No need to try 3 more times!
    Set objXMLHTTP = Nothing
    Exit For
Else
    Set objXMLHTTP = Nothing
    GoToSleep 2     'wait for 2 seconds and then retry again!
End If

Вот ошибка:

System.InvalidOperationException: Request format is invalid: .
at System.Web.Services.Protocols.HttpServerProtocol.ReadParameters()
at System.Web.Services.Protocols.WebServiceHandler.CoreProcessRequest()
status = 500: "Internal Server Error"

Что я делаю не так? Спасибо всем за помощь.

Answer 1

Похоже, это проблема со стороны сервера. Либо у вас неправильный адрес, либо сервер не знает, как ответить на ваш запрос, поскольку вы отправляете неверные параметры.

Попробуйте 'Get' вместо 'Post', так как вы отправляете свои параметры через строку запроса.

http://www.checkupdown.com/status/E500.html