Поиск:

Ответ в темуСоздание новой темы Создание опроса
> (VBS) Авторизация и скачивание файла 
:(
    Опции темы
NotFound
Дата 22.12.2011, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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
PM MAIL   Вверх
Lipetsk
  Дата 23.12.2011, 07:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


в форме ;)
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 28.1.2009
Где: Липецк

Репутация: 2
Всего: 5



Цитата(NotFound @  22.12.2011,  19:45 Найти цитируемый пост)
Set objForm = objIE.Document.forms("auth")
 'Set objForm = objIE.Document.forms(0)
 objForm.elements("login").value = "pupkin" ' здесь какого-то ошибку выдает, хотя элемент login на сайте есть

есть на сайте, но есть ли на форме?
PM   Вверх
NotFound
Дата 6.1.2012, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.3.2011

Репутация: нет
Всего: нет



на форме
PM MAIL   Вверх
Lipetsk
Дата 6.1.2012, 22:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


в форме ;)
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 28.1.2009
Где: Липецк

Репутация: 2
Всего: 5



Цитата(NotFound @ 6.1.2012,  09:51)
на форме

на форме "auth" ???
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Добро пожаловать в раздел "Другие языки" форума Vingrad!

Void
Void

Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)

  • Обязательно следуйте правилам Форума.
  • Пожалуйста, прочитайте и следуйте рекомендациям по работе в разделе и навигации по Форуму.
  • Для вставки текстов исходных кодов используйте подсветку синтаксиса из выплывающего списка Код в форме ответа. Если Ваш язык в списке не представлен, то используйте тег: [code=ваш_язык]код[/code], например, [code=ada]код[/code]. Если в будущем подсветка синтаксиса для указанного языка будет реализована, исходный код преобразится.
  • Помните, один вопрос - одна тема.

Приятного времяпрепровождения! С уважением, Void, kemiisto .

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Другие языки | Следующая тема »


 




[ Время генерации скрипта: 0.0385 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.