21.04.2005, 10:34
общий
это ответ
Здравствуйте, KolesnikovAV!
1) Для того чтобы отправлять сообщения через данную службу должны быть включены следующие службы: "Plug and Play", "Интерфейс NetBios", "Рабочая станция", "Удалённый вызов процедур (RPC)", "Служба сообщений". А отправлять сообщение можно командой net sent. Я сам когда-то писал такой "флудер", см код в приложении... Поясню код: Edit1 - Ip адрес, Edit2 - Сообщение, Edit3 - количество сообщений.
А по нажатию кнопки вызываем команду net sent (кстати, её синтаксис можно почитать если набрать в коммандной строке net sent /? )
Приложение:
procedure TForm1.Button1Click(Sender: PObj);vari: longint;k: integer;beginif edit1.Text=‘‘ then showmessage (‘Введите IP-адрес!‘) elseif edit2.Text=‘‘ then showmessage (‘Введите сообщение!‘) elseif edit3.Text=‘‘ then showmessage (‘Введите колличество сообщений!‘) elsebeginbeginbegintry i:=StrToInt (edit3.Text);except edit3.Text:=‘1‘; i:=1; showmessage (‘Некоректное колличество сообщений!‘);end;for k:=1 to i do begin ShellExecute(0,‘Open‘,‘net‘,PAnsiChar(‘send ‘+Edit1.Text+‘ ‘+Edit2.Text),nil,0); end;end;end;end;end;