Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Другие языки > (VBS) Авторизация и скачивание файла


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

Автор: Lipetsk 23.12.2011, 07:14
Цитата(NotFound @  22.12.2011,  19:45 Найти цитируемый пост)
Set objForm = objIE.Document.forms("auth")
 'Set objForm = objIE.Document.forms(0)
 objForm.elements("login").value = "pupkin" ' здесь какого-то ошибку выдает, хотя элемент login на сайте есть

есть на сайте, но есть ли на форме?

Автор: NotFound 6.1.2012, 11:51
на форме

Автор: Lipetsk 6.1.2012, 22:28
Цитата(NotFound @ 6.1.2012,  09:51)
на форме

на форме "auth" ???

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