Italian Invocara Web Servivce SOAP

<definitions targetNamespace="http://ibbs_f_x0ws_sincro_device.ws.localhost/" name="SitepainterSOAPController"><types><xsd:schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://ibbs_f_x0ws_sincro_device.ws.localhost/"><xsd:element name="ibbs_f_x0ws_sincro_device_Run"><xsd:complexType><xsd:sequence><xsd:element name="m_UserName" type="xsd:string" minOccurs="1" maxOccurs="1"/><xsd:element name="m_Password" type="xsd:string" minOccurs="1" maxOccurs="1"/><xsd:element name="m_Company" type="xsd:string" minOccurs="1" maxOccurs="1"/><xsd:element name="p_XML" type="xsd:string" minOccurs="1" maxOccurs="1"/></xsd:sequence></xsd:complexType></xsd:element><xsd:element name="ibbs_f_x0ws_sincro_device_RunResponse"><xsd:complexType><xsd:sequence><xsd:element name="return" type="xsd:string" minOccurs="0"/></xsd:sequence></xsd:complexType></xsd:element></xsd:schema></types><message name="ibbs_f_x0ws_sincro_device_Run"><part name="parameters" element="tns:ibbs_f_x0ws_sincro_device_Run"/></message><message name="ibbs_f_x0ws_sincro_device_RunResponse"><part name="parameters" element="tns:ibbs_f_x0ws_sincro_device_RunResponse"/></message><portType name="ibbs_f_x0ws_sincro_deviceWS"><operation name="ibbs_f_x0ws_sincro_device_Run"><input name="ibbs_f_x0ws_sincro_device_Run" message="tns:ibbs_f_x0ws_sincro_device_Run"/><output name="ibbs_f_x0ws_sincro_device_RunResponse" message="tns:ibbs_f_x0ws_sincro_device_RunResponse"/></operation></portType><binding name="ibbs_f_x0ws_sincro_deviceWSPortBinding" type="tns:ibbs_f_x0ws_sincro_deviceWS"><soap:binding transport="http://schemas.xmlsoap.org/soap/http" style="document"/><operation name="ibbs_f_x0ws_sincro_device_Run"><soap:operation soapAction=""/><input name="ibbs_f_x0ws_sincro_device_Run"><soap:body use="literal"/></input><output name="ibbs_f_x0ws_sincro_device_RunResponse"><soap:body use="literal"/></output></operation></binding><service name="ibbs_f_x0ws_sincro_deviceWSService"><port name="ibbs_f_x0ws_sincro_deviceWSPort" binding="tns:ibbs_f_x0ws_sincro_deviceWSPortBinding"><soap:address location="http://192.168.9.171:8080/INDIAF23/servlet/ibbs_f_x0ws_sincro_device"/></port></service></definitions>

Sub WS_invoke_syncro_device(user As String, pass As String, azienda As String, xml As String)
   
   Dim job1, job2, job3 As HttpJob
    job1.Initialize("Job1", Me)
    
    'Send a GET request
    job1.Download2("http://192.168.9.171:8080/INDIAF23/servlet/ibbs_f_x0ws_sincro_device?wsdl", _
        Array As String("m_UserName", user, "m_Password", pass, "m_Company", azienda, "p_XML", xml))
   
   
   'Send a POST request
'   job2.Initialize("Job2", Me)   
'   job2.PostString("http://mioserver/servlet/ibbs_f_x0ws_sincro_device?wsdl", _
'       "m_UserName=" & user & "m_Password="& pass & "m_Company="& azienda & "p_XML="& xml)
'   
End Sub

Sub JobDone (Job As HttpJob)
   Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    If Job.Success = True Then
        Select Job.JobName
            Case "Job1", "Job2"
            'print the result to the logs
                Log(Job.GetString2("UTF8"))
            Log(Job.Username)
            Log(Job.Password)
            Log(Job.)
        End Select
    Else
        Log("Error: " & Job.ErrorMessage)
        ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub

Sub WS_Invoke(device As String, flsync As String)
   ' URL
   Dim endPoint As String
    Dim requestSoapXML As String
    endPoint = WS_URL
   
    ' dichiarazione variabili e tag cdata
    Dim user, password, azienda, pxml As String
    Dim CDATA_OPEN As String
   CDATA_OPEN = "<![CDATA["
   Dim CDATA_CLOSE As String
   CDATA_CLOSE = "]]>"
   Dim xml_build As String
   
   
   ' build xml
   Dim x As XMLBuilder
   x = x.create("XML_DEVICE")
   x = x.element("DEVICE").attribute("ID_DEV", device).attribute("FLSYNC", flsync) _
        .up() _
    .up()
   Log(x.asString)
   xml_build = x.asString
   
   
   
   'parametri
    user = "valore.."
    password = "valore.."
   azienda = "valore.."
   pxml = CDATA_OPEN & xml_build & CDATA_CLOSE
   
   Log(pxml)
   
   'RICHIESTA SOAP
    requestSoapXML = _
         "<?xml version='1.0' encoding='utf-8'?>" & _ 
         "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:ibbs='http://ibbs_f_x0ws_sincro_device.ws.localhost/'>" & _
                  "<soapenv:Header/>" & _
                  "<soapenv:Body>" & _
                  "<ibbs:ibbs_f_x0ws_sincro_device_Run>" & _
                  "<ibbs:m_UserName>"&user&"</ibbs:m_UserName>" & _
                  "<ibbs:m_Password>"&password&"</ibbs:m_Password>" & _
                  "<ibbs:m_Company>"&azienda&"</ibbs:m_Company>" & _
                  "<ibbs:p_XML>"&pxml&"</ibbs:p_XML>" & _
                 "</ibbs:ibbs_f_x0ws_sincro_device_Run>" & _
               "</soapenv:Body>" & _
         "</soapenv:Envelope>"
         
    Log(requestSoapXML)
   
    ' richiesta al ws
   webRequest.InitializePost2(endPoint, requestSoapXML.GetBytes("UTF-8"))
   'webRequest.InitializePost(endPoint, requestSoapXML, 1)
   webRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")
   webRequest.SetHeader("SOAPAction", "")
   
   ' imposto il timer che permette la completa esecuzione del WS
    webRequest.Timeout = 60000 
   
   webClient.Initialize("webClient")
    If webClient.Execute(webRequest, 1) = False Then Return
   
End Sub

Sub webClient_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    
   Dim resultSoapXML As String
    resultSoapXML = Response.GetString("UTF8")
    Log("Success : " & resultSoapXML)   
   
End Sub

Sub webClient_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
    
   Dim resultSoapXML As String
    resultSoapXML = Response.GetString("UTF8")
    Log("Error : " & resultSoapXML)
    Log("Reason: " & Reason)
    Log("StatusCode: " & StatusCode)
End Sub