无忧启动论坛

标题: 右键添加重启桌面 [打印本页]
作者: 窄口牛    时间: 昨天 19:28
标题: 右键添加重启桌面
本帖最后由 窄口牛 于 2024-11-21 20:43 编辑


@echo off
Setlocal enabledelayedexpansion
reg query HKU\S-1-5-20>nul || echo;CreateObject^("Shell.Application"^).ShellExecute "%~f0", "", "", "runas", 1 > "%temp%\getadmin.vbs" && cscript //b "%temp%\getadmin.vbs" && exit /b & del "%temp%\getadmin.vbs" /f /q>nul 2>nul
pushd "%CD%"&& CD /D "%~dp0"
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "MUIVerb" /d "重置桌面" /f
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "Position" /d "Bottom" /f
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "SeparatorAfter" /d "" /f
reg add "HKCR\Directory\Background\shell\resetexplorer" /v "SubCommands" /d "" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\1" /ve /d "重启桌面" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\1\command" /ve /d "wscript %systemroot%\resetexplorer.vbs" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\2" /ve /d "关闭重复文件夹" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\2\command" /ve /d "wscript %systemroot%\resetexplorer.vbs --CloseDuplicate" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\3" /ve /d "关闭所有文件夹" /f
reg add "HKCR\Directory\Background\shell\resetexplorer\shell\3\command" /ve /d "wscript %systemroot%\resetexplorer.vbs --CloseAll" /f
echo On Error Resume Next>>resetexplorer.vbs
echo Dim ArrayPathFonders(), ShellFonders, WindowOfShellFonders, ShellExplorer>>resetexplorer.vbs
echo Set DictionaryFonders = CreateObject("Scripting.Dictionary")>>resetexplorer.vbs
echo Set ShellFonders = CreateObject("Shell.Application")>>resetexplorer.vbs
echo Set WindowOfShellFonders=ShellFonders.Windows()>>resetexplorer.vbs
echo Set ShellExplorer = CreateObject("WScript.Shell")>>resetexplorer.vbs
echo DictionaryFonders.Add "::{679F85CB-0220-4080-B29B-5540CC05AAB6}",True>>resetexplorer.vbs
echo DictionaryFonders.Add "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}",True>>resetexplorer.vbs
echo DictionaryFonders.Add ShellExplorer.SpecialFolders("Desktop"),True>>resetexplorer.vbs
echo DictionaryFonders.Add ShellExplorer.SpecialFolders("AllUsersDesktop"),True>>resetexplorer.vbs
echo select case WScript.Arguments.count>>resetexplorer.vbs
echo       case ^0>>resetexplorer.vbs
echo             call RestartExplorer()>>resetexplorer.vbs
echo       case ^1>>resetexplorer.vbs
echo             call WithArguments()>>resetexplorer.vbs
echo end select>>resetexplorer.vbs
echo sub WithArguments()>>resetexplorer.vbs
echo       select case WScript.Arguments(0)>>resetexplorer.vbs
echo             case "--CloseAll">>resetexplorer.vbs
echo                   call CloseAllFolders()>>resetexplorer.vbs
echo             case "--CloseDuplicate">>resetexplorer.vbs
echo                   call CloseDuplicateF

右键添加重置桌面.rar

1.34 KB, 下载次数: 17, 下载积分: 无忧币 -2

作者: yyz2191958    时间: 昨天 19:36
支持原创
作者: wangyibin    时间: 昨天 19:44
路过！
作者: cfq001    时间: 昨天 20:02
收藏备用，谢谢了
作者: wn168cn@163.com    时间: 昨天 21:23
感谢分享
作者: wwxxtt2020    时间: 昨天 21:34
关闭重复文件夹和关闭所有文件夹到底是什么功能啊？感觉选择了也没啥反应。
作者: yzydys    时间: 昨天 21:45
收藏备用，谢谢
作者: yc2428    时间: 昨天 22:32
感谢分享
作者: 2012fengxi    时间: 昨天 22:50
感谢分享
作者: 1G空间100元    时间: 2 小时前
wwxxtt2020 发表于 2024-11-21 21:34
关闭重复文件夹和关闭所有文件夹到底是什么功能啊？感觉选择了也没啥反应。

关闭重复文件夹  估计是你打开了2个或以上一样的文件夹 就只保留一个文件打开状态 其他关闭
关闭所有文件夹 估计是关闭你文件资源管理器中打开的任何文件夹
作者: zaolaohu    时间: 1 小时前
谢谢分享



欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3