1 Тема от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Тема: VBS: Частичное скачивание файла/потока

Люди, есть какие-то мысли, как забрать часть файла из сети?
Пока файл не скачается (ResponseBody) целиком, мы не можем отделить текущие байты в переменную?

URL = "http://ru-element.ru/playlist/playlist.php?ch=167&d=12.01.13"
With CreateObject("WinHttp.WinHttpRequest.5.1")
  ' Ставим опции на обработку редиректов:
  .Option(6) = True : .Option(12) = True : .Option(14) = 5
  .Open "GET", URL, false
  .Send
  .WaitForResponse 5, True
  Stream = .ResponseBody
  WScript.Sleep 5  'Ждём 5 сек
  .Abort  ' Пытаемся прервать Send, скрипт остаётся висеть
End With

' Пишем в файл
With CreateObject("ADODB.Stream")
  .Mode = 3
  .Type = 1
  .Open
  .Write Stream
  .SaveToFile "C:\NewFile.ext"
  .Close
End With