1 Тема от feniks

  • feniks
  • Участник
  • Неактивен

Тема: HTA: Загрузка Архива в нужную папку из Формы

Всем привет!

Помогите с одной проблемой!

Допустим есть форма (test.hta) и на ней кнопка. Как при нажатии на кнопку сделать чтобы началась загрузка архива из интернета в нужную папку! И после окончания загрузки выходило сообщение (загрузка завершена!)

Заранее большое спасибо!

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

Код hta не приведён. URL не приведён. «Нужная папка» не обозначена. Так что, только: VBScript: загрузка файлов из Интернет.

3 Ответ от feniks (изменено: feniks, 2013-03-10 10:13:23)

  • feniks
  • Участник
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

alexii пишет:

Код hta не приведён. URL не приведён. «Нужная папка» не обозначена. Так что, только: VBScript: загрузка файлов из Интернет.

Угу голову ломал ломал себя но я VBScript полный нуль не буду скрывать, так я его и не смог зацепить к hta

1) Форма hta пустая;
2) Архив будет лежать http://disk.yandex.ru/;
3) Нужная(конечная) папка : \temp;

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

Тогда ждите специалистов по переводу на JScript.

5 Ответ от feniks

  • feniks
  • Участник
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

Угу все равно большое спасибо!

6 Ответ от feniks (изменено: feniks, 2013-03-10 13:27:47)

  • feniks
  • Участник
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

Ребят помогите к пустой форме hta c кнопкой(при клике на которую будет начинаться скачка) зацепить вот этот VBScript скрипт только под я.диск :


Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
oXMLHTTP.Open "GET", "http://www.script-coding.com/ocs_last.dos.zip", 0
'получение файла
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
'сохранение (с перезаписью файла при необходимости)
oADOStream.SaveToFile "D:\Temp\ocs_last.dos.zip", 2
MsgBox "Файл D:\Temp\ocs_last.dos.zip сохранён."

Зарание большое спасибо!

7 Ответ от Rom5

  • Rom5
  • Участник
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

На форму добавляем кнопку, у которой в событиях "onclick=''" указываем свою vbscript-процедуру, а саму процедуру помещаем на форму в раздел <SCRIPT language='VBScript'>: 


<HTML>
    <HEAD>
        <TITLE>test</TITLE>
        <HTA:APPLICATION ID="oHTA_loadMyYandex"
          SCROLL="yes"
          SELECTION="yes"
        />
    </HEAD>
    <BODY>
        <input type="button" value="Load" onclick="ue_runLoad();" title="Загрузка файла">
        <SCRIPT language="VBScript">
                Sub ue_runLoad
                    Dim sURL
                    sURL = "http://www.script-coding.com/ocs_last.dos.zip"
                    If MsgBox("Будем загружать файл " & sURL & " ?", vbYesNo, "Подтверждение загрузки")=vbYes Then
                        Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
                        'подключение
                        oXMLHTTP.Open "GET", sURL, 0
                        'получение файла
                        oXMLHTTP.Send
                        Set oADOStream = CreateObject("ADODB.Stream")
                        oADOStream.Mode = 3 'разрешение на чтение и запись
                        oADOStream.Type = 1 'тип данных - Binary
                        oADOStream.Open
                        oADOStream.Write oXMLHTTP.responseBody
                        'сохранение (с перезаписью файла при необходимости)
                        oADOStream.SaveToFile "D:\Temp\ocs_last.dos.zip", 2
                        MsgBox "Файл D:\Temp\ocs_last.dos.zip сохранён."
                    End IF
                END SUB
        </SCRIPT>
    </BODY>
</HTML>
WBR. Roman

8 Ответ от feniks

  • feniks
  • Участник
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

Rom5 Большое спасибо!!!

9 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: HTA: Загрузка Архива в нужную папку из Формы

OFF: Ну, вот . И JScript на самом деле не потребовался.