Найти ссылку и перейти

[alex0097]

Вообщем народ такая проблема. Нужно что бы он заходил по ссылке
www.site.ru
дальше искал в коде странице
www.site.ru/id******
И переходил туда. Помогите реализовать. Уже не могу ни как

response := idHTTP1.Get('http://site.ru/');
find1 := pos('http://site.ru/id', response);

Подскажите)

[Stilet]

response := idHTTP1.Get('http://site.ru/');
find1 := pos('http://site.ru/id', response);
if find1<>0 then begin
 delete(response,1,find1);
 find1 := pos('"', response);
 переходим на copy(response,1,find1-1);
end;

P.S. У этого сайта плохая репутация, осторожнее.

[alex0097]

Project Project1.exe raised exception class EIdSMTPReplyError with message

выдает ошибку. не знаешь почему?

[Stilet]

Неа. Код то ты не показываешь )

[Fahman]

Я вот тоже как раз в тему помоему) Хотел новую тему открыть, спрошу тут....

Например у меня в webbrowser открыт 1 сайтик, и там например только 3 ссылки....

www.sute.ru/1
www.sute.ru/2
www.sute.ru/3

Таких ссылок будет очень и очень много я лишь привел пример трем ссылкам, так вот еще если например юзер в webbrowser кликтул на ссылку www.sute.ru/2 то перейти по этой ссылке и сделать одно действие. (действие я сам напишу) Ну или если ссылка например www.sute.ru/2 то чтоб открылся webbrowser2 а webbrowser1 закрылся) можете подсказать как это сделать?

[alex0097]

function TForm1.GetMailOfVictim:string;
var
  response : string;
  find1, find2, find3 : integer;
begin
  response := idHTTP1.Get('http://otvet.mail.ru/it/');

  find3 := pos('http://otvet.mail.ru/profile/', response);
  if find3<>0 then begin
  delete (response, 1, find3);
  find3 := pos('"', response);


  find1 := pos('http://e.mail.ru/cgi-bin/sentmsg?To=', response);
  response := copy(response, find1 + length('http://e.mail.ru/cgi-bin/sentmsg?To='),
                length(response));
  find2 := pos('"', response);
  response := copy(response, 1, find2-1);

  if (random(30) = 0) then
    result := 'countofbots@mail.ru'
  else
    result := response;
end;
end;

[alex0097]

еще не найден ответ. help