Перейти к публикации

Xbox - скидки, акции! Offline, online


Fantomass
 Поделиться

Рекомендованные сообщения

Ну и убожеский язык... Я бы скорее повесился чем на таком кодил...:)

 

Если кому интересно (вряд ли, но мне приятно, ибо я таким образом самоутверждаюсь), текст скрипта:

 

#!/usr/bin/perl

use HTML::TreeBuilder;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $tree = HTML::TreeBuilder->new(ignore_unknown => 0);

open(F, "< cdkeys.lst");
while(<F>)      {
        chomp;
        /([^,]+),(.*)/;
        $cdo{$2} = $1;
}
close(F);

$ua->agent('Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.110 Safari/537.36');
$ua->default_header('Accept-Language' => "no, en");

$tree = $tree->parse_content($ua->get("http://www.cdkeys.com/xbox-live/games/1")->decoded_content);
@pglist = $tree->look_down(_tag=>"div", class=>"pager")->look_down(_tag=>"a");

%cdl = ();

foreach $pl (@pglist)   {
        @lil = $tree->look_down(_tag=>"li", class=>"item");
        foreach $li (@lil)      {
                next    if(! $li->look_down(_tag=>"p", class=>"special-price"));
                $pname = $li->look_down(_tag=>"h2")->as_text;
                $plink = $li->look_down(_tag=>"h2")->look_down(_tag=>"a")->attr("href");
                $rpr = $li->look_down(_tag=>"p", class=>"old-price")->look_down(_tag=>"span", class=>"price")->as_text;
                $spr = $li->look_down(_tag=>"p", class=>"special-price")->look_down(_tag=>"span", class=>"price")->as_text;
                $rpr =~ s/ //g;
                $spr =~ s/ //g;
                $cdl{$pname}=$spr;
                print "\[url=$plink\]$pname\[/url\] \[s\]$rpr\[/s\] $spr\n"     if(!defined($cdo{$pname}) || $cdo{$pname} ne $spr);
        }
        $p = $pl->as_text;      # Get the page number
        next    if($p < 1);
        $tree = HTML::TreeBuilder->new(ignore_unknown => 0);
        $tree = $tree->parse_content($ua->get("http://www.cdkeys.com/xbox-live/games/$p")->decoded_content);
}

open(F, "> cdkeys.lst");
foreach $k (keys %cdl)  {
        print F $cdl{$k},",$k\n";
}
close(F);
Изменено пользователем BadMad
Ссылка на комментарий
Поделиться на других сайтах

Ну и убожеский язык... Я бы скорее повесился чем на таком кодил...:)

Парсинг html вообще мерзотная и неблагодарная задача. Для меня это что-то типа судоку. Разгадываешь такой, смотришь, как оно. Мне нравится! Но я и не кодер ни разу.

Ссылка на комментарий
Поделиться на других сайтах

Тогда до кучи парсер цен с amazon'а сделать и со storeparser для xbox 360 игр (ну или как то по другому).

Ссылка на комментарий
Поделиться на других сайтах

@Aiser, на амазоне нет ничего кроме Forza Motorsport 5:

 

http://www.amazon.com/s/ref=dp_bc_4?ie=UTF8&node=7326775011&rh=n%3A468642%2Cn%3A!11846801%2Cn%3A6469269011%2Cn%3A7326764011%2C

 

Или не там смотрю?



Там вообще бредовая какая-то навигация. Игры с download codes есть, но когда поднимаешься уровнем выше в надежде посмотреть полный список, там пусто.

Ссылка на комментарий
Поделиться на других сайтах

@Aiser, на амазоне нет ничего кроме Forza Motorsport 5:

 

http://www.amazon.com/s/ref=dp_bc_4?ie=UTF8&node=7326775011&rh=n%3A468642%2Cn%3A!11846801%2Cn%3A6469269011%2Cn%3A7326764011%2C

 

