Русское сообщество AutoIt

  • Май 22, 2012, 14:18:53 *
  • Добро пожаловать, Гость
Пожалуйста, войдите или зарегистрируйтесь.

Войти
Расширенный поиск  

Новости:

Вы новичок? Хотите начать изучение AutoIt и не знаете с чего начать?

Для начала ознакомьтесь с темой Быстрый старт для работы с AutoIt.
Затем осмотрите раздел Инструменты и помощь по AutoIt.

Реклама

Автор Тема: Помогите вытащить ссылки которые генерятся javascript  (Прочитано 991 раз)

0 Пользователей и 1 Гость смотрят эту тему.

komorov74 [?]

в крации вот отсюда http://ru.savefrom.net/http:/youtube.com/watch?_openstat=shrt;sfrom;;&v=u7deClndzQw надо вытащить ссылки на mp4 c расширением 360 и 720 p и положить в текстовой файлик!!!! -буду очень благодарен!!!

не могу сам допетрить!!!! >:(
« Последнее редактирование: Январь 28, 2012, 14:26:13 от komorov74 »



  Записан

Medic84 [?]

  • Администратор
  • *
  • *****
  • Репутация: 161
  • Offline Offline
  • Пол: Мужской
  • Сообщений: 943
  • Версия AutoIt: 3.3.6.1
    • WWW
    • Награды
komorov74
И не получится, потому что ссылки генерируются с помощью javascript




  Записан
   
На форуме принято отмечать полезные сообщения кнопкой "Полезное сообщение"
Никогда не даю подробных примеров сразу, я сначала навожу на мысль - как можно написать. Учитесь мыслить сами, а не за других людей.
Моя лаборатория - программы, статьи и ответы на вопросы.

madmasles [?]

  • Локальный модератор
  • *
  • *****
  • Репутация: 1426
  • Online Online
  • Пол: Мужской
  • Сообщений: 3819
  • Версия AutoIt: 3.3.6.1 - 3.3.9.4
    • Награды
komorov74,
Если через IE, то попробуйте так.
Код: AutoIt [Выделить]
#include <IE.au3>

$sUrl = 'http://ru.savefrom.net/'
$sSearch = 'http://www.youtube.com/watch?v=dV-prXX1ZOw&feature=g-logo&context=G2aab634FOAAAAAAAEAA'

$sFormat = 'mp4'
$iQuality = 720
$sLink = ''
$sFileName = ''

;$oIE = _IECreate($sUrl)
;$oForm = _IEGetObjById($oIE, 'sf_form')
;$oInput = _IEFormElementGetObjByName($oForm, 'sf_url')
;_IEAction($oInput, 'focus')
;_IEFormElementSetValue($oInput, $sSearch)
;$oSubmit = _IEFormElementGetObjByName($oForm, 'sf_submit')
;_IEAction($oSubmit, 'click')
$oIE = _IECreate($sUrl & $sSearch)
$iStart = TimerInit()
While 1
    Sleep(500)
    $oTags = _IETagNameGetCollection($oIE, 'div')
    If Not @error Then
        If @extended > 70 Then ExitLoop
    EndIf
    If TimerDiff($iStart) > 20000 Then
        _IEQuit($oIE)
        MsgBox(16, 'Error', 'Error 1')
        Exit
    EndIf
WEnd
For $oTag In $oTags
    If $oTag.classname == 'link' And StringInStr($oTag.innertext, $sFormat) Then
        ConsoleWrite($oTag.innertext & @LF)
        $oLink = _IETagNameGetCollection($oTag, 'a', 0)
        If Not @error Then
            $sLink = $oLink.href
            ConsoleWrite($sLink & @LF)
            If StringInStr($oTag.innertext, $iQuality) Then
                ExitLoop
            EndIf
        EndIf
    EndIf
Next
If Not $sLink Then
    _IEQuit($oIE)
    MsgBox(16, 'Error', 'Error 2')
    Exit
EndIf
$oInputs = _IETagNameGetCollection($oIE, 'input')
For $oInput In $oInputs
    If $oInput.classname == 'file_name' Then
        $sFileName = $oInput.value & '.' & $sFormat
        ConsoleWrite($sFileName & @LF)
        ExitLoop
    EndIf
Next
_IEQuit($oIE)
If $sFileName Then
    MsgBox(64, 'Info', 'Link: ' & $sLink & @LF & 'File name: ' & $sFileName)
Else
    MsgBox(16, 'Error', 'Error 3')
    Exit
EndIf
« Последнее редактирование: Январь 28, 2012, 22:55:52 от madmasles »



  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Большое спасибо!!!!
только похоже на частный случай
если поменять переменную $sSearch

на http://vk.com/video36879551_159705363 то оно перестает искать.

хотя если зайти по ссылки http://ru.savefrom.net/http://vk.com/video36879551_159705363 через браузер,прекрасно показывает что у этого видео есть откуда его скачать.

ПОМОГИТЕ!!!!!!!!




  Записан

madmasles [?]

  • Локальный модератор
  • *
  • *****
  • Репутация: 1426
  • Online Online
  • Пол: Мужской
  • Сообщений: 3819
  • Версия AutoIt: 3.3.6.1 - 3.3.9.4
    • Награды
komorov74,
Ссылка на поиск http://vk.com/video36879551_159705363.


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Чего то я не понял, последнего ответа. Даже не скриншоте видно 3 ссылки на скачивания.
вот их то ине и нужно скопировать в файлик .
Прошу прощения если я очень не понятливый и настырный.




  Записан

madmasles [?]

  • Локальный модератор
  • *
  • *****
  • Репутация: 1426
  • Online Online
  • Пол: Мужской
  • Сообщений: 3819
  • Версия AutoIt: 3.3.6.1 - 3.3.9.4
    • Награды
komorov74,
Сначала Вам надо было вытащить одну ссылку с заданным качеством.




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Моей наглости нет приделу.Спасибо большое!!!
По поводу -вытащить одну ссылку . Вроде в заголовке четко написано "надо вытащить ссылки на mp4 c расширением 360 и 720 p и положить в текстовой файлик "!!!! -буду очень благодарен!!!



Уважаемый тысяча прощений - вот в первом Вашем примере действительно вытаскиваются путевые ссылки для скачивания :)
а в последнем какие то не доделанные ссылки :(

типо http://savefrom.net/get.php?d=122865352&t=90661a60612b5f91d64f4a5264c8a763

а должно что то на mp4 заканчиваться -что бы проиграть в плеере можно было :)

