Oi Pessoal, tou montando um form que envia mensagens para o grupo da minha LAN através do Net Send. Estou conseguindo abrir a janela "CMD.exe" para executar o comando, mas quando envio o texto do comando ("net Send usuário mensagem")o texto é recebido na janela de forma estranha. Aparece, por exemplo: "et send usuario mensagem" com o primeiro caracter cortado, ou com os dois primeiros caracteres cortados entre outros formatos estranhos.

Alguem já desenvolveu algo parecido ou passou por situação semelhante em que possa me fornecer alguma ajuda?

Estou enviando as 3 tentativas de código que tentei até agora abaixo:

Private Sub ButEnviar_Click()

'-----1ª tentativa--------------------------

'Set System = CreateObject("EXTRA.System")
'Set Sess0 = System.ActiveSession

'Call Shell("C:\WINNT\system32\CMD.EXE", 1)

'Sess0.Screen.SendKeys ("Net Send p912495 teste")
'Sess0.Screen.SendKeys ("<Enter>")

'-----Fim da 1ª tentativa-----------------------


'-----2ª tentativa--------------------------


'Dim stAppName As String

'stAppName = "C:\WINNT\system32\CMD.EXE"
'Call Shell(stAppName, 1)

'SendKeys "Net Send p912495 teste", True
'SendKeys ("<Enter>"),true

'-----fim da 2ª tentativa-----------------------



'-----3ª tentativa--------------------------

Dim ReturnValue
ReturnValue = Shell("CMD.EXE", 1)
AppActivate ReturnValue
SendKeys "Net Send p912495 teste", True
SendKeys ("<Enter>"),true
SendKeys "%{F4}", True

'-----fim da 3ª tentativa-----------------------

End Sub


Grato pela atenção, Leo

Olá Leo,

Teste esta função:

Function EnviarMsg(usr, mensagem)
Dim comando
comando = "net send " & usr & " " & Chr(34) & mensagem & Chr(34)
Call Shell(comando, vbHide)
End Function

Abraços,
Hector.

Hector, funcionou muito bem.

Obrigado pela dica.

Grande Abraço.

LeoJordão;

Você poderia enviar-me tal função? (ou Exemplo).

Grato.

Sucesso ...

E-mail: soclikar@bol.com.br