WEBSERVICE

Citação:

Dim NfeStatusServico As New NfeStatusServico2Soap12Client
Dim nfeCabecMsg As New nfeCabecMsg
Dim t_xml As New XmlDocument
Dim t_xmlretorno As String

Dim store As New X509Store([Ô]My[Ô], StoreLocation.CurrentUser)
store.Open(OpenFlags.OpenExistingOnly)
Dim oCertif = store.Certificates(3) [ô]Certificado 3
store.Close()

NfeStatusServico.ClientCredentials.ClientCertificate.Certificate = oCertif

nfeCabecMsg.versaoDados = [Ô]2.00[Ô]
nfeCabecMsg.cUF = [Ô]35[Ô]

Dim nfeDadosMsg As New XmlDocument

nfeDadosMsg.LoadXml([Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consStatServ xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]><tpAmb>1</tpAmb><cUF>35</cUF><xServ>STATUS</xServ></consStatServ>[Ô])

Try
t_xmlretorno = NfeStatusServico.nfeStatusServicoNF2(nfeCabecMsg, nfeDadosMsg).OuterXml

MessageBox.Show(t_xmlretorno)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try