<![CDATA[Серый форум — HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?id=8132 Sun, 10 Mar 2013 12:34:14 +0000 PunBB <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70124#p70124 OFF: Ну, вот . И JScript на самом деле не потребовался.

]]> Sun, 10 Mar 2013 12:34:14 +0000 https://forum.script-coding.com/viewtopic.php?pid=70124#p70124 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70118#p70118 Rom5 Большое спасибо!!!

]]> Sun, 10 Mar 2013 09:51:26 +0000 https://forum.script-coding.com/viewtopic.php?pid=70118#p70118 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70117#p70117 На форму добавляем кнопку, у которой в событиях "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>
]]> Sun, 10 Mar 2013 09:48:47 +0000 https://forum.script-coding.com/viewtopic.php?pid=70117#p70117 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70116#p70116 Ребят помогите к пустой форме 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 сохранён."

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

]]> Sun, 10 Mar 2013 09:21:11 +0000 https://forum.script-coding.com/viewtopic.php?pid=70116#p70116 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70112#p70112 Угу все равно большое спасибо!

]]> Sun, 10 Mar 2013 06:55:32 +0000 https://forum.script-coding.com/viewtopic.php?pid=70112#p70112 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70110#p70110 Тогда ждите специалистов по переводу на JScript.

]]> Sun, 10 Mar 2013 06:48:51 +0000 https://forum.script-coding.com/viewtopic.php?pid=70110#p70110 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70108#p70108 alexii пишет:

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

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

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

]]> Sun, 10 Mar 2013 06:06:38 +0000 https://forum.script-coding.com/viewtopic.php?pid=70108#p70108 <![CDATA[Re: HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70106#p70106 Код hta не приведён. URL не приведён. «Нужная папка» не обозначена. Так что, только: VBScript: загрузка файлов из Интернет.

]]> Sun, 10 Mar 2013 05:59:10 +0000 https://forum.script-coding.com/viewtopic.php?pid=70106#p70106 <![CDATA[HTA: Загрузка Архива в нужную папку из Формы]]> https://forum.script-coding.com/viewtopic.php?pid=70098#p70098 Всем привет!

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

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

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

]]> Sun, 10 Mar 2013 03:46:15 +0000 https://forum.script-coding.com/viewtopic.php?pid=70098#p70098