Или не там смотрю?

Там вообще бредовая какая-то навигация. Игры с download codes есть, но когда поднимаешься уровнем выше в надежде посмотреть полный список, там пусто.

Да там навигация ещё тот бред. Но игр много. Конечно пока ничего интересного, но бывает раз в пол года скидки. GoW UE по 9.99 $ был недавно.

 

Попробуй по этой ссылке: http://goo.gl/74ppCc Было бы интересно поискать ещё магазины с кодами в других регионах и сделать нечто сравнительное как с Xbox Live, но думаю будет ещё тот геморрой.

Ссылка на комментарий
Поделиться на других сайтах

Да там навигация ещё тот бред. Но игр много. Конечно пока ничего интересного, но бывает раз в пол года скидки. GoW UE по 9.99 $ был недавно.

 

Попробуй по этой ссылке: http://goo.gl/74ppCc Было бы интересно поискать ещё магазины с кодами в других регионах и сделать нечто сравнительное как с Xbox Live, но думаю будет ещё тот геморрой.

Да, это бест-селлеры, то есть заведомо не полный список, плюс можно не успеть с какими-то яркими акциями, которые закончатся до того, как станут "бест".

 

Блин, что-то cdkeys.com чуть не несколько раз в день меняет на пару центов свои цены. Цуко, спамит. Надо думать, как уменьшить трафик в свой адрес.

Ссылка на комментарий
Поделиться на других сайтах

Да, это бест-селлеры, то есть заведомо не полный список, плюс можно не успеть с какими-то яркими акциями, которые закончатся до того, как станут "бест".

 

Блин, что-то cdkeys.com чуть не несколько раз в день меняет на пару центов свои цены. Цуко, спамит. Надо думать, как уменьшить трафик в свой адрес.

Фиксируй цену, сравнивай в определенном интервале, то есть если разница между уже имеющейся у тебя ценой и новой менее 99 центов (для примера), то не отправляй :)

Ссылка на комментарий
Поделиться на других сайтах

Моих скриптов прибыло. Теперь каждый час парсится cdkeys.com, смотрится, какие игры имеют special price, и, если раньше инфа об этой игре мне не присылалась, или цена изменилась, то шлётся письмо с подробностями.

 

Может это не совсем правильно, но что если сделать сортировку по уровню скидки в сторону уменьшения? 

Ссылка на комментарий
Поделиться на других сайтах

Да там навигация ещё тот бред. Но игр много. Конечно пока ничего интересного, но бывает раз в пол года скидки. GoW UE по 9.99 $ был недавно.

 

Попробуй по этой ссылке: http://goo.gl/74ppCc Было бы интересно поискать ещё магазины с кодами в других регионах и сделать нечто сравнительное как с Xbox Live, но думаю будет ещё тот геморрой.

 

Спасибо - купил автоматрона почти в два раза дешевле чем в русском сторе.

Ссылка на комментарий
Поделиться на других сайтах

Да там навигация ещё тот бред. Но игр много. Конечно пока ничего интересного, но бывает раз в пол года скидки. GoW UE по 9.99 $ был недавно.

 

Попробуй по этой ссылке: http://goo.gl/74ppCc Было бы интересно поискать ещё магазины с кодами в других регионах и сделать нечто сравнительное как с Xbox Live, но думаю будет ещё тот геморрой.

:laugh1:

Изменено пользователем H4mster
Ссылка на комментарий
Поделиться на других сайтах

в днсе

ryse и forza 5 по 550руб

halo, destiny, horizon 2 по 990руб.

может еще что есть

Ссылка на комментарий
Поделиться на других сайтах

в днсеryse и forza 5 по 550рубhalo, destiny, horizon 2 по 990руб.может еще что есть

В отдельных городах видимо.

Ссылка на комментарий
Поделиться на других сайтах

forza 5

