COMUNICACAO ENTRO O PROGRAMA E O NAVEGADOR

Private Sub Command1_Click()
    [ô] Start Internet Explorer and type in the url of your webservice page
    [ô] i.e.: http://localhost/myweb/mywebService.asmx
    [ô] In that page, click on the link to the method you want to call from your application
    [ô] Select in upper POST section the xml code from <?xml.. to </soap:Envelope>
    [ô] Copy this into the strXml variable, escape all quotes and replace [Ô]string[Ô] your parameter value
    [ô] Copy the url to your webservice page (asmx) to the strUrl variable
    [ô] Copy the SOAPAction value to the strSoapAction variable

    Dim strSoapAction As String
    Dim strUrl As String
    Dim strXml As String
    Dim strParam As String
    
    txtOutput.Text = [Ô][Ô]
    strParam = [Ô]MyParameterString[Ô]
    strUrl = [Ô]http://localhost/myweb/mywebService.asmx[Ô]
    strSoapAction = [Ô]http://tempuri.org/MyMethod[Ô]
    

    strXml = [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]utf-8[Ô][Ô]?>[Ô] & _
             [Ô]<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>[Ô] & _
             [Ô]<CheckActCode xmlns=[Ô][Ô]http://tempuri.org/[Ô][Ô]>[Ô] & _
             [Ô]<actCode>[Ô] & strParam & [Ô]</actCode>[Ô] & _
             [Ô]</CheckActCode>[Ô] & _
             [Ô]</soap:Body>[Ô] & _
             [Ô]</soap:Envelope>[Ô]

    [ô] Call PostWebservice and put result in text box
    Debug.Print PostWebservice(strUrl, strSoapAction, strXml)

End Sub

Private Function PostWebservice(ByVal AsmxUrl As String, ByVal SoapActionUrl As String, ByVal XmlBody As String) As String
    Dim objDom As Object
    Dim objXmlHttp As Object
    Dim strRet As String
    Dim intPos1 As Integer
    Dim intPos2 As Integer
    
    On Error GoTo Err_PW
    
    [ô] Create objects to DOMDocument and XMLHTTP
    Set objDom = CreateObject([Ô]MSXML2.DOMDocument[Ô])
    Set objXmlHttp = CreateObject([Ô]MSXML2.XMLHTTP[Ô])
    
    [ô] Load XML
    objDom.async = False
    objDom.loadXML XmlBody

    [ô] Open the webservice
    objXmlHttp.open [Ô]POST[Ô], AsmxUrl, False
    
    [ô] Create headings
    objXmlHttp.setRequestHeader [Ô]Content-Type[Ô], [Ô]text/xml; charset=utf-8[Ô]
    objXmlHttp.setRequestHeader [Ô]SOAPAction[Ô], SoapActionUrl
    
    [ô] Send XML command
    objXmlHttp.send objDom.xml

    [ô] Get all response text from webservice
    strRet = objXmlHttp.responseText
    
    [ô] Close object
    Set objXmlHttp = Nothing
    
    [ô] Extract result
    intPos1 = InStr(strRet, [Ô]Result>[Ô]) + 7
    intPos2 = InStr(strRet, [Ô]</[Ô])
    If intPos1 > 7 And intPos2 > 0 Then
        strRet = Mid(strRet, intPos1, intPos2 - intPos1)
    End If
    
    [ô] Return result
    PostWebservice = strRet
    
Exit Function
Err_PW:
    PostWebservice = [Ô]Error: [Ô] & Err.Number & [Ô] - [Ô] & Err.Description

End Function