VPF::VBS: download file - Форум программистов

quasi

Дата 14.4.2008, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Подскажите как можно с сана скачать файлик? Там предварительно нужно региться, простые довлоадменеджеры тоже не справляются, решил это дело сделать скриптом, вроде этого...

Код

    strFileURL = "http://cds.sun.com/file.iso/"
    strHDLocation = "C:\file.iso"
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     objXMLHTTP.open "GET", strFileURL, false
    objXMLHTTP.send()
     If objXMLHTTP.Status = 200 Then
      Set objADOStream = CreateObject("ADODB.Stream")
      objADOStream.Open
      objADOStream.Type = 1 'adTypeBinary
       objADOStream.Write objXMLHTTP.ResponseBody
      objADOStream.Position = 0    'Set the stream position to the start
       Set objFSO = Createobject("Scripting.FileSystemObject")
        If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
      Set objFSO = Nothing
       objADOStream.SaveToFile strHDLocation
      objADOStream.Close
      Set objADOStream = Nothing
    End if
     Set objXMLHTTP = Nothing

и тоже не выходит, файл не качается. Как скачать?

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