Fórum Mensagens em Rede #171138

Bom se você quiser desenvolver um programa para isso terá q ter um CLIENTE e um SERVIDOR... mas se quiser algo pronto o WINME ( talvez o 98 tenha) um programa chamado: WINPOPUP... vá em C:\Windows\WINPOPUP.exe

Flw...

digite no prompt de comando:

net send nome_da_makina ´mensagem´ ou
net send nome_do_usuario ´mensagem´

function NetSend(dest, source, msg: string): longint;
type
TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar; buf: PWideChar; buflen: Cardinal): longint; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;
SourceWideChar : PWideChar;
DestWideChar : PWideChar;
MessagetextWideChar : PWideChar;
Handle : THandle;
begin
Handle := LoadLibrary(´NETAPI32.DLL´);
if (Handle = 0) then
begin
Result := GetLastError;
exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, ´NetMessageBufferSend´);
if (@NetMessageBufferSend = nil) then
begin
Result := GetLastError;
exit;
end;
MessagetextWideChar := nil;
try
GetMem(MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(msg, MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);
if source = ´´ then
result := NetMessageBufferSend(nil, DestWideChar, nil,
MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1)
else
begin
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
MessagetextWideChar, Length(msg) * SizeOf(WideChar) + 1);
freemem(SourceWideChar);
end;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;

//Chamada:

NetSend(computador_destino, computador_origem, mensagem);