<![CDATA[Серый форум — HTA: отображение анимированной заставки]]> http://forum.script-coding.com/viewtopic.php?id=8548 Thu, 08 Aug 2013 19:22:11 +0000 PunBB <![CDATA[HTA: отображение анимированной заставки]]> http://forum.script-coding.com/viewtopic.php?pid=74327#p74327
+ открыть спойлер

нужен скрипт 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 секунд.

]]> Thu, 08 Aug 2013 19:22:11 +0000 http://forum.script-coding.com/viewtopic.php?pid=74327#p74327