Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
PS: После загрузки файл должен очистить куки IE и самоудаляться. Без авторизации файл скачать нельзя
— ошибка в строке objForm.elements(«login»).value = «pupkin»
'авторизация
Set objIE = CreateObject(«InternetExplorer.Application»)
objIE.Visible = False
objIE.Navigate «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», «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
Последние комментарии
- OlegL, 17 декабря в 15:00 → Перекличка 21
- REDkiy, 8 июня 2023 года в 9:09 → Как «замокать» файл для юниттеста в Python? 2
- fhunter, 29 ноября 2022 года в 2:09 → Проблема с NO_PUBKEY: как получить GPG-ключ и добавить его в базу apt? 6
- Иванн, 9 апреля 2022 года в 8:31 → Ассоциация РАСПО провела первое учредительное собрание 1
- Kiri11.ADV1, 7 марта 2021 года в 12:01 → Логи catalina.out в TomCat 9 в формате JSON 1