Integrar com VB6

[Ferretto]

Pessoal é o seguinte, estou pesquisando igual um doido mas não tenho nem idéia de como fazer isso...

Entrei em contato com a empresa que verificamos a situacao cadastral junto ao Serasa, e eles me passaram este script, mas não sei implantar ele no sistema, algém poderia me ajudar?

1-Endereço de Requisição

As requisições devem ser feitas através da seguinte URL

http://200.211.177.8:8082/wsok/Servicos.asmx?WSDL

1.1-LAY OUT – Entrada (Sintaxe):

<?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>

<OKBC xmlns="http://tempuri.org/">

<cpf_cnpj>string</cpf_cnpj>

<logon>string</logon>

<senha>string</senha>

</OKBC>

</soap:Body>

</soap:Envelope>

algém tem alguma idéia de como montar isso? vlw

Edited March 28, 2012 by Ferretto

[Ferretto]

Pessoal, Fiz isso, mas não está me retornando as informações necessárias, alguém poderia me ajudar?

AsmxUrl= "http://200.211.177.8:8082/wsok/Servicos.asmx?WSDL"

XmlBody= "<?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>" & _

"<OKBC xmlns=""http://tempuri.org/"">" & _

"<cpf_cnpj>" & CpfCnpj & "</cpf_cnpj>" & _

"<logon>" & Login & "</logon>" & _

"<senha>" & Senha & "</senha>" & _

"</OKBC>" & _

"</soap:Body>" & _

"</soap:Envelope>"

' 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

O problema é que não sei se o erro está no código para envio do vb6 ou a XML que estou usando... alguém sab fazer este exemplo do dreamweaver? ou até mesmo me mostrar onde estou errando.

vlw

[Ferretto]

galera, ninguém pode me ajudar com isso? não tenho nem idéia de onde estou errando...