Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Форум программистов и сисадминов Киберфорум > Компьютерный форум > Windows > Администрирование Windows > VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 5 « 1 2 345 »
 
Рейтинг 4.52/101: Рейтинг темы: голосов - 101, средняя оценка - 4.52
2 / 2 / 0
Регистрация: 23.05.2010
Сообщений: 5

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

28.05.2010, 16:19. Показов 22418. Ответов 80
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
нужен скрипт после запуска которого менялся бы фон рабочего стола на любое изображение из определенной папки.
2
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 28.05.2010, 16:19
Ответы с готовыми решениями:

Можно ли с рабочего стола открыть js скрипт, чтобы он вывел messagebox?
Здравствуйте, возник вопрос, можно ли с рабочего стола открыть js скрипт, чтоб он вывел messagebox? Заранее спасибо за ответы нашел...

Настройка удаленного рабочего стола
Помогите пожалуйста настроить удаленный рабочий стол.У меня windows7,и второй комп так же,как настроить,чтобы я смог,находясь в...

Запись сессии удаленного рабочего стола
Мне нужно знать что делает пользователь, после подключения к удаленному рабочему столу. Как мне можно записать сессию удаленного...

80
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 20:08
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от FlasherX Посмотреть сообщение
просто выполняется соотв. команда в отношении файла
Из контекстного меню!!! Насколько я правильно понял этот код конечно. То есть если в контекстном меню вдруг не будет пункта, но ничего не сработает?
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 20:13
Цитата Сообщение от HackerVlad Посмотреть сообщение
Насколько я правильно понял этот код
Неправильно.

Цитата Сообщение от HackerVlad Посмотреть сообщение
То есть если в контекстном меню вдруг не будет пункта, но ничего не сработает?
В реестре можно как привязать глагол к меню файла под типу, так и отвязать. Не думаю, что эта связка как-то влияет на выполнение.
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 20:15
FlasherX, хорошо, я обязательно проверю это, у меня как раз на компьютере где-то валяются твики реестра для удаления и добавления этого пунка меню, я раньше как-то занимался этим
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 20:17
HackerVlad, ОК, сообщите тогда по результату. Самому любопытно. )
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
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"
Теперь легко будет тестировать этот новый код при разных условиях...
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 20:29
Цитата Сообщение от HackerVlad Посмотреть сообщение
этот новый код
Угу, прям новейший.

Некоторые вещи тут упущены. Да и не было смысла, т. к. мой код можно тестировать как на файле, так и на папке...
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
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}"
Запустите этот твик! Пункт в контекстном меню графических файлов для смены обоев будет восстановлен в системе! Запустите свой скрипт снова и убедитесь в том, что ваш скрипт снова заработает. Всё же просто.
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 20:45
Цитата Сообщение от HackerVlad Посмотреть сообщение
мне не нужно по рандому
Речь шла не про что именно кому-то нужно, а про "легко будет тестировать". При указании пути рандома не будет. В названии скрипта есть "... или указанный графический файл".

Цитата Сообщение от HackerVlad Посмотреть сообщение
для этой темы это нужно: Скрипт для скачивания обоев с сайта
Там я уже ответил. А тут не нужно.

Цитата Сообщение от HackerVlad Посмотреть сообщение
после удаления этого пунка меню перестаёт работать этот код
Вопрос в том, что именно было удалено из реестра?
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 20:48
Я же говорил, что пункт в контекстном меню под названием "Сделать фоном Рабочего стола"
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 20:49
Цитата Сообщение от HackerVlad Посмотреть сообщение
После чего из контекстного меню будет немедленно удалён этот пункт меню! Ну и после чего запустите Ваш скрипт и убедитесь сами как он перестанет работать!!!!!!!!!!!! Я был прав!!!!!!!
Зачем же так много восклицательных знаков? Я же не просил удалять ветки Shell целиком.
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 20:50
Цитата Сообщение от FlasherX Посмотреть сообщение
Неправильно.
Очень даже правильно я понял этот код!

Цитата Сообщение от FlasherX Посмотреть сообщение
Не думаю, что эта связка как-то влияет на выполнение
Очень даже влияет, я же доказал всё наглядными примерами ну.
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 21:11
Цитата Сообщение от HackerVlad Посмотреть сообщение
Я же говорил, что пункт в контекстном меню под названием "Сделать фоном Рабочего стола"
Это связка, я о ней и так знал. Речь шла о самой реализации.

Цитата Сообщение от HackerVlad Посмотреть сообщение
Очень даже правильно я понял этот код!
Нет, так как это в любом случае не выбор пункта меню.

