регулркой можно спарсить жешь посмотреть соседнюю тему про авторизации в дарке, там хорий пример ,или так
Код:
if Pos ('type="hidden" value="', тут переменная с помощью которой ты попал на ссылку где этот код)<>0 then
Copy(F,63,10);
всё в переменной ф будет 5dSBW_Dp4wN ,если не секрет ,а зачем это?
и насчёт кода 63 это символ с котрого мы начинаем копировать , 10 количество символов которые копируем ,вроде всё
uses strutils;
.....
здесь код
.....
var
s, q: string;
i:integer;
begin
.....
здесь код
.....
s:='<input id="profileOwner" name="profileID" type="hidden" value="5dSBW_Dp4wN"/>'; //типа тут код страницы лежит
i:=pos('<input id="profileOwner"', s);
q:= copy(s, PosEx('value="', s, i)+7, 11);
.....
здесь код
.....
end;
Поясняю.
Строк вида type="hidden" value=" может быть несколько десятков в коде сайта, под регулярку нужно брать то, что не повторяется. Смею надеяться id="profileOwner" если и повторяется, то несет в себе одно и то же значение.
Если совсем по честному то и длину id нужно было бы узнавать динамически, но судя по всему она одинакова.
А если завтра кому либо и верстальщиков сайта придет в голову поставить лишний пробел в строке? Куда денутся твои 63 символа?
________________
Ни одно доброе дело не остается безнаказанным.
Смысл программы в том, что человек вбивает в нее любую ссылку, типа ([Ссылки могут видеть только зарегистрированные пользователи. ]), программа открывает эту страничку в своем браузере, а по нажатию кнопки Access, открывает доступ к скрытым разделам игрока.
Добавлено через 10 часов 42 минуты
Не могу понять - при таком условии все работает
Код:
if Pos('20%',html_tag) > 0 then
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:1) Ïåðâûé ýòàï ëîâëè áîòîâîäîâ';
if Pos('<li>50% ',html_tag) > 0 then
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:2) Âòîðîé ýòàï ëîâëè áîòîâîäîâ'
else
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';
Но почему-то, когда переменная содержит параметры '20%', сообщение об этом не отображается, а всё это попадает под else.
Последний раз редактировалось }{0TT@Ђb)Ч; 25.02.2012 в 00:37.
Причина: Добавлено сообщение
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';
Вот так правильно
Код:
if (Pos('20%',html_tag) > 0) or (Pos('<li>50% ',html_tag) > 0) then
Begin
if Pos('20%',html_tag) > 0 then
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:1) Ia?aue yoai eiaee aioiaiaia'
else
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:2) Aoi?ie yoai eiaee aioiaiaia'
end
else
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';
if Pos('<li>20%',html_tag)<>0 then
begin
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:1) Ïåðâûé ýòàï ëîâëè áîòîâîäîâ';
end;
if Pos('<li>50%',html_tag)<>0 then
begin
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:2) Âòîðîé ýòàï ëîâëè áîòîâîäîâ'
end;
if (Pos('<li>20%',html_tag)=0) and (Pos('<li>50% ',html_tag)=0) then
begin
mmo1.Text:='Account ID:'+edt2.Text+' Bot User (Grade:0)';
end;
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.