grabber серверов кс

windust · 18.05.2013, 13:34

[Ссылки могут видеть только зарегистрированные пользователи. ]

парсит ip с сайтов

Вот делать было нечего решил что та сделать

[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

strelok20095 · 16.06.2013, 17:28

del

=F1= · 16.06.2013, 21:09

Цитата:

Сообщение от strelok20095


	Source By 1337-SOFT.RU procedure TForm2.sButton1Click(Sender: TObject); var reg:TRegExpr; link:string; prx:tstringlist; i:integer; begin if sEdit1.Text='' then MessageDlg('Укажите сайт для грабба серверов ([Ссылки могут видеть только зарегистрированные пользователи. ],[mbOK],0) else sMemo1.Clear; //Очищаем окно при нажатии на Грабить slabel1.Caption:='Proxy Count: 0'; //Возвращаем счетчику кол-ва ip результат: 0 prx:=tstringlist.Create; //Создаем Tstringlist для сохранение ip и вывода их в софте! reg:=Tregexpr.Create; //Создаем регулярное выражение reg.Expression:='\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3 }:\d{1,5}'; //Сама регулярка для парсинга ip link:=Form2.IdHTTP1.Get(form2.sEdit1.Text); //Берем сайт из sEdit1 if reg.Exec(link)then repeat //Забираем результат по Get запросу(link) выше! prx.Add(reg.Match[0]); //Добавляем результат until not reg.ExecNext; // готово! form2.smemo1.Lines.Text:=prx.Text; //Выводим результат в sMemo1 form2.sLabel1.Caption:='Proxy Count: '+inttostr(prx.Count); //Подсчитываем кол-во сграбленных проксей prx.SaveToFile(ExtractFilePath(Application.ExeName )+'Rez_Grab_Proxy.txt'); //Сохраняем результат prx.Free; //освобождаем лист end; //В uses regexpr;