圣者
精华
|
战斗力 鹅
|
回帖 0
注册时间 2012-7-17
|
建个右键菜单指向vbs
如图
具体命令
- Dim WSHShell
- Set WSHShell = WScript.CreateObject("WScript.Shell")
- sTitle1 = "SSH=0"
- sTitle2 = "SSH=1"
- if WshSHell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 0 then
- WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
- WshSHell.SendKeys "{F5}"
- else
- WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"
- WshSHell.SendKeys "{F5}"
- end if
- Set WSHShell = Nothing
- WScript.Quit(0)
复制代码
|
|