|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.12.2011, 22:39 | #1 |
Пользователь
Регистрация: 17.03.2010
Сообщений: 43
|
(VBS) Авторизация и скачивание файла
Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
PS: После загрузки файл должен очистить куки IE и самоудаляться. Без авторизации файл скачать нельзя - ошибка в строке objForm.elements("login").value = "pupkin" 'авторизация Set objIE = CreateObject("InternetExplorer.Appl ication") 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.FileSystemO bject") objFSO.DeleteFile(strPath) clearCookies = True 'открыть окно браузера 'удаление скачанного файла set fso=createobject("scripting.filesys temobject") set file1=fso.createtextfile("C:\1.7z") file1.close set file2=fso.getfile("C:\1.7z") file2.delete |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скачивание файла winsock | Horus92 | Работа с сетью в Delphi | 13 | 25.02.2011 13:29 |
Скачивание файла | fezilk24 | Работа с сетью в Delphi | 16 | 07.02.2011 18:35 |
Частичное скачивание файла | Usov | Работа с сетью в Delphi | 1 | 19.10.2009 21:45 |
Скачивание файла | Lemo | Помощь студентам | 16 | 28.07.2009 22:54 |
Скачивание файла с прогрессом | CoDeR | Работа с сетью в Delphi | 2 | 22.10.2007 09:10 |