В любом случаи СПАСИБО БОЛЬШОЕ!!!!!!!
« Последнее редактирование: Январь 29, 2012, 21:22:30 от komorov74 »



  Записан

madmasles [?]

  • Локальный модератор
  • *
  • *****
  • Репутация: 1426
  • Online Online
  • Пол: Мужской
  • Сообщений: 3819
  • Версия AutoIt: 3.3.6.1 - 3.3.9.4
    • Награды
komorov74  [?]
Цитата
а в последнем какие то не доделанные ссылки
Откройте  http://ru.savefrom.net/http://vk.com/video36879551_159705363 в любом браузере и попробуйте найти другие ссылки.




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Уважаемый каюсь. Сам дурак -да действительно , ВЫ абсолютно правы!!!!!!




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Уважаемый madmasles  ещё раз спасибо!!!!
Вы не будете против если я Вас в соавторы добавлю ?

Помогите ещё раз (и наверное не последний) !!!!
По приведенным вверху ссылкам там ещё есть маленький скриншотик(видео которое нашли)  можно на него ссылку тоже вытягивать ?




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Ребят проверьте скрипты-они только у меня стали ошибку выдавать или у всех???




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Большая просьба не поленитесь - проверьте -не могу понять толи это у меня с аитой глюк , толи скрипт кривой (хотя раньше работал)- конкретно в консоли ошибка вот на эту штуку $oIE = _IECreate($sUrl) - $sUrl -забивал любой -пишет что не может создать. Куда копать не знаю -до этого стояла другая версия AI. но ехе файл тоже не работает как и скрипт :)




  Записан

madmasles [?]

  • Локальный модератор
  • *
  • *****
  • Репутация: 1426
  • Online Online
  • Пол: Мужской
  • Сообщений: 3819
  • Версия AutoIt: 3.3.6.1 - 3.3.9.4
    • Награды
komorov74,
Вы дайте код, который проверять надо, мой у меня работает.




  Записан

komorov74 [?]

  • Новичок
  • *

  • Автор темы
  • Репутация: 0
  • Offline Offline
  • Сообщений: 68
  • Версия AutoIt: 3
    • Награды
Код в первом вашем ответе
в принципе вот он

Код: AutoIt [Выделить]
#include <IE.au3>

$sUrl = 'http://ru.savefrom.net/'
$sSearch = 'http://www.youtube.com/watch?v=dV-prXX1ZOw&feature=g-logo&context=G2aab634FOAAAAAAAEAA'

