|
Вопрос # 6 408/ вопрос открыт / |
|
Здравствуйте, эксперты! Кто-нибудь имел опыт логиниться на Ucoz через компонент IdHTTP?
Приложение: Переключить в обычный режим-
-
- <?xml version="1.0" encoding="UTF-8"?><ajax><cmd
p="innerHTML" t="blk549827"><![CDATA[<div align="left"
style="padding:10px;"><div
class="myWinLoadSD"></div></div>]]></cmd><cmd
p="js"><![CDATA[var ad=window.location.href.replace(/#(.*)?/,'');
setTimeout("window.location.href='"+ad+"?lII_d7'",'1000')]]></cmd></ajax>
-
-
-
-
-
-
-
-
-
-
- function LoginUCOZ(log, pass, site: string): boolean;
- var sl, sl2: TStrings;
- i: Integer;
- Stream: TMemoryStream;
- s: string;
- begin
- Result:= False;
- sl := TStringList.Create;
- sl2 := TStringList.Create;
- sl.Add('user=log');
- sl.Add('password=pass');
- sl.Add('rem=1');
- Stream:= TMemoryStream.Create;
- IdHTTP4.get(site, Stream);
- Stream.Seek(0, soFromBeginning);
- sl2.LoadFromStream(Stream);
- for i:= 0 to sl2.Count - 1 do
- begin
- if (Pos('<input type="hidden" name="a" value="', sl2.Strings[i])
<> 0) and (Pos('!-- </bc> -->', sl2.Strings[i]) <> 0) then
- sl.Add('a=' + Copy(sl2.Strings[i], Pos('<input type="hidden"
name="a" value="', sl2.Strings[i])+Length('<input type="hidden"
name="a" value="'), 1));
-
- if (Pos('<input type="hidden" name="ajax" value="', sl2.Strings[i])
<> 0) and (Pos('!-- </bc> -->', sl2.Strings[i]) <> 0) then
- sl.Add('ajax=' + Copy(sl2.Strings[i], Pos('<input type="hidden"
name="ajax" value="', sl2.Strings[i])+Length('<input type="hidden"
name="ajax" value="'), 1));
-
- if (Pos('<input type="hidden" name="rnd" value="',
sl2.Strings[i]) <> 0) and (Pos('!-- </bc> -->', sl2.Strings[i]) <> 0) then
- sl.Add('rnd=' + Copy(sl2.Strings[i], Pos('<input type="hidden"
name="rnd" value="', sl2.Strings[i]) + Length('<input type="hidden"
name="rnd" value="'), 3));
- end;
- sl.Add('_tp_=xml');
- try
- try
- sl2.Text:= IdHTTP4.Post(site + '/index/sub/', sl);
- for i:= 0 to sl2.Count - 1 do
- if Pos('setTimeout("window.location.href=', sl2.Strings[i]) <> 0 then
- begin
- s:= Copy(sl2.Strings[i], Pos('setTimeout("window.location.href=', sl2.Strings[i]) +
Length('setTimeout("window.location.href=')+7, Pos('1000', sl2.Strings[i])- 4
-Pos('setTimeout("window.location.href=', sl2.Strings[i]) -
Length('setTimeout("window.location.href=')-7);
- Stream:= TMemoryStream.Create;
- IdHTTP4.get('http://eclipse-lab.ucoz.ru/' + s, Stream);
- Stream.Seek(0, soFromBeginning);
- sl2.LoadFromStream(Stream);
- end;
- finally
- sl2.SaveToFile(ExtractFilePath(Application.ExeName) + '\site.html');
- for i:= 0 to sl2.Count - 1 do
- if Pos('<a href="' + site + '/index/10"', sl2.Strings[i]) <> 0 then
- Result:= True;
- end;
- except
- sl2.Free;
- sl.Free;
- end;
 |
Вопрос задал: eclipse (статус: Посетитель)
Вопрос отправлен: 7 апреля 2013, 20:03
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
