nixp.ru v3.0

17 октября 2017,
вторник,
01:14:44 MSK

DevOps с компанией «Флант»
NotFound написал 22 декабря 2011 года в 22:51 (2828 просмотров) Ведет себя неопределенно; открыл 2 темы в форуме.

Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?

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