Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

Форум на все случаи жизни _ WEB дизайн и прикладное программирование _ (VBS) Авторизация и скачивание файла

Автор: NotFound 22.12.2011 - 21:55

Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)