【集合】添加右键菜单“显示/隐藏文件扩展名”

什么叫易 · 发表于 2012-8-19 19:34:21

的.rar (1.73 KB, 下载次数: 55)
另外附上几篇帖子导读都是用电脑比较方便的东西
使Windows XP快上几倍的小软件开源
http://www.3600gz.cn/thread-121265-1-1.html
取宽带密码+取开机密码源码
http://www.3600gz.cn/thread-82852-1-1.html

通过句柄取窗口全信息
http://www.3600gz.cn/thread-73050-1-1.html

虚拟桌面初级版本
http://www.3600gz.cn/thread-59201-1-1.html

精简的专版记事本（简约也简单）
http://www.3600gz.cn/thread-69313-1-1.html

进度写文件
http://www.3600gz.cn/thread-83703-1-1.html

积极举手发言 · 发表于 2012-8-19 19:46:27

沙发

linyuntai · 发表于 2012-8-20 08:57:51

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}+{F10}e"
else

WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"

WshSHell.SendKeys "{F5}+{F10}e"
end if

Set WSHShell = Nothing
WScript.Quit(0)