Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode (17) :: Comparando Implementações do Desafio "Letter Combinations of a Phone Number" em Harbour e TOTVS TLPP

_Créditos das imagens: ChatGPT_ # LeetCode (17) :: Comparando Implementações do Desafio "Letter Combinations of a Phone Number" em Harbour e TOTVS TLPP O desafio [**"Letter Combinations of a Phone Number"**](https://leetcode.com/problems/letter-combinations-of-a-phone-number/description/) (Combinações de Letras de um Número de Telefone) é um problema clássico de programação que envolve a geração de todas as combinações possíveis de letras que um número de telefone pode representar, com base no mapeamento tradicional dos teclados de telefone. Abaixo, comparamos duas implementações desse desafio: uma em **Harbour** e outra em **TOTVS TLPP** (TOTVS Language Plus Plus). ## O Desafio Dada uma string contendo dígitos de 2 a 9, retorne todas as combinações possíveis de letras que esses dígitos podem representar. O mapeamento dos dígitos para as letras é o mesmo dos teclados de telefone tradicionais: - 2: "abc" - 3: "def" - 4: "ghi" - 5: ...

Protheus :: apconnxcontrol.ocx, PowerShell e SendMessage para envio de Mensagem a Usuário Específico

No “post” anterior, Protheus :: apconnxcontrol.ocx & PowerShell – Forçando a Desconexão de Usuário, vimos como instalar o componente apconnxcontrol.ocx e consumi-lo via Windows PowerShell para “Forçar” a Desconexão de usuário específico. Veremos, agora, como usar o Método SendMessage para o envio de Mensagens.

Instale/Registre o compontente conforme descrito no “post” anterior. Através do PowerShell instancie um novo objeto COM e efetue a conexão ao Protheus.

#Instanciando um novo objeto com 
$TObj = New-Object -Com apconnxcontrol.apconnx;

#Definindo as variaveis para Conexao
$TEnv = "NDJ_01";
$TSrv = "127.0.0.1";
$TPort = 4321;
$TUser = "TOTVS";
$TPWD = "SIGA";

#Atribuindo as variaveis para Conexao às Propriedades do objeto
$TObj.Environment = $TEnv;
$TObj.Password = $TPWD;
$TObj.Port = $TPort;
$TObj.Server = $TSrv;
$TObj.User = $TUser;

#Conectando
$TObj.Connect();


image



Obtenha os usuários conectados







$TObj.GetUsers();









PS C:\Documents and Settings\marinaldo.jesus.NALDO-PC\Meus documentos> $TObj.GetUsers();
marinaldo.jesus;NALDO-PC;3712;
;2740;1769103725;naldo.jesus



image



image


e, agora, usando SendMessage (string, string, string, string, string) envie-lhe(s) uma mensagem.







$TObj.SendMessage('marinaldo.jesus','NALDO-PC','3712','','ola')




image



image



image


O exemplo acima foi executado no Protheus 10, mas serve também para a versão 11. Observe:


image 





$TObj.GetUsers();

image





$TObj.SendMessage('marinaldo.jesus','NALDO-NOTE-MVPC','1996','','message from PowerShell')

image

image

image

[]s
иαldσ dj

Comentários

Postar um comentário

Postagens mais visitadas