Выбор жанра
Скрипт vbs для сплеш заставки

Скрипт vbs для сплеш заставки

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

Источник: http://forum.script-coding.com/viewtopic.php?id=85...

Скрипт vbs для сплеш заставки

Скрипт vbs для сплеш заставки

Комментарии

Имя:*
E-Mail:
Введите код: *
Болит почка и желудок