Цитата Сообщение от HackerVlad Посмотреть сообщение
Очень даже влияет, я же доказал всё наглядными примерами ну.
Хорошо, я же не спорил, а просил сообщить по результату. Спасибо за тест.
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 21:21
Цитата Сообщение от FlasherX Посмотреть сообщение
Нет, так как это в любом случае не выбор пункта меню.
А что это тогда?

Добавлено через 2 минуты
Ну ладно, не пункт меню так не пункт меню. Глагол так глагол.
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 21:24
Цитата Сообщение от HackerVlad Посмотреть сообщение
А что это тогда?
На предыдущей странице ответил. Пункт меню появляется при соотв. записи, которая в т. ч. реализует выполнение соотв. команды, которая вовсе необязательно должна быть связана с манипуляцией в меню, то бишь выбором пункта.

В общем, договорились. )
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 21:29
Цитата Сообщение от FlasherX Посмотреть сообщение
Спасибо за тест
А по факту ни одной спасибки не поставил.

Добавлено через 3 минуты
Цитата Сообщение от FlasherX Посмотреть сообщение
Угу, прям новейший
Получается что да, это новейший код, учитывая что в интернете я такого кода не находил ещё хотя искал на многих сайтах и нигде нет.
0
bat-пропагандист
 Аватар для nekit270
981 / 183 / 76
Регистрация: 07.12.2022
Сообщений: 454
Записей в блоге: 12
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"
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 21:36
Цитата Сообщение от nekit270 Посмотреть сообщение
решение, не связанное с тем, что пользователь наворотил в своих SystemFileAssociations
Спасибо за интересный код, я его сейчас проверил, и убедился что этот код не обновляет рабочий стол и требуется перезагрузка(((
0
bat-пропагандист
 Аватар для nekit270
981 / 183 / 76
Регистрация: 07.12.2022
Сообщений: 454
Записей в блоге: 12
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"
0
7001 / 2885 / 1110
Регистрация: 06.06.2017
Сообщений: 9,811
08.07.2024, 21:42
Цитата Сообщение от HackerVlad Посмотреть сообщение
Получается что да, это новейший код
Новизны тут нет, это лишь мелкая ретушь чужого (моего) кода с обрамлением в процедуру.

Цитата Сообщение от HackerVlad Посмотреть сообщение
учитывая что в интернете я такого кода не находил ещё
Поисковые проблемы они же такие. Один ищет днями/неделями, другому хватает 5 секунд.
0
Вернулся
 Аватар для HackerVlad
1751 / 647 / 45
Регистрация: 10.09.2021
Сообщений: 2,800
08.07.2024, 21:58
Цитата Сообщение от nekit270 Посмотреть сообщение
а так?
по прежнему не работает, из достоинтв этого кода могу лишь отметить что этот код не сбивает пользовательскую настройку, если у меня картинка на рабочем столе стояла как Растягивать во всю ширину, в отличии от первоначального кода с реестром, где сбивало эту настройку.

Добавлено через 2 минуты
Цитата Сообщение от FlasherX Посмотреть сообщение
Новизны тут нет, это лишь мелкая ретушь чужого (моего) кода
Всё равно спасибо вам большое за этот код, вряд ли можно будет придумать решение лучше.

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

Добавлено через 1 минуту
Цитата Сообщение от HackerVlad Посмотреть сообщение
Разве что уничтожить процесс explorer.exe и снова его запустить.
Извиняюсь, в семёрке у меня и этот трюк даже не проходит...

Добавлено через 1 минуту
Я забыл, что в новых версиях виндовс, сейчас же обои рабочего стола находятся не в процессе explorer.exe
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 08.07.2024, 21:58

Запрет на удаление ярлыков с рабочего стола
Доброго времени суток! Работаю в школе, появилась необходимость ограничить действия учеников на компьютере. Windows 10 Был создан...

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

Где находятся картинки рабочего стола ?
Люди, подскажите плз, как выкачать из винды картинки, которые в темах раб. стола? Где находится эта папка, я уже понял. Resourses - Theme....

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

Странная сообщение и все пропало с рабочего стола
Эта штука произошла на работе, что они сделали я не знаю.(говорят просто вставили переносной жёсткий, но я им не верю. что все было так...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
40
Ответ Создать тему
2 из 5 « 1 2 345 »
Новые блоги и статьи
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным?
anaschu 12.07.2026
Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .
сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию.
anaschu 12.07.2026
Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .
Сукцессия 26. Мат модель создана.
anaschu 12.07.2026
Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .
Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста".
Hrethgir 12.07.2026
Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок
anaschu 12.07.2026
# От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .
сукцессия 24. Промежуточное общее описание модели
anaschu 12.07.2026
Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .
сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры.
anaschu 12.07.2026
Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .
сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато
anaschu 11.07.2026
Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru