net send

нужен код для net send бомбера пожалуйста на Delphi

 

uses Shellapi;

repeat ShellExecuteA(0,'Open', 'net', 'send 127.0.0.1 Lamer!!!!',nil, SW_HIDE) while false;

 

А еще проще:
WinExec('net send 127.0.0.1 yeah', SW_SHOW);

либо скрытый вариант:
WinExec('net send 127.0.0.1 yeah', SW_HIDE);

 

эх... вспомнил молодость...
когда еще учился в колледже, то в одном компьютерном кабинете создал бат файл чтото типа такого:
cd c:\windows\system32
for %1 in (*.*) do net send * hello

поместил его на рабочий стол. Обозвал - Doom 2. И вышел из кабинета. Потому долго меня пытались поймать и поругать)) из-за того что на все компы сети ушло больше 1000 сообщений)

 

Надо было его в автозагрузку прописать

 

slesh а код рабочий хочу тоже сделать

а нельзя так писать WinExec(edit3.text+Edit1.text+Edit2.Text', SW_SHOW);

 

Нет. Передаваемый параметр функции WinExec должен быть в формате PChar. Если ты просто пишешь Edit1.Text, то передаешь String. Получаем несоответствие форматов.
Для этого просто надо преобразовать их.
Вот рабочий вариант:
WinExec(PChar(Edit3.text+Edit1.text+Edit2.Text), SW_SHOW);

P.S. У тебя кавычка лишняя WinExec(edit3.text+Edit1.text+Edit2.Text', SW_SHOW);

 

Некий исходник net send, при отправке через который, кроме сообщения можно указывать и другие параметры:

Code:

procedure NSend(Host, FromSt, ToSt, MessageSt : string); //Host - адрес назначения; FromSt - любой текст "от кого"; ToSt - любой текст "кому"; MessageSt - текст сообщения.
var
 hn    :THandle;
 st    :string;
 ln     :DWORD;
begin
 hn := CreateFile(PChar('\\'+Host+'\mailslot\messngr'), $40000000, $1, nil, 3, $80, 0);
 if hn <> DWORD(-1) then
  begin
   st := FromSt + #0 + ToSt + #0 + MessageSt + #0;
   ln := length(st);
   WriteFile(hn, st[1], ln, ln, nil);
   CloseHandle(hn);
  end;
end;