as780611as
一般會員
積分 529
發文 96
註冊 2008-5-28
狀態 離線
|
#1 DIY自用系統資料夾鎖.reg - 除了""高深""電腦學習者能破解
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\Folder\shell\解除加鎖\command]
@="cmd /c echo Set vbs = CreateObject(\"Wscript.Shell\")>>C:\\temp.vbs && echo Set ObjFSO = CreateObject(\"Scripting.FileSystemObject\")>>C:\\temp.vbs && echo pass=InputBox(\"輸入密碼\",\"\")>>C:\\temp.vbs && echo If pass = \"********\" Then>>C:\\temp.vbs && echo vbs.Run \"cmd /c CACLS %1 /E /P everyone:F && del/f/a %1%\\desktop.ini\">>C:\\temp.vbs && echo elseif pass = \"\" Then>>C:\\temp.vbs && echo else>>C:\\temp.vbs && echo msgbox \"錯誤訊息\",16,\"密碼錯誤\">>C:\\temp.vbs && echo end if>>C:\\temp.vbs && echo ObjFSO.DeleteFile Wscript.ScriptFullName>>C:\\temp.vbs && C:\\temp.vbs"
[HKEY_CLASSES_ROOT\Folder\shell\資料加鎖\command]
@="cmd /c echo [.ShellClassInfo]>>%1%\\desktop.ini && echo CLSID={20D04FE0-3AEA-1069-A2D8-08002B30309D}>>%1%\\desktop.ini && echo Set WSHShell = CreateObject(\"WScript.Shell\")>>%1%\\temp.vbs && echo strDesktop = WSHShell.SpecialFolders(\"Desktop\")>>%1%\\temp.vbs && echo Set ObjFSO = CreateObject(\"Scripting.FileSystemObject\")>>%1%\\temp.vbs && echo WSHShell.AppActivate strDesktop>>%1%\\temp.vbs && echo WSHShell.SendKeys \"{F5}\">>%1%\\temp.vbs && echo ObjFSO.DeleteFile Wscript.ScriptFullName>>%1%\\temp.vbs && %1%\\temp.vbs && CACLS %1 /E /P everyone:N"
把\"********\"換成自己用的密碼
EX:
\"這裏面輸入密碼\"
用記事本存成REG匯入就OK了
[ Last edited by as780611as on 2012-11-7 at 05:57 PM ]
|
|
2012-11-7 05:35 PM |
|
lfAkel
基本會員
積分 8
發文 4
註冊 2011-2-14
狀態 離線
|
#2
超讚超實用，大推~
感謝大大的熱情分享 :)
|
|
|
2012-11-8 12:34 AM |
|
catsndogs
資深會員
積分 5180
發文 948
註冊 2005-9-9
狀態 離線
|
#3
嗯•••哦•••
會不會把自己也給鎖死？
Thanks!
Good!
|
|
|
2012-11-8 05:25 AM |
|
liuwc
一般會員
積分 556
發文 116
註冊 2006-4-17
狀態 離線
|
|
|
2012-11-23 07:44 PM |
|
