Pesquisar na Comunidade
Showing results for tags 'visual basic'.
Encontrado 3 registros
-
Existem fontes do ACBr em Visual Basic ou somente em Delphy ? As DLL's funcionam bem com Visual Basic 6 ?
-
CONSUMIR WEBSERVICE DO SPC COM AUTENTICAÇÃO - VB6
um tópico no fórum postou Arlindo Pinheiro VB6 (ActiveX)
Amigos, boa tarde. Preciso enviar o XML para o WebService do SPC, mais ele precisa de usuário e senha para autenticar. Eu consigo testar pelo SoapUI sem problemas. Tenho o código abaixo, mais não estou sabendo onde informar o usuário e senha nos fontes do VB6. - Criando os Objetos DOMDocument e XMLHTTP Set objDom = CreateObject("MSXML2.DOMDocument") Set objXmlHttp = CreateObject("MSXML2.XMLHTTP") - Carregar o XML objDom.async = False objDom.LoadXml XmlBody - Abra a conexão do serviço da Web objXmlHttp.open "POST", AsmxUrl, False - Criando o cabeçalho XML objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" objXmlHttp.setRequestHeader "SOAPAction", SoapActionUrl - Enviando o comando para abrir a solicitação XML objXmlHttp.send objDom.xml Por favor, alguém pode me ajudar. Grato. -
Configurar Impressora no ACBrMonitor.INI automaticamente
um tópico no fórum postou abrahaofv ACBrMonitor PLUS
Bom dia. Como faço para obter o nome correto da impressora igual o do acbr ? Gostaria de saber como o ACBrMonitor obtem o nome das impressoras do sistema, pois estou utilizando a impressora MP-4200 TH e lá no acbr em DF-e > Impressão > (aba NFC-e) > Impressora Padrão - este checkbox aparece a impressora com o nome exatamente MP-4200 TH. No meu sistema, feito em Vb.Net, estou utilizando o método abaixo para obter o nome da impressora. Porém, o nome que me é retornado é Bematech MP-4200 TH (COM4). Tentei colocar este nome lá no acbrmonitor.ini e o mesmo não aceitou, coloquei só Bematech MP-4200 TH e também não. Ele só aceita se colocar MP-4200 TH. Que é uma das opções que aparece no checkbox. Preciso desta solução pois 2 clientes meus por algum motivo desconhecido perderam a configuração da impressora no ACBRMonitor. Entrei lá para verificar e o campo da impressora estava em branco. Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PnPEntity") For Each queryObj As ManagementObject In searcher.Get() If InStr(queryObj("Caption"), "(COM") > 0 Then 'Console.WriteLine("serial port : {0}", queryObj("Caption")) edt_portaECF.Items.Add(queryObj("Caption").ToString) End If Next
