IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Авторизация и скачивание файла (VBS)
сообщение
Сообщение #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


--------------------
Чем больше я узнаю, тем больше понимаю, что ничего не знаю
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

Репутация: -  627  +


Цитата
здесь какого-то ошибку выдает, хотя элемент login на сайте есть
Есть. Только не в нулевой форме. Посмотри внимательно, нулевая форма - выбор языка.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


Цитата(IUnknown @ 22.12.2011 22:56) *

Есть. Только не в нулевой форме. Посмотри внимательно, нулевая форма - выбор языка.

С ошибкой разобрался, вместо auth должен login стоять
но как "подружить" эти отдельные сессии?


--------------------
Чем больше я узнаю, тем больше понимаю, что ничего не знаю
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name