Подскажите неучу.
Есть игра в одноклассниках - червоне дышло (аля колхоз)
[Ссылки могут видеть только зарегистрированные пользователи. ]
Пытаюсь создать что то наподобие программки -
авторизация и в окошках просто инфу (статистику по игре)
скока голдов скока денег скока опыта..
С помощью чарли я принимаю пакеты..
интересует авторизация.
Зашол в одноклассники. и жмякаю на игру.
1) 1 пакет был такой
Метод GET
я заметил что некоторые параметры постоянны (application_key)
Подскажите плиз. как вытащить при поссылке POST
sig, auth_sig, session_key sid uid vid.... и вся остальная инфа
как они генерируются? может кто знает..
Вообще реально такую фигню сделать или я чего то не допанимаю и тут всё намного сложней..
PS пишу эту хрень на делфи с при помощи IdHTTP
Спс
парси в исходнике uid, sid, authcode. потом присваивай им переменную и добавляй в гет запрос. сложно ничего нет Если перенаправление на другой сервер, то в HandleRediricted:= True; в Idhttp1
....
StrPage:=idhttp1.Get('http://188.93.63.233/');
S1:=Pars('uid="',StrPage,'"');
S2:=Pars('sig="',StrPage,'"');
//и в таком духе собираем всю коллекцию
...
function TForm1.Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;
....
StrPage:=idhttp1.Get('http://188.93.63.233/');
S1:=Pars('uid="',StrPage,'"');
S2:=Pars('sig="',StrPage,'"');
//и в таком духе собираем всю коллекцию
...
function TForm1.Pars(T_, ForS, _T: string): string;
var
a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then
Exit;
a := Pos(T_, ForS);
if a = 0 then
Exit
else
a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;
Да правильно,кстате отличную функцию ты выбрал,я тоже ей пользуюсь