Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] как сохранить с помощью save2go.ru МНОГО ссылок?

Ответить
Настройки темы
[решено] как сохранить с помощью save2go.ru МНОГО ссылок?

Пользователь


Сообщения: 138
Благодарности: 3

Профиль | Отправить PM | Цитировать


как сохранить с помощью save2go.ru МНОГО ссылок?

есть 800 ссылок на страницы с флэш-видео. (не ютуб и не прочие социалки)
по одной ссылке доставать через сайт тяжко
как все 800 ссылок пропустить списком через сайт и получить список прямых ссылок?

как это можно реализовать через AutoIt ?

Отправлено: 14:36, 21-08-2010

 

Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 2995
Благодарности: 984

Профиль | Сайт | Отправить PM | Цитировать


shadowbat,
Если тема решена, то не стесняйся отмечать её таковой

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:19, 22-08-2010 | #21



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 138
Благодарности: 3

Профиль | Отправить PM | Цитировать


хм...
скармливаем такой list.txt
Код: Выделить весь код
http://www.teachvideo.ru/v/737
http://skillopedia.ru/material.php?id=8923
http://iqcomp.ru/learn/course.php?cid=7&lid=99
получаем на выходе MySuperLinks.txt
Код: Выделить весь код
http://www.teachvideo.ru/content/antivir/dr_web/video/0102.flv
http://77.220.185.136/data/materials/1345/4bf20180dc737d6b58b8f0b9184d9182/video.flv
третью ссылку не берет никак.
хотя через браузер работает

это из-за знака "&" в третьей ссылке?
как это лечится?

Отправлено: 17:41, 27-08-2010 | #22


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 2995
Благодарности: 984

Профиль | Сайт | Отправить PM | Цитировать


Цитата shadowbat:
хотя через браузер работает »
Ты уверен?

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community


Отправлено: 20:28, 27-08-2010 | #23


Пользователь


Сообщения: 138
Благодарности: 3

Профиль | Отправить PM | Цитировать


http://iqcomp.ru/learn/course.php?cid=7 это же не полная ссылка? там не хватает например такого "&lid=128" в конце ссылки

Цитата:
уверен?

скрин. через браузер работает, а через скрипт не работает

P.S. у скрипта ориентировочная скорость обработки - 1 ссылка за 2,5 секунды. т.е. за час 1500 ссылок.

Последний раз редактировалось shadowbat, 29-08-2010 в 10:16.


Отправлено: 20:37, 27-08-2010 | #24


Пользователь


Сообщения: 138
Благодарности: 3

Профиль | Отправить PM | Цитировать


как настроить скрипт, чтобы он сохранял все ссылки, если на одной странице их больше чем одна?

тут например 5 видео на одной странице.
save2go выдает все 5 для скачки
а скрипт забирает только первую

Отправлено: 14:15, 12-09-2010 | #25


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 2995
Благодарности: 984

Профиль | Сайт | Отправить PM | Цитировать


Цитата shadowbat:
через браузер работает, а через скрипт не работает »
Нужно кодировать адреса.

Возьми отсюда библиотеку Encoding.au3 и помести рядом со скриптом.

Код: Выделить весь код
#include <Encoding.au3>

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
    $sLink = StringRegExpReplace($sHtml, '(?s).*?<b><a href="(.*?)" target="_blank" onclick=".*">.*</a>.*', '\1')

    If @extended > 0 And $sLink <> $sHtml Then
        $sLinks &= $sLink & @CRLF
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)
Цитата shadowbat:
скрипт забирает только первую »
А как их сортировать, или это не важно?

Код: Выделить весь код
#include <Encoding.au3>

Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & _Encoding_URLToHex($aUrl[$i])))
    $aLinks = StringRegExp($sHtml, '.*<b><a href="(.*)" target="_blank" onclick=".*">', 3)

    If Not @error Then
        For $sLink In $aLinks
            $sLinks &= $sLink & @CRLF
        Next
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community


Отправлено: 17:12, 12-09-2010 | #26


Новый участник


Сообщения: 1
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуйте, подскажите как отредактировать этот код, чтобы в итоговом файле была не только ссылка на флеш, но и сам урл из файла List.txt. Можно через пробел, тире или любой другой вариант.

Код: Выделить весь код
Dim $aUrl = StringSplit(StringStripWS(StringRegExpReplace(FileRead(@ScriptDir & "\List.txt"), '(?s).*?(https?://.*?)\r?\n.*?', '\1' & @LF), 3), @LF)

$sLinks = ""

For $i = 1 To $aUrl[0]
    $sHtml = BinaryToString(InetRead("http://save2go.ru/parse/?url=" & $aUrl[$i]))
    $sLink = StringRegExpReplace($sHtml, '(?s).*?<b><a href="(.*?)" target="_blank" onclick=".*">.*</a>.*', '\1')

    If @extended > 0 And $sLink <> $sHtml Then
        $sLinks &= $sLink & @CRLF
    EndIf
Next

$sLinks = StringStripWS($sLinks, 3)

;В буфер обмена
ClipPut($sLinks)

;В файл
FileWrite(@ScriptDir & '\MySuperLinks.txt', $sLinks)

Отправлено: 00:00, 02-05-2017 | #27


Аватара для Creat0R

Must AutoIt


Moderator


Сообщения: 2995
Благодарности: 984

Профиль | Сайт | Отправить PM | Цитировать


Listans,

Код: Выделить весь код
$sLinks &= $sLink & @CRLF
замени на

Код: Выделить весь код
$sLinks &= $sLink & ' ' & $aUrl[$i] & @CRLF

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

Русское сообщество AutoIt | CreatoR's Lab | Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:25, 02-05-2017 | #28



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] как сохранить с помощью save2go.ru МНОГО ссылок?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
как сохранить с помощью save2go.ru МНОГО ссылок? shadowbat Хочу все знать 1 30-08-2010 12:33
Как сохранить фон при перерисовки положения линии созданной с помощью GDI HORRIBLE AutoIt 0 23-06-2010 18:00
Операционная система - как много в этом слове mitsumoto Программное обеспечение Linux и FreeBSD 1 20-06-2010 18:31
[решено] Где посмотреть список свойств ссылок (обычных ссылок интернета)? evg64 AutoIt 4 13-09-2009 13:41
Как отконвертировать html з ссылками в формат для вставки ссылок в форум? spiritmen Хочу все знать 2 23-05-2007 10:52




 
Переход