[Iska]

Можно. Либо с помощью сторонних программ, либо WSH, либо PoSH.

А зачем?

[sov44]

А зачем? »

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

[Iska]

sov44, надо понятней изъясняться.

Я понял, что основная проблема в том, что у разных пользователей мониторы с разными форм-факторами. Соответственно, скорее всего, будут и разные пропорции, у одних — 4x3, у других 16:9 и т.п.

И Вы хотите существующие изображения привести к пропорциям установленного у пользователей форм-фактора разрешения, иначе при установке «Расположение: Растянуть» у одних пользователей будет нормально, у других — изображение будет растянуто или ужато. И Вы хотите от этого избавиться. Так?

[sov44]

Так? »

Так.

[Iska]

sov44, на основе этого кода сделал такое:

читать дальше »

Код:

Option Explicit

Dim objFSO
Dim objFile

Dim strPath2Wallpapers
Dim strPath2File

Dim objImageFile
Dim objImageProcess

Dim lngScreenHeight
Dim lngScreenWidth

Dim lngDelta


Set objFSO          = WScript.CreateObject("Scripting.FileSystemObject")
Set objImageFile    = WScript.CreateObject("WIA.ImageFile")
Set objImageProcess = WScript.CreateObject("WIA.ImageProcess")

strPath2Wallpapers = objFSO.BuildPath(objFSO.GetSpecialFolder(0).Path, "Web\Wallpaper")

With WScript.CreateObject("htmlfile")
	With .Script.screen
		lngScreenHeight = .Height
		lngScreenWidth  = .Width
	End With
End With

If objFSO.FolderExists(strPath2Wallpapers) Then
	For Each objFile In objFSO.GetFolder(strPath2Wallpapers).Files
		WScript.Echo objFile.Path
		
		objImageFile.LoadFile objFile.Path
		
		With objImageProcess
			.Filters.Add .FilterInfos("Crop").FilterID
			
			With .Filters(1).Properties
				If lngScreenHeight / lngScreenWidth > objImageFile.Height / objImageFile.Width Then
					' Подрежем справа-слева
					lngDelta = (objImageFile.Width - objImageFile.Height * lngScreenWidth / lngScreenHeight) / 2
					
					.Item("Left")   = lngDelta
					.Item("Right")  = lngDelta
				ElseIf lngScreenHeight / lngScreenWidth < objImageFile.Height / objImageFile.Width Then
					' Подрежем сверху-снизу
					lngDelta = (objImageFile.Height - objImageFile.Width * lngScreenHeight / lngScreenWidth) / 2
					
					.Item("Top")    = lngDelta
					.Item("Bottom") = lngDelta
				Else
					' Nothing to do
				End If
			End With
			
			Set objImageFile = .Apply(objImageFile)
			
			.Filters.Remove 1
		End With
		
		' Перезаписывать существующий файл компонент не умеет,
		' потому предварительно удаляем файл…
		strPath2File = objFile.Path
		objFile.Delete
		
		' Сохраняем файл под тем же именем:
		objImageFile.SaveFile strPath2File
	Next
Else
	WScript.Echo "Wallpaper's folder [" & strPath2Wallpapers & "] not found"
End If

Set objImageProcess = Nothing
Set objImageFile    = Nothing
Set objFSO          = Nothing

WScript.Quit 0

Пробуйте.

Код для простоты сделан со следующими ограничениями:

* полагаем, что в папке «%SystemRoot%\Web\Wallpaper» нет иных файлов, кроме как изображений форматов, поддерживаемых библиотекой WIA;
* оригинальные файлы не сохраняются;
* изображения не масштабируются, только равномерно обрезаются до пропорций текущего разрешения экрана (и без учёта места, занимаемого панелью задач) с противоположных сторон.

[sov44]

Iska, а с каким расширением сохранять скрипт и в какой кодировке?

[Iska]

Расширение — «.vbs», кодировка — «Windows-1251», запуск:

Код:

cscript.exe //nologo "<путь к файлу скрипта>"

[sov44]

Iska, не получилась обработка картинок.
Для пробы изменил путь к картинкам на

Код:

strPath2Wallpapers = objFSO.BuildPath(objFSO.GetSpecialFolder(0).Path, "Web\Wallpaper1")

и запустил скрипт через командное окно тотала

Код:

cscript.exe //nologo "c:\перевалка\обрезка картинок.vbs"

п.с. можно ли сделать, чтобы скрипт запускался сразу, не прописывая каждый раз путь к нему?

[Iska]

Iska, не получилась обработка картинок. »

А что получилось?

п.с. можно ли сделать, чтобы скрипт запускался сразу, не прописывая каждый раз путь к нему? »

Поясните Ваш вопрос.