$sFormat = 'mp4'
$iQuality = 720
$sLink = ''
$sFileName = ''

;$oIE = _IECreate($sUrl)
;$oForm = _IEGetObjById($oIE, 'sf_form')
;$oInput = _IEFormElementGetObjByName($oForm, 'sf_url')
;_IEAction($oInput, 'focus')
;_IEFormElementSetValue($oInput, $sSearch)
;$oSubmit = _IEFormElementGetObjByName($oForm, 'sf_submit')
;_IEAction($oSubmit, 'click')
$oIE = _IECreate($sUrl & $sSearch)
$iStart = TimerInit()
While 1
    Sleep(500)
    $oTags = _IETagNameGetCollection($oIE, 'div')
    If Not @error Then
        If @extended > 70 Then ExitLoop
    EndIf
    If TimerDiff($iStart) > 20000 Then
        _IEQuit($oIE)
        MsgBox(16, 'Error', 'Error 1')
        Exit
    EndIf
WEnd
For $oTag In $oTags
    If $oTag.classname == 'link' And StringInStr($oTag.innertext, $sFormat) Then
        ConsoleWrite($oTag.innertext & @LF)
        $oLink = _IETagNameGetCollection($oTag, 'a', 0)
        If Not @error Then
            $sLink = $oLink.href
            ConsoleWrite($sLink & @LF)
            If StringInStr($oTag.innertext, $iQuality) Then
                ExitLoop
            EndIf
        EndIf
    EndIf
Next
If Not $sLink Then
    _IEQuit($oIE)
    MsgBox(16, 'Error', 'Error 2')
    Exit
EndIf
$oInputs = _IETagNameGetCollection($oIE, 'input')
For $oInput In $oInputs
    If $oInput.classname == 'file_name' Then
        $sFileName = $oInput.value & '.' & $sFormat
        ConsoleWrite($sFileName & @LF)
        ExitLoop
    EndIf
Next
_IEQuit($oIE)
If $sFileName Then
    MsgBox(64, 'Info', 'Link: ' & $sLink & @LF & 'File name: ' & $sFileName)
Else
    MsgBox(16, 'Error', 'Error 3')
    Exit
EndIf

Проверил ещё раз -вставлял как есть
ошибки в консоли:
MP4 360p
--> IE.au3 V2.4-0 Error from function _IETagNameGetCollection, $_IEStatus_InvalidObjectType
в сплывающем окне -error 2
хотя сайт открывает и ссылку там видно:)




  Записан
 


Похожие темы
Тема Автор Ответов Просмотров Последний ответ
[Ошибки] Использования переменных в теле скрипта которые обьявленны в функции.
AutoIt для новичков
Heler 13 1869 Последний ответ Январь 06, 2010, 22:51:50
от Heler
Как создать меню в трее пункты которые при выборе становятся недоступными
Стол заказов
StarEdik 10 990 Последний ответ Август 28, 2011, 19:31:13
от StarEdik
Как быстро найти файлы, которые изменились за последние 30 секунд?
AutoIt для новичков
Suppir 12 790 Последний ответ Ноябрь 04, 2011, 02:37:56
от Renz
Взаимодействие Autoit и Javascript
AutoIt для новичков
Kirill_T 1 507 Последний ответ Ноябрь 16, 2011, 14:15:10
от BIOS
Как кликать по всем окнам которые соответсвуют условию
AutoIt для новичков
joker2d 2 264 Последний ответ Декабрь 15, 2011, 15:07:26
от agikon
Помогите вытащить E-MAIL из списка
Регулярные выражения и прочее
komorov74 3 492 Последний ответ Январь 24, 2012, 23:17:17
от Medic84
Перенесено: Помогите вытащить E-MAIL из списка.
AutoIt для новичков
CreatoR 0 156 Последний ответ Январь 25, 2012, 00:04:09
от CreatoR
Получить ссылки по заданному URL(дан адрес страницы -получить все ссылки на ней)
Автоматизация IE и Web-интерфейса
Vampire 3 492 Последний ответ Февраль 14, 2012, 07:33:53
от madmasles
Перенесено: [Работа с памятью] помогите вытащить данные из игры
Стол заказов
madmasles 0 117 Последний ответ Март 23, 2012, 22:13:03
от madmasles
Помогите найти нужные ссылки в IE
Общение
eropov 1 96 Последний ответ Май 19, 2012, 18:46:31
от Asshaker


Реклама