#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
#include <IE.au3>
$sFile = @ScriptDir & '\Link.txt'
$sUrl = 'http://ru.savefrom.net/'
$sSearch = 'http://vk.com/video36879551_159705363'
$sFormat = 'mp4'
Dim $aInfo[50][2]
$iCount = 0
$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
$iCount += 1
$aInfo[$iCount][0] = $oTag.innertext
$oLink = _IETagNameGetCollection($oTag, 'a', 0)
If Not @error Then
$aInfo[$iCount][1] = $oLink.href
EndIf
EndIf
Next
If Not $iCount Then
_IEQuit($oIE)
MsgBox(16, 'Error', 'Error 2')
Exit
EndIf
ReDim $aInfo[$iCount + 1][2]
$aInfo[0][0] = $iCount
$oInputs = _IETagNameGetCollection($oIE, 'input')
For $oInput In $oInputs
If $oInput.classname == 'file_name' Then
$aInfo[0][1] = $oInput.value; & '.' & $sFormat
ExitLoop
EndIf
Next
_IEQuit($oIE)
If $aInfo[0][1] Then
$sText = 'File name: ' & $aInfo[0][1] & @CRLF
For $i = 1 To $aInfo[0][0]
$sText &= $aInfo[$i][0] & ': ' & $aInfo[$i][1] & @CRLF
Next
$sText &= '~-~-~-~-~-~-~-~-~-~-~-~-~-~-~' & @CRLF
$hFile = FileOpen($sFile, 1)
FileWrite($hFile, $sText)
FileClose($hFile)
MsgBox(64, 'Info', $sText)
Else
MsgBox(16, 'Error', 'Error 3')
Exit
EndIf
Откройте http://ru.savefrom.net/http://vk.com/video36879551_159705363 в любом браузере и попробуйте найти другие ссылки.а в последнем какие то не доделанные ссылки
#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