CMD/BAT

angel_lyucifer · Конфигурация компьютера

Этап 1 создаём скрипт.
Вот вам скрипт на HTA, который отображает анимацию в центре экрана.
Замените в скрипте вот эту строку

PHP код:


logotip.gif

на вашу анимацию...
Данный файл сохраняем с расширением HTA, назовём его например script.hta.

PHP код:


<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 создаём батник.
В батнике пишем

PHP код:


@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, и анимация лежать должны в одной папке.

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

angel_lyucifer, при копировании кода лучше заботиться о наглядности, нежели о раскраске. Называть пакетные файлы именами внутренних или внешних команд — бомба замедленного действия. Тем паче, что пакетный файл — лишний. «ShowInTaskbar="no"»+«setTimeout "close", время в секундах * 1000»:

Код:

<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>

P.S. Я примерно это и подразумевал, говоря ранее:

Цитата Iska:

Нет. Только с помощью каких-либо приложений или утилит, встроенных, або сторонних. »

icq99999999 · Отправлено: **11:12, 06-08-2013** | #13

Цитата Iska:
Код: »
вот то, что мне было нужно, большое СПАСИБО!

Start · Отправлено: **12:23, 17-08-2014** | #14

Iska,
Скажите, как сделать, что-бы изображение было поверх всех окон и во весь экран?
И где по этим командам справку можно посмотреть?

Iska · Отправлено: **13:29, 17-08-2014** | #15

Цитата Start:

Iska,
Скажите, как сделать, что-бы изображение было поверх всех окон и во весь экран? »

А зачем?

Цитата Start:

И где по этим командам справку можно посмотреть? »

HTA Приложения для Internet Explorer
VBScript - MSDN - Microsoft, можно загрузить отдельно: Download Windows Script 5.6 Documentation from Official Microsoft Download Center (перед употреблением разблокировать).

Start · Отправлено: **14:08, 17-08-2014** | #16

Iska, спасибо

Цитата Iska:

А зачем? »

Я думал так закрыть на несколько секунд видимые окна при выполнении бат-файлов, но наверное это лишнее.

Iska · Отправлено: **14:23, 17-08-2014** | #17

Цитата Start:

Я думал так закрыть на несколько секунд видимые окна при выполнении бат-файлов, но наверное это лишнее. »

Угу, лишнее.

Скрытие консольных окон - OSzone .net
Скрываем консольные окна — OSZone.net wiki

Guman · Отправлено: **07:31, 22-02-2018** | #18

все это конечно хорошо и работает самое главное. но вот подскажите как сделать так чтобы можно было выводить два изобрадения....
то есть нужно чтобы был фон(одно изображение) и на фоне анимированя картинка (втрое изображение), а еще была бы возможность вывести текст....

Patroklos · Отправлено: **18:23, 22-02-2018** | #19

Цитата Guman:

нужно чтобы был фон(одно изображение) и на фоне анимированя картинка (втрое изображение), »

http://www.dcmembers.com/skwire/download/frameless/

Guman · Отправлено: **10:47, 26-02-2018** | #20

Patroklos хорошая идея, но есть проблемы и ограничения.. это не совсем то что мне надо... но есть функции по лучше сравнивая со скриптом.
вот недостатки самой утилиты
****- Щелчок правой кнопкой мыши по изображению вызовет небольшое контекстное меню.
****- Можно перемещать изображение вокруг, удерживая левый клик по нему.
****- Можно изменять размер изображений, как и в обычном окне Удерживая shift.
****- Изменение размера изображения (растягивание скажем на весь экран - не поддерживается) вернее поддерживается но не изображение растягивается, а рамки широкие выходят по бокам или снизу... смотря как растягивать..
****- так же при нажатии на пробел переключает на другие изображение находящиеся в папке программы

Моя задача такая. будет встраиваться это в сам процесс установки установочного образа Windows 7. чтобы поверх закрывало саму установку дополнительних программ.(может есть другое решение)

Мне нужно чтобы можно было вывести фоновое изображение поверх всех окон в режиме fullscreen, которую нельзя было бы закрыть ни как (как реализовано в Frameless, а именно чтобы отключить горячие клавиши типа Alt + F4, Escape и т.д.).. скрытие в *taskbar (нет кнопки на панели задач Windows).... Не позволяет изменять размер изображения или что то другое с помощью мыши! Чтобы не было ни каких лишних кнопок типо «Выход» или какие нибудь контекстные меню.

кроме этого нужно вывести по Центру всего этого значок загрузки (можно сделать вывод gif с альфа-призрачностью), а так же нужна возможность чтобы можно было вывести текст на все это.
было бы идеально если можно было выводит текст скажем с какого нить txt файла.
обьясну суть. будет запускаться bat файл который будет ставить программы и делать какие то иные веши... так вот во время этого можно реализовать так чтобы bat файл создавал txt файл и записывал туда какой нить текст .. а уже наш скрипт оттуда постоянно мониторил и выводил на экран текст с этого файла

помогите реализовать это пожалуйста