Как вернуть иконку на рабочий стол?

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

Инструкция

Нажмите кнопку «Пуск» и введите regedit в строке поиска. Это позволит войти в утилиту редактора реестра, где и хранятся те параметры, которые нуждаются в изменении.

Выбирайте и последовательно открывайте ключи из списка в левой части экрана: HKEY_CURRENT_USER

Software

Microsoft

Windows

CurrentVersion

Policies

Explorer.

Убедитесь в том, что в списке в правой части окна присутствует параметр NoDesktop. В противном случае - создайте его, выбрав «Создать новый параметр» в сервисном меню, которое можно вызвать кликом правой кнопкой мыши по пустому месту в открытом окне редактора реестра. Задайте тип параметра - DWORD, позволяющий хранить числовые значения.

Откройте вновь созданный параметр двойным кликом мыши на поле с его названием и введите значение 0. В некоторых случаях для восстановления иконок рабочего стола может потребоваться полное удаление параметра (если он был создан вредоносной программой).Альтернативным способом восстановления значков рабочего стола может послужить написание скрипта, выполняющего всю работу.

Откройте программу «Блокнот» и создайте на рабочем столе текстовый файл.

Введите следующее значение:

Dim WshShell

Dim Value

Dim ResultOn Error Resume NextSet WshShell=CreateObject(?Wscript.Shell?)

Value=WshShell.RegRead(?HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop?)If (Value = ??) or (Value = 0) Then

Result = MsgBox (?Значки рабочего стола видны.Скрыть??, 65, ?Результат чтения?)

if Result = 1 then Value = 1

Else

Result = MsgBox (?Значки рабочего стола скрыты.Показать??, 65, ?Результат чтения?)

if Result = 1 then Value = 0

End ifWshShell.RegWrite ?HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDesktop?, Value, ?REG_DWORD?Result = MsgBox (?Для завершения операции требуется перезагрузка.Выполнить перезагрузку??, 65, ?Перезагрузка?)

if Result = 1 then

Set OpSysSet = GetObject(?winmgmts:{(Shutdown)}).ExecQuery(?select * from Win32_OperatingSystem where Primary=true? )

For Each OpSys In OpSysSet

OpSys.Reboot()

Next

End IF

Выберите «Сохранить» в меню «Файл». Укажите «Все файлы» в выпадающем меню «Тип файла» и введите имя файла и расширение .vbs. (Пример: Desktop Icon.vbs)

Запустите скрипт и перезагрузите компьютер.

Оцените статью!