Смена обоев рабочего стола

@eatmore · Регистрация: 23.05.2010

Студворк — интернет-сервис помощи студентам

нужен скрипт после запуска которого менялся бы фон рабочего стола на любое изображение из определенной папки.

@HackerVlad · 08.07.2024, 20:08

Сообщение от FlasherX

просто выполняется соотв. команда в отношении файла

Из контекстного меню!!! Насколько я правильно понял этот код конечно. То есть если в контекстном меню вдруг не будет пункта, но ничего не сработает?

FlasherX · 08.07.2024, 20:13

Сообщение от HackerVlad

Насколько я правильно понял этот код

Неправильно.

Сообщение от HackerVlad

То есть если в контекстном меню вдруг не будет пункта, но ничего не сработает?

В реестре можно как привязать глагол к меню файла под типу, так и отвязать. Не думаю, что эта связка как-то влияет на выполнение.

@HackerVlad · 08.07.2024, 20:15

FlasherX, хорошо, я обязательно проверю это, у меня как раз на компьютере где-то валяются твики реестра для удаления и добавления этого пунка меню, я раньше как-то занимался этим

FlasherX · 08.07.2024, 20:17

HackerVlad, ОК, сообщите тогда по результату. Самому любопытно. )

@HackerVlad · 08.07.2024, 20:25

Итак для начало создадим новую функцию для универсального решения по технологии FlasherX:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SetWallpaper(FileName)    
    On Error Resume Next
    Set oShA = oShA.Windows.Item.document.Application
    If Not IsObject(oSHA) Then _
    Set oShA = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}").document.Application
    On Error GoTo 0: Er = Not IsObject(oSHA)
    If Er Then Set oShA = CreateObject("Shell.Application")
    oShA.NameSpace(0).ParseName(FileName).InvokeVerb "setdesktopwallpaper"
    If Er Then WSH.Sleep 4000
    Set oFSO = Nothing: Set oShA = Nothing
End Sub
 
SetWallpaper "D:\wallpaper\wallpaper.jpg"

Теперь легко будет тестировать этот новый код при разных условиях...

FlasherX · 08.07.2024, 20:29

Сообщение от HackerVlad

этот новый код

Угу, прям новейший.

Некоторые вещи тут упущены. Да и не было смысла, т. к. мой код можно тестировать как на файле, так и на папке...

@HackerVlad · 08.07.2024, 20:44

FlasherX, мне не нужно по рандому, мне нужно по FileName, извини что пришлось переделать твою функцию, но так мне будет удобнее

Добавлено через 1 минуту

Сообщение от FlasherX

не было смысла

смысл есть, для этой темы это нужно: Скрипт для скачивания обоев с сайта
там для человека нужен код именно по FileName, не по рандому

Добавлено через 3 минуты
FlasherX, да, я протестировал
да, как я и думал, после удаления этого пунка меню перестаёт работать этот код, как только я снова восстанавливаю этот пункт меню то код снова начинает работать

Добавлено через 3 минуты
FlasherX, убедитесь в этом сами, создайте твик реестра Menu Remove.reg с кодом:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Windows Registry Editor Version 5.00
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.bmp\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.dib\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.gif\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.jfif\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.jpe\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.jpeg\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.jpg\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.png\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.tif\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.tiff\Shell]
 
[-HKEY_CLASSES_ROOT\SystemFileAssociations\.wdp\Shell]

Запустите этот твик! После чего из контекстного меню будет немедленно удалён этот пункт меню! Ну и после чего запустите Ваш скрипт и убедитесь сами как он перестанет работать!!!!!!!!!!!! Я был прав!!!!!!!

Затем, создайте ещё один твик реестра Menu Restore.reg с кодом:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
Windows Registry Editor Version 5.00
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.bmp\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.bmp\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.bmp\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.dib\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.dib\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.dib\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.gif\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.gif\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.gif\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jfif\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jfif\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jfif\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpe\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpe\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpe\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpeg\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpeg\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpeg\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpg\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpg\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.jpg\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.png\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.png\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.png\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.tif\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.tif\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.tif\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.tiff\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.tiff\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.tiff\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.wdp\Shell]
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.wdp\Shell\setdesktopwallpaper]
"MultiSelectModel"="Player"
@=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,73,00,\
  74,00,6f,00,62,00,6a,00,65,00,63,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,\
  00,34,00,31,00,37,00,00,00
"NeverDefault"=""
"SuppressionSlapiPolicy"="ChangeDesktopBackground-Enabled"
 
[HKEY_CLASSES_ROOT\SystemFileAssociations\.wdp\Shell\setdesktopwallpaper\Command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,45,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,2e,00,65,00,78,00,\
  65,00,00,00
"DelegateExecute"="{ff609cc7-d34d-4049-a1aa-2293517ffcc6}"

Запустите этот твик! Пункт в контекстном меню графических файлов для смены обоев будет восстановлен в системе! Запустите свой скрипт снова и убедитесь в том, что ваш скрипт снова заработает. Всё же просто.

FlasherX · 08.07.2024, 20:45

Сообщение от HackerVlad

мне не нужно по рандому

Речь шла не про что именно кому-то нужно, а про "легко будет тестировать". При указании пути рандома не будет. В названии скрипта есть "... или указанный графический файл".

Сообщение от HackerVlad

для этой темы это нужно: Скрипт для скачивания обоев с сайта

Там я уже ответил. А тут не нужно.

Сообщение от HackerVlad

после удаления этого пунка меню перестаёт работать этот код

Вопрос в том, что именно было удалено из реестра?

@HackerVlad · 08.07.2024, 20:48

Я же говорил, что пункт в контекстном меню под названием "Сделать фоном Рабочего стола"

FlasherX · 08.07.2024, 20:49

Сообщение от HackerVlad

После чего из контекстного меню будет немедленно удалён этот пункт меню! Ну и после чего запустите Ваш скрипт и убедитесь сами как он перестанет работать!!!!!!!!!!!! Я был прав!!!!!!!

Зачем же так много восклицательных знаков? Я же не просил удалять ветки Shell целиком.

@HackerVlad · 08.07.2024, 20:50

Сообщение от FlasherX

Неправильно.

Очень даже правильно я понял этот код!

Сообщение от FlasherX

Не думаю, что эта связка как-то влияет на выполнение

Очень даже влияет, я же доказал всё наглядными примерами ну.

FlasherX · 08.07.2024, 21:11

Сообщение от HackerVlad

Я же говорил, что пункт в контекстном меню под названием "Сделать фоном Рабочего стола"

Это связка, я о ней и так знал. Речь шла о самой реализации.

Сообщение от HackerVlad

Очень даже правильно я понял этот код!

Нет, так как это в любом случае не выбор пункта меню.

Сообщение от HackerVlad

Очень даже влияет, я же доказал всё наглядными примерами ну.

Хорошо, я же не спорил, а просил сообщить по результату. Спасибо за тест.

@HackerVlad · 08.07.2024, 21:21

Сообщение от FlasherX

Нет, так как это в любом случае не выбор пункта меню.

А что это тогда?

Добавлено через 2 минуты
Ну ладно, не пункт меню так не пункт меню. Глагол так глагол.

FlasherX · 08.07.2024, 21:24

Сообщение от HackerVlad

А что это тогда?

На предыдущей странице ответил. Пункт меню появляется при соотв. записи, которая в т. ч. реализует выполнение соотв. команды, которая вовсе необязательно должна быть связана с манипуляцией в меню, то бишь выбором пункта.

В общем, договорились. )

@HackerVlad · 08.07.2024, 21:29

Сообщение от FlasherX

Спасибо за тест

А по факту ни одной спасибки не поставил.

Добавлено через 3 минуты

Сообщение от FlasherX

Угу, прям новейший

Получается что да, это новейший код, учитывая что в интернете я такого кода не находил ещё хотя искал на многих сайтах и нигде нет.

@nekit270 · 08.07.2024, 21:31

решение, не связанное с тем, что пользователь наворотил в своих SystemFileAssociations.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub SetWallpaper(fileName)
    Set oSh = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
 
    Dim filePath, fileExt, regPath
    filePath = oFSO.GetAbsolutePathName(fileName)
    fileExt = oFSO.GetExtensionName(filePath)
    regPath = "HKEY_CURRENT_USER\SOFTWARE\Classes\SystemFileAssociations\." & fileExt & "\shell\mysetdwp"
 
    oSh.RegWrite regPath & "\", "MySETDWP", "REG_EXPAND_SZ"
    oSh.RegWrite regPath & "\MultiSelectModel", "Player", "REG_SZ"
    oSh.RegWrite regPath & "\NeverDefault", "", "REG_SZ"
    oSh.RegWrite regPath & "\Command\", "%SystemRoot%\Explorer.exe", "REG_EXPAND_SZ"
    oSh.RegWrite regPath & "\Command\DelegateExecute", "{ff609cc7-d34d-4049-a1aa-2293517ffcc6}", "REG_SZ"
 
    Set oAppSh = CreateObject("Shell.Application")
 
    For Each verb in oAppSh.NameSpace(0).ParseName(filePath).Verbs
        If verb.Name = "MySETDWP" Then
            verb.DoIt
        End If
    Next
 
    oSh.RegDelete regPath & "\Command\"
    oSh.RegDelete regPath & "\"
End Sub
 
SetWallpaper "wallpaper.jpg"

@HackerVlad · 08.07.2024, 21:36

Сообщение от nekit270

решение, не связанное с тем, что пользователь наворотил в своих SystemFileAssociations

Спасибо за интересный код, я его сейчас проверил, и убедился что этот код не обновляет рабочий стол и требуется перезагрузка(((

@nekit270 · 08.07.2024, 21:41

Сообщение от HackerVlad

не обновляет

а так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub SetWallpaper(fileName)
    Set oSh = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
 
    Dim filePath, fileExt, regPath
    filePath = oFSO.GetAbsolutePathName(fileName)
    fileExt = oFSO.GetExtensionName(filePath)
    regPath = "HKEY_CURRENT_USER\SOFTWARE\Classes\SystemFileAssociations\." & fileExt & "\shell\mysetdwp"
 
    oSh.RegWrite regPath & "\", "MySETDWP", "REG_EXPAND_SZ"
    oSh.RegWrite regPath & "\MultiSelectModel", "Player", "REG_SZ"
    oSh.RegWrite regPath & "\NeverDefault", "", "REG_SZ"
    oSh.RegWrite regPath & "\Command\", "%SystemRoot%\Explorer.exe", "REG_EXPAND_SZ"
    oSh.RegWrite regPath & "\Command\DelegateExecute", "{ff609cc7-d34d-4049-a1aa-2293517ffcc6}", "REG_SZ"
 
    Dim canReturn
    canReturn = False
 
    While Not canReturn
        Set oAppSh = CreateObject("Shell.Application")
        For Each verb in oAppSh.NameSpace(0).ParseName(filePath).Verbs
            If verb.Name = "MySETDWP" Then
                verb.DoIt
                canReturn = True
            End If
        Next
    Wend
 
    oSh.RegDelete regPath & "\Command\"
    oSh.RegDelete regPath & "\"
End Sub
 
SetWallpaper "wallpaper.jpg"

FlasherX · 08.07.2024, 21:42

Сообщение от HackerVlad

Получается что да, это новейший код

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

Сообщение от HackerVlad

учитывая что в интернете я такого кода не находил ещё

Поисковые проблемы они же такие. Один ищет днями/неделями, другому хватает 5 секунд.

@HackerVlad · 08.07.2024, 21:58

Сообщение от nekit270

а так?

по прежнему не работает, из достоинтв этого кода могу лишь отметить что этот код не сбивает пользовательскую настройку, если у меня картинка на рабочем столе стояла как Растягивать во всю ширину, в отличии от первоначального кода с реестром, где сбивало эту настройку.

Добавлено через 2 минуты

Сообщение от FlasherX

Новизны тут нет, это лишь мелкая ретушь чужого (моего) кода

Всё равно спасибо вам большое за этот код, вряд ли можно будет придумать решение лучше.

Добавлено через 1 минуту
FlasherX, самая большая проблема, что нет такого кода который взял бы и обновил рабочий стол. Разве что уничтожить процесс explorer.exe и снова его запустить.

Добавлено через 1 минуту

Сообщение от HackerVlad

Разве что уничтожить процесс explorer.exe и снова его запустить.

Извиняюсь, в семёрке у меня и этот трюк даже не проходит...

Добавлено через 1 минуту
Я забыл, что в новых версиях виндовс, сейчас же обои рабочего стола находятся не в процессе explorer.exe

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@eatmore 2 / 2 / 0 Регистрация: 23.05.2010 Сообщений: 5

	Смена обоев рабочего стола 28.05.2010, 16:19. Показов 22714. Ответов 80 Метки нет (Все метки) нужен скрипт после запуска которого менялся бы фон рабочего стола на любое изображение из определенной папки. 2

@HackerVlad Вернулся 1771 / 667 / 45 Регистрация: 10.09.2021 Сообщений: 2,812
	08.07.2024, 20:15
	FlasherX, хорошо, я обязательно проверю это, у меня как раз на компьютере где-то валяются твики реестра для удаления и добавления этого пунка меню, я раньше как-то занимался этим 0

FlasherX 7690 / 2887 / 1110 Регистрация: 06.06.2017 Сообщений: 9,816
	08.07.2024, 20:17
	HackerVlad, ОК, сообщите тогда по результату. Самому любопытно. ) 0

@HackerVlad Вернулся 1771 / 667 / 45 Регистрация: 10.09.2021 Сообщений: 2,812
	08.07.2024, 20:48
	Я же говорил, что пункт в контекстном меню под названием "Сделать фоном Рабочего стола" 0