Сделать произвольную/заданную картинку фоном Рабочего стола
Select messages from
# through # FAQ
[/[Print]\]

Total Commander -> Автоматизация Total Commander

#1: Сделать произвольную/заданную картинку фоном Рабочего стола Author: FlasherLocation: Москва PostPosted: Fri Feb 24, 2017 08:02
    —
Посмотрел на старые решения (1, 2) и решил выложить свой скрипт без использования утилит:
Code:
'••••••••••••••••••••••••••••••••••••••••••••• VBS ••••••••••••••••••••••••••••••••••••••••••••••
' Сделать произвольный в заданной папке или подкурсорный файл фоновым изображением Рабочего стола
' Параметр: "<Путь к папке с картинками или к графическому файлу>"
' Примеры:  "%P"  |  %P%N  |  D:\MyWallpapers
'••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
Item = WSH.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
Filt = "*.bmp;*.gif;*.jpg;*.jpeg;*.png;*.tif;*.tiff"
If FSO.FileExists(Item) Then
  If InStr(Filt & ";*", "." & LCase(FSO.GetExtensionName(Item)) & ";*") Then File = Item Else WSH.Quit
ElseIf FSO.FolderExists(Item) Then
  Set Items = CreateObject("Shell.Application").NameSpace(Item).Items
  Items.Filter 73920, Filt
  Cnt = Items.Count : If Cnt = 0 Then WSH.Quit
  Randomize: File = Items.Item(CLng(Round(Rnd * (Cnt - 1), 0))).Path
Else WSH.Quit : End If
GetObject("new:{9BA05972-F6A8-11CF-A442-00A0C90A8F39}").Item.document. _
Application.NameSpace(0).ParseName(File).InvokeVerb "setdesktopwallpaper"



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group