Consumir webservice

Bom dia pessoal,


Estou precisando criar uma rotina para consumir o webservice do TJSC

o endereço de homologação é este:

http://selo.tjsc.jus.br/SeloServiceTeste?wsdl

Dentre as funções, existe a chamada "getSelos" e a resposta "getSelosResponse"

Como posso enviar o getSelos e obter a resposta em XML?

O webservice pede somente os parâmetros usuário(user) e senha(pass), que

para o ambiente de testes são respectivamente "cartorio" e "selodigital"

Se alguém puder ajudar, desde já agradeço.

Sds,

Dá uma olhada se ele link pode te ajudar:


http://msdn.microsoft.com/en-us/library/office/aa140260(v=office.10).aspx


Abs  

Você pode usar esse código

Código:



Function RequicaoHTTP(ByVal strSite As String, Metodo As MetodosRequisicao, Optional parametros As Variant) As String

On Error GoTo ErrorHandler

Dim XMLHttpRequest As New MSXML2.XMLHTTP60 '.ServerXMLHTTP
Dim strMetodo As String

If Metodo = GetEnum Then strMetodo = "GET"
If Metodo = PostEnum Then strMetodo = "POST"

With XMLHttpRequest
    .Open strMetodo, strSite, False
    .send parametros
End With

RequicaoHTTP = CStr(XMLHttpRequest.responseText)

FecharRequisicao:
Set XMLHttpRequest = Nothing
Exit Function

End Function



Exemplo de uso


Sub TestarInternet()

Debug.Print RequicaoHTTP("https://www.ondetemfazendariogrande.com", GetEnum, "")

End Sub


Antes de usar precisa fazer referência à esta biblioteca

Boa tarde. Galera estou precisando de ajuda com essa situação também. Alguém tem algum passo-a-passo de como integrar o Access a um webservice (via VBA), no meu caso o da Central de Registro Civil - CRC (endereço de homologação: https://wsh.registrocivil.org.br/index2.cfm). Já estou há algum tempo procurando na net (inclusive em sites em inglês e espanhol), mas ainda não achei algo que servisse de "norte" pra mim. Agradeço desde já.

Olá Ivan Melo,

Pode completar o código, está a faltar talvez modulo classe "Metodo As MetodosRequisicao".

Abraço

chsestrem, as dicas ajudaram? Se sim, não esqueça de finalizar o tópico.