IPB

Здравствуйте, гость ( Вход | Регистрация )

> Правила форума

Все ссылки на сторонние ресурсы, за исключением офсайтов программ, должны оформляться с помошью тега скрытого текста - [hide=1]Ссылка[/hide]

 
Reply to this topicStart new topic
> (VBS) Авторизация и скачивание файла
NotFound
22.12.2011 - 21:55
Сообщение #1


No Avatar
Novice
*
Группа: Новичок
Сообщений: 1
Регистрация: 14.03.2011

Пользователь №: 263701




Не получается скачать файл именно посредством авторизации. Че надо подкорректировать?
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
User is offlineProfile Card PM
Go to the top of the page
+
Реклама

Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0 -

 



- Текстовая версия Сейчас: 21.09.2017 - 02:38
]]> ]]>
]]> Яндекс.Метрика Google+ ]]>
Загружается, подождите...