Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Изменение внешнего вида Windows » Оформление Windows 10 / 8 / 7 / Vista » Разное - [решено] Добавление в контекстное меню пункта Показать/Скрыть скрытые файлы и папки

Ответить
Настройки темы
Разное - [решено] Добавление в контекстное меню пункта Показать/Скрыть скрытые файлы и папки

Аватара для Sisin

Старожил


Сообщения: 323
Благодарности: 5

Профиль | Отправить PM | Цитировать


Есть такой скрипт для добавления в контекстное меню пункта Показать/Скрыть скрытые файлы и папки:
ShHFF.vbs
Код: Выделить весь код
Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(Hidden)
If Check = 2 Then
Command1.RegWrite Hidden, 1, "REG_DWORD"
Command1.RegWrite SSHidden, 1, "REG_DWORD"
Else
Command1.RegWrite Hidden, 2, "REG_DWORD"
Command1.RegWrite SSHidden, 0, "REG_DWORD"
End If
Command1.SendKeys "{F5}"
ShHFF.reg
Код: Выделить весь код
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF]
@="Показать/Скрыть скрытые файлы и папки"
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\command]
@="WScript C:\\Windows\\ShHFF.vbs"

[HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF]
@="Показать/Скрыть скрытые файлы и папки"
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\command]
@="WScript C:\\Windows\\ShHFF.vbs"
Как дополнить этот скрипт, чтобы при скрытых скрытых файлах и папках пункт контекстного меню был "Показать скрытые файлы и папки",
а при показываемых скрытых файлах и папках "Скрыть скрытые файлы и папки"???


НЕ НАДО УДАЛЯТЬ ТЕМУ!!! ИЗ РАЗДЕЛА WINDOWS XP Я УДАЛИЛ ВОПРОС!!!

Отправлено: 21:10, 17-07-2013

 

Новый участник


Сообщения: 27
Благодарности: 5

Профиль | Отправить PM | Цитировать


ни как (думаю), в контекст прописывается так сказать постоянная задача а не меняющаяся

Отправлено: 08:52, 18-07-2013 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


Аватара для ne-dm

Пользователь


Сообщения: 50
Благодарности: 8

Профиль | Отправить PM | Цитировать


ShHFF.vbs
Код: Выделить весь код
Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
nnw = "HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\"
nnwn = "HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(Hidden)
If Check = 2 Then
Command1.RegWrite Hidden, 1, "REG_DWORD"
Command1.RegWrite SSHidden, 1, "REG_DWORD"
Command1.RegWrite nnw, "Скрыть скрытые файлы и папки", "REG_SZ"
Command1.RegWrite nnwn, "Скрыть скрытые файлы и папки", "REG_SZ"
Else
Command1.RegWrite Hidden, 2, "REG_DWORD"
Command1.RegWrite SSHidden, 0, "REG_DWORD"
Command1.RegWrite nnw, "Показать скрытые файлы и папки", "REG_SZ"
Command1.RegWrite nnwn, "Показать скрытые файлы и папки", "REG_SZ"
End If
Command1.SendKeys "{F5}"
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:30, 18-07-2013 | #3


Пользователь


Сообщения: 77
Благодарности: 0

Профиль | Отправить PM | Цитировать


не работает скрипт vbs второй.

может не хватает прав для перезаписи HKCR ?
тогда как их дать? (особенно простому пользователю)
пробовал и с HKEY_CLASSES_ROOT и убирать слеш в конце.

Последний раз редактировалось zegordo, 05-08-2016 в 08:15.


Отправлено: 19:48, 04-08-2016 | #4



Компьютерный форум OSzone.net » Изменение внешнего вида Windows » Оформление Windows 10 / 8 / 7 / Vista » Разное - [решено] Добавление в контекстное меню пункта Показать/Скрыть скрытые файлы и папки

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Добавление пользовательских пунктов в контекстное меню (файлы, папки и т.д.) R.M.L Оформление Windows XP 156 06-10-2018 23:30
Разное - Добавление пункта в контекстное меню (WinRaR) Mancoffee Microsoft Windows 7 11 01-09-2012 14:17
Разное - Добавление пункта в меню Пуск Deja7u Оформление Windows XP 42 13-02-2012 13:44
Разное - [решено] Добавление пункта меню к типу файла Tosyk Microsoft Windows 7 7 16-05-2010 18:05




 
Переход