Этап 1 создаём скрипт.
Вот вам скрипт на HTA, который отображает анимацию в центре экрана.
Замените в скрипте вот эту строку logotip.gif на вашу анимацию...
Данный файл сохраняем с расширением HTA, назовём его например script.hta.
<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>application</title>
<hta:Application
Id="oHTA"
ApplicationName="application"
Border="none"
Caption="no"
ContextMenu="no"
InnerBorder="no"
MaximizeButton="no"
MinimizeButton="no"
Navigable="no"
Scroll="no"
ScrollFlat="no"
Selection="no"
ShowInTaskbar="yes"
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), """", ""), "logotip.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
</script>
</html>
Этап 2 создаём батник.
В батнике пишем
@echo off
start script.hta
ping -n 5 127.0.0.1 > nul
taskkill /f /IM mshta.exe > NUL
Exit
Данный файл сохраняем с расширением bat, назовём его например Start.bat.
Теперь запускаем файл Start.bat
P.S.
Все файлы Start.bat, script.hta, и анимация лежать должны в одной папке.