Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows
Перезагрузить страницу (VBS) Авторизация и скачивание файла
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
NotFound NotFound вне форума
Новичок
 
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.03.2011
По умолчанию (VBS) Авторизация и скачивание файла - 22.12.2011, 23:49

Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
PS: После загрузки файл должен очистить куки IE и самоудаляться. Без авторизации файл скачать нельзя
- ошибка в строке objForm.elements("login").value = "pupkin"

'авторизация
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate "http://ex.ua/login"
While objIE.Busy
WScript.Sleep 200
Wend
Set objForm = objIE.Document.forms("auth")
'Set objForm = objIE.Document.forms(0)
objForm.elements("login").value = "pupkin" ' здесь какого-то ошибку выдает, хотя элемент login на сайте есть
objForm.elements("password").value = "bla-bla-bla"
objForm.submit()
objIE.Visible = True
'подключение
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://fs106.www.ex.ua/get/5dc6f1d8b8d02c4f96f89423d7c50d43/9668687/SPRUT.rar", 0
'получение файла
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
'сохранение (с перезаписью файла при необходимости)
oADOStream.SaveToFile "C:\1.7z", 2
'удаление кук
Const COOKIES = 33
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(COOKIES)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path & "\*.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strPath)
clearCookies = True 'открыть окно браузера
'удаление скачанного файла
set fso=createobject("scripting.filesystemobject")
set file1=fso.createtextfile("C:\1.7z")
file1.close
set file2=fso.getfile("C:\1.7z")
file2.delete
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скачивание мелодии NERO_1 Музыка 11 12.10.2011 18:53
Скачивание с RuTube. @sovka@ Любые вопросы от новичков 11 06.07.2011 11:56
Авторизация на сервере при скачивания файла, Java zhazhah Java 0 26.06.2011 12:59
Скачивание потокового видео Crab Общетематический 2 09.01.2011 15:17
Долго идет запрос на скачивание файла. Как устранить проблему? ПАТАПЫЧ Любые вопросы от новичков 0 15.08.2010 14:34
Скачивание видео CB111 Видео 17 19.03.2010 21:50
Програмное скачивание файлов с хранилища tusha ASP 3 25.01.2009 17:08
Скачивание файла с сервера batman PHP 2 06.03.2008 11:34
Скачивание файла из Сети ошибка страница 404 kusarik Visual C++ 3 08.09.2006 15:35
Скачивание файла с ресурса по HTTP EDkan Visual C++ 0 06.09.2006 12:15
скачивание файла? 5lim PHP 5 05.01.2006 23:07
Скачивание файлов по авторизации sinAcos Сетевое программирование 1 20.09.2004 18:18



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов