[решено] Скрипт vbs который отображает картинку (Логотип.gif) на экране

Iska · Отправлено: **06:56, 30-06-2013** | #2

angel_lyucifer, зачем?

В WSH нет средств для создания окон. Если использовать IE — будут границы и надпись в заголовке. Используйте 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>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="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">
		Dim strImgSource
		Dim objStdPicture
		
		strImgSource = "c:\My Path\bla-bla-bla.gif"
		
		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
	</script>
</html>