![]() |
|
|
![]()
|
|
| NotFound |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 14.3.2011 Репутация: нет Всего: нет |
Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
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 |
|||
|
||||
| Lipetsk |
|
|||
![]() в форме ;) ![]() Профиль Группа: Участник Сообщений: 180 Регистрация: 28.1.2009 Где: Липецк Репутация: 2 Всего: 5 |
||||
|
||||
| NotFound |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 14.3.2011 Репутация: нет Всего: нет |
на форме
|
|||
|
||||
| Lipetsk |
|
|||
![]() в форме ;) ![]() Профиль Группа: Участник Сообщений: 180 Регистрация: 28.1.2009 Где: Липецк Репутация: 2 Всего: 5 |
на форме "auth" ??? |
|||
|
||||
![]()
|
| Добро пожаловать в раздел "Другие языки" форума Vingrad! | |
|
|
Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)
Приятного времяпрепровождения! С уважением, Void, kemiisto . |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Другие языки | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |