Envio de mensagens em rede através do Visual Basic

Prezados, boa tarde.

Caso já tenha essa pergunta no fórum, me desculpe, mas procurei e não encontrei.

Bem, estou com a seguinte dúvida: Sei que não há mais o comando Net Send, este foi substituito pelo comando MSG.

Ainda, verifiquei através de testes que meu computador não recebia a mensagem e por isso precisei alterar um valor no registro, agora está funcionando normalmente.

Ocorre que, gostaria de executar este comando através do Visual Basic, ou seja, gostaria que, quando uma determinada condição fosse satisfeita, o programa enviasse uma mensagem especifica para outro computador da rede.

Já tentei através de alguns comandos utilizando o código Shell, não consegui.

De qualquer forma, caso seja possível enviar um alerta para o computador especifico através de outra forma, sem que tenha que instalar um programa, também poder ser.

Por último, há possibilidade de enviar uma mensagem para outro computador com uma opção ou lista de respostas e que eu receba no meu computador ou e-mail esta resposta? Muito obrigado pela atenção.
Patrick

Olá Patrick Dias,
Seja Bem-Vindo ao fórum.
O serviço  Net Send está desligado nas versões mais recentes, verifique.

No entanto existe alternativas desenvolvidas em Access, efetue uma busca aqui no fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search
Abraço

Caro ahteixeira, obrigado pela resposta.
Na verdade eu já consigo enviar mensagem em rede através do comando "MSG"
Contudo, gostaria de saber como executar este comando pelo Visual Basic dentro do Access.
Em relação à busca no Forum, encontrei os seguintes resultados, mas não me atendem para o que procuro:
https://www.maximoaccess.com/t7207-erro-enviar-mensagem-utilizando-net-send-ou-msg-exe?highlight=NET+SEND e https://www.maximoaccess.com/t7198-em-relacao-ao-exemplo-net-send.

O Segundo tópico até me ajudou a liberar o computador para receber mensagens, no entanto, não consigo enviar pelo Visual Basic.


Desde já, agradeço a atenção dispensada.

Olá Patrick Dias,
Este fórum é de Access, o código é VBA (visual basic for aplication).
Se funciona na linha de comandos (promp), pode tentar via Shell.

Segue pequeno exemplo de como abrir a calculadora do windows.

Código:

Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1)  


Crie um botão e teste algo assim:

Código:

Shell ("C:\Windows\system32\cmd.exe /C net send " & "teste1" & " " & "teste2"), vbNormalFocus

Abraço