<?ПХП

¤МАИЛ = э"ЯВЕЯВЕюГМАИЛ.ЦОМэ"; //Е-МАИЛ
¤ПАСС = э"ЗЬЦЗЬЦэ"; //
¤СЛЕЕП = э"60э"; //

¤РЕС=ГЕТъХЕАДЕРС(э'ХТТП://ЛОГИН.ЖК.ЦОМ/?АЦТ=ЛОГИН&ЕМАИЛ=э'.УРЛЕНЦОДЕ(¤МАИЛ).э'&ПАСС=э'.УРЛЕНЦОДЕ(¤ПАСС));

ИФ(СУБСТРъЦОУНТ(¤РЕСш26щ,э"РЕМИЬСИДэ")) Ш
ПРЕГъМАТЦХ(э"/сЕТ-цООКИЕ: (.*?);/э",¤РЕСш26щ,¤ЦООКИЕ);
Щ ЕЛСЕ Ш
ПРИНТ(э' э');
Щ

¤ЦХ=ЦУРЛъИНИТ(э"ХТТП://ЖК.ЦОМ/э");
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъретурнтрансфер,1);
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъцоокие,¤ЦООКИЕш1щ);
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъфолловлоцатион,1);

¤РЕС=ЦУРЛъЕЬЕЦ(¤ЦХ);
ЦУРЛъЦЛОСЕ(¤ЦХ);

ПРЕГъМАТЦХ(э"/ИНФОъХАСХэээ":эээ"(.*?)эээ"/э",¤РЕС,¤ХАСХ);

ВХИЛЕ(1) Ш

¤ТЕЬТ = ЦОУНДОВН(2011,9,1,0,0,0,э' э'); // ,,,,,

¤ТЕЬТ=ИЦОНЖ(э'ЦП1251э',э'УТФ-8э',э"¤ТЕЬТэ");

¤ЦХ=ЦУРЛъИНИТ(э"ХТТП://ЖКОНТАКТЕ.РУ/АЛъПРОФИЛЕ.ПХПэ");
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъретурнтрансфер,1);
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъпост, 1);
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъпостфиелдс,э"АЦТ=ЦУРРЕНТъИНФО&АЛ=1&ХАСХ=¤ХАСХш1щ&ИНФО=¤ТЕЬТэ");
ЦУРЛъСЕТОПТ(¤ЦХ, цурлоптъцоокие,¤ЦООКИЕш1щ);

¤РЕС=ЦУРЛъЕЬЕЦ(¤ЦХ);
ЦУРЛъЦЛОСЕ(¤ЦХ);

СЛЕЕП(¤СЛЕЕП);

Щ

ФУНЦТИОН ЦОУНДОВН(¤ТАРГЕТыЕАР,¤ТАРГЕТмОНТХ,¤ТАРГЕТдАЫ,¤ТАРГЕТхОУР,¤ТАРГЕТмИНУТЕ,¤ТАРГЕТсЕЦОНД,¤ТАРГЕТеЖЕНТ)Ш

¤ТАРГЕТдАТЕ = МКТИМЕ(¤ТАРГЕТхОУР,¤ТАРГЕТмИНУТЕ,¤ТАРГЕТсЕЦОНД,¤ТАРГЕТмОНТХ,¤ТАРГЕТдАЫ,¤ТАРГЕТыЕАР);
¤АЦТУАЛдАТЕ = ТИМЕ();

¤СЕЦОНДСдИФФ = ¤ТАРГЕТдАТЕ - ¤АЦТУАЛдАТЕ;

¤РЕМАИНИНГдАЫ = ФЛООР(¤СЕЦОНДСдИФФ/60/60/24);
¤РЕМАИНИНГхОУР = ФЛООР((¤СЕЦОНДСдИФФ-(¤РЕМАИНИНГдАЫ*60*60*24))/60/60);
¤РЕМАИНИНГмИНУТЕС = ФЛООР((¤СЕЦОНДСдИФФ-(¤РЕМАИНИНГдАЫ*60*60*24)-(¤РЕМАИНИНГхОУР*60*60))/60);

¤ЦОУНТДОВН=э"¤ТАРГЕТеЖЕНТ: ¤РЕМАИНИНГдАЫ . ¤РЕМАИНИНГхОУР . ¤РЕМАИНИНГмИНУТЕС .э";
РЕТУРН ¤ЦОУНТДОВН;
Щ

?>

(ЦЭ) ВОЛК