water197
发表于 2010-9-2 09:29:40
ddddddddddddddddddddddddddddd
h20040606
发表于 2010-9-2 21:50:17
非常不错的程序
saruman
发表于 2010-9-2 23:55:48
朗读时一个亮点,,,,
dunniu
发表于 2010-9-3 00:27:24
的确功能很多啊
shenrenba
发表于 2010-9-3 09:09:08
添加显示/隐藏文件和后缀功能到右键 这个应该加上经常用的我自己用的工具箱中的代码
Case $Button37
GUICtrlSetState($Button37,$GUI_DISABLE)
If GUICtrlRead($Button37)="添加显示隐藏" Then
FileInstall("SuperHidden.vbs",@WindowsDir&"\SuperHidden.vbs")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\SuperHidden", "", "Reg_sz", "{00000000-0000-0000-0000-000000000022}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\InProcServer32", "", "Reg_Expand_sz", "%SystemRoot%\system32\shdocvw.dll")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\InProcServer32", "ThreadingModel", "Reg_sz", "Apartment")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\Instance", "CLSID", "Reg_sz", "{3f454f0e-42ae-4d7c-8ea3-328250d6e272}")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\Instance\InitPropertyBag", "method", "Reg_sz", "ShellExecute")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\Instance\InitPropertyBag", "Param1", "Reg_sz", "SuperHidden.vbs")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\Instance\InitPropertyBag", "command", "Reg_sz", "显示/隐藏文件和后缀")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}\Instance\InitPropertyBag", "CLSID", "Reg_sz", "{13709620-C279-11CE-A49E-444553540000}")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", "Reg_Dword", "0x00000000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "Reg_Dword", "0x00000002")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HideFileExt","Reg_Dword","0x00000001")
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")
GUICtrlSetData($Button37,"删除显示隐藏")
MsgBox(64,"提示","已添加显示/隐藏文件和后缀功能到右键,从右键执行")
ElseIf GUICtrlRead($Button37)="删除显示隐藏" Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{00000000-0000-0000-0000-000000000022}")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Directory\Background\shellex\ContextMenuHandlers\SuperHidden")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden", "Reg_Dword", "0x00000000")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", "Reg_Dword", "0x00000002")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","HideFileExt","Reg_Dword","0x00000001")
DllCall("user32.dll","int","SendMessageTimeout","hwnd",65535,"int",26,"int",0,"int",0,"int",0,"int",1000,"str","dwResult")
If FileExists(@WindowsDir&"\SuperHidden.vbs") Then FileDelete(@WindowsDir&"\SuperHidden.vbs")
GUICtrlSetData($Button37,"添加显示隐藏")
MsgBox(64,"提示","显示/隐藏文件和后缀功能已从右键删除")
EndIf
GUICtrlSetState($Button37,$GUI_ENABLE)
menfan1
发表于 2010-9-3 10:18:35
因为nircmd强大哈
23070205
发表于 2010-9-3 13:19:39
回复 20# shenrenba
谢谢,提供这个功能,我已经有了一个vbs的显示隐藏和显示的脚本。等以后更新时,会加入这个功能的,还有右键用记事本打开,一键到dos,一键关闭ide等。
zhenglei
发表于 2010-9-3 15:04:23
ddddddddddddddddddddddddddddddddddddddddddddddddd
Valentina
发表于 2010-9-3 15:34:48
功能不错啊,呵呵
殇·愚
发表于 2010-9-4 01:51:26
好东西啊.... 谢谢LZ
jasonc2000
发表于 2010-9-4 11:32:46
非常不错,支持一下
火易
发表于 2010-9-4 20:11:33
辛苦了!
好像是很强大啊,
雪栀
发表于 2010-9-5 08:01:19
很强大啊,我下载看看
爬爬虫
发表于 2010-9-5 14:32:52
强,需要收藏啦!
xiezhang6263
发表于 2010-9-5 17:17:06
谢谢,看到精品了