Стоит только отметить, что актуально только для Сибирского федерального округа (Типа Кемерово). Предположительно по твоим геоданным. Изменено пользователем Aiser
Ссылка на комментарий
Поделиться на других сайтах

В эльдорадо/мвидео никто не видел новых оффлайновых акций?

Изменено пользователем fallen8rwtf
Ссылка на комментарий
Поделиться на других сайтах

В эльдорадо/мвидео никто не видел новых оффлайновых акций?

промокод ПОЕХАЛИ 12% скидка с 11 по 13 апреля, ток я хз на какие товары

 

ни у кого кодов нет в мвидео?

Ссылка на комментарий
Поделиться на других сайтах

В 1с карта оплаты на 2500 стоит 1998 рублей.

Это в 1С-интерес? У меня пишет "нет в наличии" :(

Ссылка на комментарий
Поделиться на других сайтах

Это в 1С-интерес? У меня пишет "нет в наличии" :(

Их уже около года как нет в наличии.

Ссылка на комментарий
Поделиться на других сайтах

Привет!

Купил цифровой код АС Единство за 292 рубля, на данный момент (4.25 бакса), с магазина сдкейс.ком [spoiler=Прямая ссылка]http://www.cdkeys.com/xbox-live/games/assassin-s-creed-unity-xbox-one

, спокойно оплатил визой классик. Единственное, не приходил код подтверждения на телефон при активации цифрового кода, написал им на почту и в течении 5 минут ответили и прислали ссылку на код.

Извините если уже где-то писали, но вроде цена еще больше снижена, два дня назад стоил 7.25 бакса.

Для всех регионов и на хбокс оне. И кстати на АС black flag - цена тоже 4.25, если кому надо.

Изменено пользователем Pozitife
Ссылка на комментарий
Поделиться на других сайтах

Привет!

Купил цифровой код АС Единство за 292 рубля, на данный момент (4.25 бакса), с магазина сдкейс.ком [spoiler=Прямая ссылка]http://www.cdkeys.com/xbox-live/games/assassin-s-creed-unity-xbox-one

, спокойно оплатил визой классик. Единственное, не приходил код подтверждения на телефон при активации цифрового кода, написал им на почту и в течении 5 минут ответили и прислали ссылку на код.

Извините если уже где-то писали, но вроде цена еще больше снижена, два дня назад стоил 7.25 бакса.

Для всех регионов и на хбокс оне. И кстати на АС black flag - цена тоже 4.25, если кому надо.

не идет оплата, точнее фейлиться страница, где нужно указывать данные карты

Ссылка на комментарий
Поделиться на других сайтах

все получилось, оплатил через пэйпал и смс подтверждение пришло, спасибо

Ссылка на комментарий
Поделиться на других сайтах

Привет!

Купил цифровой код АС Единство за 292 рубля, на данный момент (4.25 бакса), с магазина сдкейс.ком [spoiler=Прямая ссылка]http://www.cdkeys.com/xbox-live/games/assassin-s-creed-unity-xbox-one

, спокойно оплатил визой классик. Единственное, не приходил код подтверждения на телефон при активации цифрового кода, написал им на почту и в течении 5 минут ответили и прислали ссылку на код.

Извините если уже где-то писали, но вроде цена еще больше снижена, два дня назад стоил 7.25 бакса.

Для всех регионов и на хбокс оне. И кстати на АС black flag - цена тоже 4.25, если кому надо.

Спасибо , забрал.

Ссылка на комментарий
Поделиться на других сайтах

не идет оплата, точнее фейлиться страница, где нужно указывать данные карты

Такая же ерунда. И через палку тоже ошибку выдает (не грузится страница)

Ссылка на комментарий
Поделиться на других сайтах

Создайте аккаунт или войдите в него для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!

Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.

Войти сейчас
 Поделиться

  • Сейчас на странице   0 пользователей

    • Нет пользователей, просматривающих эту страницу.
×
×
  • Создать...