Тема: HTA,VBS: Автообновление приложения и скриптов
Здравствуйте, есть приложение на .hta, появилась необходимость его обновления, чтобы не выкачивать весь клиент, а обновить только, сами скрипты.
Начал писать обработчик, проверку понятно как выполнить, но как выкачивать сам файл и заменить его...
<HTML>
<HEAD>
<TITLE>Update</TITLE>
<HTA:APPLICATION
ID="HtaUpdate"
VERSION="0.00"
APPLICATIONNAME="HtaUpdate"
SYSMENU="yes"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
BORDER="thin"
INNERBORDER="thin"
SCROLL="auto"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
<SCRIPT TYPE="text/vbscript" LANGUAGE="VBScript">
Option Explicit
Dim strAppId, strAppName, strAppVer
Const ROOT_URL = "\\10.2.10.93\c$\2\" 'путь для загрузки
Const FILE_NAME = "version" ' имя файла
strAppId = HtaUpdate.ID ' название файла - ID
strAppName = HtaUpdate.ApplicationName 'имя приложение в титле
strAppVer = HtaUpdate.Version 'версия приложения - текущая
Sub Window_OnLoad()
CheckForUpdates
AppName.InnerHTML = strAppName
AppVersion.InnerHTML = strAppVer
End Sub
Sub CheckForUpdates
strCurrentVer = strAppVer ' текущая версия = версии приложения
strLatestVer = ' последняя версия = лежит на сервере
If strLatestVer > strCurrentVer Then
Update.InnerHTML = "<p> Вы используете версию (" & strCurrentVer _
& ") приложения - " & strAppName _
& ".<br/>Последняя версия приложения" _
& strLatestVer & " доступа " _
& "<a href="" strfullurlwithoutextension="">здесь</a>.<p/><p/><p/>"
end if
If strLatestVer < strCurrentVer Then
Update.InnerHTML = "<p>Вы используете последнию версию " & strCurrentVer _
& " приложения - " & strAppName "</p>"
End If
end sub
</SCRIPT>
</SCRIPT>
</HEAD>
<BODY>
<DIV ALIGN="center">
<H1>Update</H1>
<P> </P>
<SPAN ID="Update"> </SPAN>
<P> </P>
</SPAN>
<P> </P>
<P id=footer>
<SPAN ID="AppName">Application Name</SPAN>, Version <SPAN ID="AppVersion"></SPAN>
</P>
</DIV>
</BODY>
</HTML>