![]() |
1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!
![]() ![]() |
![]() |
GrabbeR |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
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 -------------------- Чем больше я узнаю, тем больше понимаю, что ничего не знаю
|
IUnknown |
![]()
Сообщение
#2
|
![]() a.k.a. volvo877 ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата здесь какого-то ошибку выдает, хотя элемент login на сайте есть Есть. Только не в нулевой форме. Посмотри внимательно, нулевая форма - выбор языка. |
GrabbeR |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Есть. Только не в нулевой форме. Посмотри внимательно, нулевая форма - выбор языка. С ошибкой разобрался, вместо auth должен login стоять но как "подружить" эти отдельные сессии? -------------------- Чем больше я узнаю, тем больше понимаю, что ничего не знаю
|
![]() ![]() |
![]() |
Текстовая версия | 12.09.2024 14:13 |