Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скачать страницы с сайта SilverLight 
:(
    Опции темы
Suppir
Дата 15.8.2014, 20:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Добрый день!

Есть такая книжка, доступная онлайн через SilverLight. 

Первая страница:
http://www.prlib.ru/elfapps/RecordViewer/d...mp;lang=ru-RU#0

Последняя страница:
http://www.prlib.ru/elfapps/RecordViewer/d...;lang=ru-RU#659

Подскажите, как можно скачать все страницы на диск?

Это сообщение отредактировал(а) Suppir - 15.8.2014, 20:11
PM MAIL   Вверх
Bulat
Дата 17.8.2014, 18:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Suppir, таки я не понял - прямая ссылка на контент есть??


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
Suppir
Дата 18.8.2014, 10:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Я не вижу ссылки. Но, по идее, там есть какие-то перенаправление на ссылку с реальным контентом.

Нашел вот такое обсуждение:
http://shadow-ru.livejournal.com/51782.html?thread=130630

там в комментариях есть прикрепленный скрипт. Но разобраться, как он работает, не получилось :(

Добавлено через 2 минуты и 51 секунду
Вот еще похожее обсуждение:
http://forum.ru-board.com/topic.cgi?forum=55&topic=10609
PM MAIL   Вверх
Bulat
Дата 18.8.2014, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Цитата(Suppir @  18.8.2014,  10:04 Найти цитируемый пост)
там в комментариях есть прикрепленный скрипт. Но разобраться, как он работает, не получилось

И как скачать этот скрипт?? Я акромя названия ничего не вижу...


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
Suppir
Дата 18.8.2014, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Вот скрипт, но я не понял, как он работает:


Код

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
#!/usr/local/bin/perl -w

###############################################
# NLR Flash Map Ripper v0.1a
###############################################

use strict;

my $header_size = 19;
my $header_unpack_template = 'A3 x L S x7 S';

##################################################################
#
##################################################################

my $filename = shift;

my $header = "";
my @page_offset_array = ();
my @page_size_array = ();

open(NLR_DATA, "$filename") or die "$!";
binmode NLR_DATA;
read(NLR_DATA, $header, $header_size, 0);

my ($sig,
    $filesize,
    $book_page_quantity,
    $xml_data_size) = unpack ($header_unpack_template, $header);
    
my $part_first_page_number = 1;
my $part_page_quantity = $book_page_quantity;

print "Signature: $sig\n";

unless ($sig eq 'NLR'){
  print "Error: Invalid signature!\n";
  close NLR_DATA;
  exit(1);
}

print "File size: $filesize bytes\n";
print "Book Page Quantity: $book_page_quantity\n";
#print "Part First Page Number: $part_first_page_number\n";
#print "Part Page Quantity: $part_page_quantity\n";
print "XML Date Size: $xml_data_size bytes\n\n";

seek(NLR_DATA, $xml_data_size, 1);

my $i = 0;

while ($i < $part_page_quantity){
  my $temp = "";

  read(NLR_DATA, $temp, 4);
  #  print $page_offset_array[$i] = unpack("l", $temp), "|";
  $page_offset_array[$i] = unpack("l", $temp);

  read(NLR_DATA, $temp, 4);
  #  print $page_size_array[$i] = unpack("l", $temp), "\n";
  $page_size_array[$i] = unpack("l", $temp);

  $i++;
}

$i = 0;

while ($i < $part_page_quantity){
  my $temp = "";

  seek(NLR_DATA, $page_offset_array[$i], 0);
  read(NLR_DATA, $temp, $page_size_array[$i]);

  my $filename = "dump/page".sprintf("%04d", $part_first_page_number+$i).".swf";

  open(OUT, ">$filename") or die "$!";
  binmode OUT;
#  print OUT 'CWS'.$temp;
  print OUT $temp;
  close OUT;

  $i++;
}

close NLR_DATA;


Добавлено через 52 секунды
И вот еще:
http://lpaste.net/41896/title

Там в комментариях ссылка на скрипт была. 
PM MAIL   Вверх
Bulat
Дата 18.8.2014, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Цитата(Suppir @  18.8.2014,  17:21 Найти цитируемый пост)
Вот скрипт, но я не понял, как он работает:

А что конкретно не понятно?? Вроде как более или менее... Есть файл для тестов??


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
arto
Дата 18.8.2014, 23:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40



качаете .xap и декомпилите его: http://www.itwriting.com/blog/3097-decompi...ilverlight.html
PM MAIL ICQ   Вверх
Suppir
Дата 19.8.2014, 08:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Цитата(Bulat @ 18.8.2014,  17:35)
Цитата(Suppir @  18.8.2014,  17:21 Найти цитируемый пост)
Вот скрипт, но я не понял, как он работает:

А что конкретно не понятно?? Вроде как более или менее... Есть файл для тестов??


Вот файл для тестов

Первая страница:
http://www.prlib.ru/elfapps/RecordViewer/d...mp;lang=ru-RU#0
Последняя страница:
http://www.prlib.ru/elfapps/RecordViewer/d...;lang=ru-RU#659

Нужно скачать все страницы от 0 до 659. 
PM MAIL   Вверх
Bulat
Дата 19.8.2014, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Цитата(Suppir @  19.8.2014,  08:17 Найти цитируемый пост)
http://www.prlib.ru/elfapps/RecordViewer/d...mp;lang=ru-RU#0
Последняя страница:
http://www.prlib.ru/elfapps/RecordViewer/d...;lang=ru-RU#659

Эээ... то что он мне бед реквест выдает - это нормально??


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
Suppir
Дата 23.8.2014, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 588
Регистрация: 20.4.2009

Репутация: нет
Всего: нет



Откройте по ссылкам, которые в самом первом посте - там все открывается. 
PM MAIL   Вверх
Bulat
Дата 24.8.2014, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


татарский Нео
***


Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57



Цитата(Suppir @  23.8.2014,  18:33 Найти цитируемый пост)
Откройте по ссылкам, которые в самом первом посте - там все открывается.  


Цитата

Для работы необходимо установить Silverlight компонент от компании Microsoft версии 2.0 


А у меня на ноуте Ubuntu - думаешь Silverlight проинсталлируется?? 


--------------------
менеджер по кодеврайтингу  smile 
PM MAIL WWW   Вверх
tishaishii
Дата 12.9.2018, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Создатель
***


Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8



Гуглите по теме "webdriver". Проще всего использовать с помощью Python v3x.
PM MAIL ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.1525 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.