(VBS) Авторизация и скачивание файла |
Здравствуйте, гость ( Вход | Регистрация )
Все ссылки на сторонние ресурсы, за исключением офсайтов программ, должны оформляться с помошью тега скрытого текста - [hide=1]Ссылка[/hide]
(VBS) Авторизация и скачивание файла |
NotFound |
22.12.2011 - 21:55
Сообщение
#1
|
Novice Группа: Новичок Сообщений: 1 Регистрация: 14.03.2011 Пользователь №: 263701 |
Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
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 |
Реклама
|
|
|
|
|
|
Текстовая версия | Сейчас: 23.04.2024 - 10:04 |
|