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