[решено] Вывод изображения на весь экран в заданное время

Iska · Отправлено: **00:22, 30-06-2015** | #7

Цитата Nic0p0L:

1 он закрывается автоматически, через 5 сек. »

Цитата:

Код:

' Automatically close the windows after 5 seconds
idTimer = window.setTimeout("vbscript:window.close", 5000)

Цитата Nic0p0L:

Как изменить закрытие по нажатию любой кнопки?
2 открывается в фиксированном разрешении. Возможно сделать так, что бы автоматически подгонял под разрешение экрана?
3 если мое изображение меньше чем разрешение экрана, то вокруг него белое поле. Возможно растягивать изображение? Или изменить цвет поля?
»

Например, так:

Скрытый текст

Код:

<html id="Info">
    <head>
        <meta charset="windows-1251">
        <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
        <meta http-equiv="Content-Language" content="ru">
        <title>Info title</title>
        <hta:Application
            Icon="MyIconFile.ico"
            Id="Info"
            ApplicationName="Info"
            Border="dialog"
            BorderStyle="static"
            Caption="yes"
            ContextMenu="no"
            InnerBorder="yes"
            MaximizeButton="no"
            MinimizeButton="yes"
            Navigable="no"
            Scroll="no"
            ScrollFlat="no"
            Selection="no"
            ShowInTaskbar="yes"
            SingleInstance="yes"
            SysMenu="yes"
            Version="1.0"
            WindowState="normal"
        />
        
        <style type="text/css">
            BODY {
                font: x-small Verdana, Arial, sans-serif;
                color: WindowText;
                background-color: ButtonFace;
                margin: 0px;
                padding: 0px;
            }
        </style>
        
        <script language="VBScript">
		</script>
	</head>
	
	<body id="tagBody" scroll="no" onkeydown="Quit()" onmousedown="Quit()">
		<table style="width: 100%; height: 100%;">
			<tr>
				<td align="center">
					<img src="C:\Windows\Web\Wallpaper\Windows\img0.jpg" width="100%" height="100%" />
				</td>
			</tr>
		</table>
	</body>
	
	<script language="VBScript">
		Option Explicit
		
		With window
			.resizeTo .screen.availWidth, .screen.availHeight
			.moveTo 0, 0
		End With
		'=====================================================================
		
		'=====================================================================
		Sub Quit()
			window.close
		End Sub
	</script>
</html>