. И JScript на самом деле не потребовался.]]>. И JScript на самом деле не потребовался.]]>
<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>
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 сохранён."
Зарание большое спасибо!
]]>Код hta не приведён. URL не приведён. «Нужная папка» не обозначена. Так что, только: VBScript: загрузка файлов из Интернет.
Угу голову ломал ломал себя но я VBScript полный нуль не буду скрывать, так я его и не смог зацепить к hta
1) Форма hta пустая;
2) Архив будет лежать http://disk.yandex.ru/;
3) Нужная(конечная) папка : \temp;
Помогите с одной проблемой!
Допустим есть форма (test.hta) и на ней кнопка. Как при нажатии на кнопку сделать чтобы началась загрузка архива из интернета в нужную папку! И после окончания загрузки выходило сообщение (загрузка завершена!)
Заранее большое спасибо!
]]>