Dim jobtest As HttpJob
Dim endPoint As String
Dim requestSoapXML As String
ProgressDialogShow("login...")
endPoint = WS_Url
requestSoapXML = _
"<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" & _
"<soap:Body>" & _
"<" & WS_Usertest & " xmlns='http://patrick.imbault.org/'>" & _
"<sLab>" & WS_Labo & "</sLab>" & _
"<sId>" & WS_sID & "</sId>" & _
"</" & WS_Usertest & ">" & _
"</soap:Body>" & _
"</soap:Envelope>"
Log(requestSoapXML )
jobtest.Initialize("jobtestuser",Me)
jobtest.PostString ( endPoint, requestSoapXML)
jobtest.GetRequest.SetHeader("SOAPAction", "http://patrick.imbault.org/" & WS_Usertest)
jobtest.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
jobtest.GetRequest.Timeout = 15000