• advertisement_alt
  • advertisement_alt
  • advertisement_alt

Leaderboard


Popular Content

Showing most liked content on 04/04/21 in all areas

  1. 4 likes
    Código abaixo pra saber nr de série da placa mãe. objLocator is object Automation "WbemScripting.SWbemLocator" objService is object Automation dynamic Results is object Automation dynamic WHEN EXCEPTION IN objService = objLocator>>ConnectServer(".", "root\cimv2") objService>>Security_>>ImpersonationLevel = 3 // Motherboard infos Results = objService>>ExecQuery("SELECT Manufacturer, Product, Version, SerialNumber FROM Win32_BaseBoard") FOR x = 0 _TO_ Results>>Count -1 Trace("Manufacturer : ",Results>>ItemIndex(x)>>Properties_("Manufacturer")>>Value ) Trace("Product : ",Results>>ItemIndex(x)>>Properties_("Product")>>Value ) Trace("Version : ",Results>>ItemIndex(x)>>Properties_("Version")>>Value ) Trace("SerialNumber : ",Results>>ItemIndex(x)>>Properties_("SerialNumber")>>Value ) Trace("=========================") END DO Error("Erreur execution WMI",ExceptionInfo(errInfo)) ExceptionEnable() END RETURN
  2. 3 likes
    O projeto ACBr é um projeto open source q existe a mais de 10 anos integrando diversas facilidades, uma delas é o envio de emails. Os componentes do projeto ACBr são nativos para linguagem pascal, no entanto, podem ser utilizados por outras linguagens por meio de um monitor (EXE q monitora determinada pasta e faz troca de arquivos para interação das funcionalidades) e agora via Dll. O objetivo deste tópico é fornecer um exemplo de código / passo a passo para utilizar a Dll no envio de e-mails Segue: // Manual Online do ACBrLib // https://acbr.sourceforge.io/ACBrLib/MAIL_Inicializar.html // Pré requisitos: // Dlls: // ACBrMail32.dll q deve estar na pasta EXE do projeto // Demais dlls dependencias q são: // libssl-1_1.dll // libcrypto-1_1.dll DLLRetorno is int = 0 // Caso não exista será criado o arquivo ACBrEmail.INI no path informado DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Inicializar",fCurrentDir()+"\ACBrEmail.INI", "") // Segundo parametro conforme manual é a chave de criptografia, se deixar em branco fica o padrão DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Nome", "Sua Empresa") DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Conta", "[email protected]") DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Usuario", "[email protected]") DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Senha", "senhadoemail") DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Servidor", "smtp.googlemail.com") // se for google, se não tem q ver as configurações dos outros DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","Porta", "465") // exemplo se for hotmail, yahoo, etc, pode ser q varie a porta, SSL, TLS etc DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","SSL", "1") // vide configuração do provedor de email e tb como configurar no manual* DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_ConfigGravarValor","Email","TLS", "0") DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Clear") DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_SetSubject", "Email Teste" ) DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_AddAddress","[email protected]", "Nome do destinatário" ) DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_AddAltBody", "Corpo do email teste" ) DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Send", True) // manda via thread, em background DLLRetorno = CallDLL32("ACBrMail32.dll","MAIL_Finalizar") Info(DLLRetorno) // lista de retornos no manual
  3. 3 likes
    Sim tem Vai no description da Window, depois em GUI, depois Popup, depois AAF Parameters, depois desmarca o item Cancel Zoom, seguem algumas imagens ilustrativas pra te auxiliar.
  4. 2 likes
    Vlw Cassiano deu certinho, já tinha desmarcado todos checkbox possiveis, mais esse ai estava bem escondido(rsrsrs)
  5. 2 likes
    Playlist com os Videos de @JULIO CESAR PEDROSO sobre WINDEV 25 https://www.youtube.com/playlist?list=PLYgB8kapIj5-yeSTIQdHbzeY_lEaSJpg9