Buscar por:

Crie um Mensageiro pelo DOS

Código

Olá amigos, irei lhes mostrar como criar um simples mensageiro em uma rede via DOS, com esse mensageiro você fará com que apareçam mensagens nas máquinas que desejar, desde que estejam conectadas na rede, vamos ao projeto:

-Crie um projeto em branco e coloque 2 label, 2 edit e 1 botão;

-A primeira label coloque o caption como Máquina e logo abaixo cloque a edit1.

-A segunda label coloque o caption como Mensagem e logo abaixo cloque a edit2.

-No botão coloque em caption: Enviar.

-No código do botão coloque o seguinte:

procedure TForm1.Button1Click(Sender: TObject);

var Msg: PAnsiChar;

begin

     Msg:= PAnsiChar('NET SEND ' + edit1.Text  +' '+ Edit2.Text );

     WinExec(Msg, SW_HIDE)

end;

após é só executar, colocar o nome da máquina da rede, exemplo: Servidor e colocar a mensagem desejada, após é só clicar em Enviar que a mensagem aparecerá do nada na máquina da pessoa que foi direcionada.

Obs: para que a mensagem apareça na máquina, a opção mensageiro têm que estar ativada, para isso faça esses passos:

-Vá em painel de controle;

-Vá em Ferramentas Administrativas;

-Vá em Serviços;

Na lista de serviços que aparece encontre o serviço Mensageiro e dê um duplo clique.

-Na janela que aparece clique na seta da caixa Tipo de Inicialização e nela escolha a opção 'Automático';

-Após, clique sobre o botão Iniciar.

-Aguarde alguns instantes, clique em Aplicar e depois em Ok.

-Pronto, faça isso em todas as máquinas que voce deseja que receba mensagens.

Qualquer coisa me mande um e-mail que lhe reenvio o Fonte.

Abraços até a próximo.