Тема: HTA: отображение анимированной заставки
нужен скрипт vbs который отображает картинку (Логотип.gif) на экране, на пример как в программе Nero 8 когда программа запускается на экране появляется логотип (Анимация).
можно ли открыть изображение/анимацию и вывести на середину экрана ?
<html id="appHTA">
<head>
<meta charset="windows-1251">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<meta http-equiv="Content-Language" content="ru">
<title>My HTA application</title>
<hta:Application
Id="oHTA"
ApplicationName="My HTA application"
Border="none"
Caption="no"
ContextMenu="no"
InnerBorder="no"
MaximizeButton="no"
MinimizeButton="no"
Navigable="no"
Scroll="no"
ScrollFlat="no"
Selection="no"
ShowInTaskbar="no"
SingleInstance="yes"
SysMenu="no"
Version="0.1"
WindowState="normal"
/>
<style type="text/css">
BODY {
color: WindowText;
background-color: ButtonFace;
margin: 0em;
}
</style>
<html>
<body id="tagBody">
<img id="Splash" width="100%" height="100%">
</body>
<script language="VBScript">
Option Explicit
Dim strImgSource
Dim objStdPicture
With CreateObject("Scripting.FileSystemObject")
strImgSource = .BuildPath(Replace(.GetParentFolderName(oHTA.commandLine), """", ""), "My file.gif")
If .FileExists(strImgSource) Then
Set objStdPicture = LoadPicture(strImgSource)
Splash.src = "file://" & strImgSource
With window
.resizeTo Round(objStdPicture.Width / 26.47), Round(objStdPicture.Height / 26.47)
.moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
End With
Else
MsgBox "Can't find path [" & strImgSource & "].", vbOKOnly & vbExclamation
End If
End With
setTimeout "close", 5 * 1000
</script>
</html>
«My file.gif» — файл анимированного изображения, находящийся рядом с *.hta. «5 * 1000» — время на отображение, 5 секунд.