深入改造Win2000“位置条”( 二 ) _云知道

表一：Win2K系统文件夹及其ID;
文件夹; ID;
字体; 20;
回收站; 10;
我的电脑; 17;
网络和拨号连接; 49;
打印机; 4;
收藏; 6;
发送到; 9;
My Pictures; 39;
历史; 34;
网上邻居; 18;
我的文档; 5;
Windows系统目录; 36;

注意：表一的ID值不适用于XP 。如果你使用的是XP，请查找相关资料，或直接使用文件夹的绝对路径。;

三、定制过程自动化
下面介绍一个modifyPlaces.vbs脚本，这是一个自动读取和写入位置信息的程序。在Win2K命令窗口下，执行“CScript modifyPlaces.vbs”或“WScript modifyPlaces.vbs”即可启动该程序，参见图二。程序首先询问你想要修改的位置编号。如果输入0到4之间的数字，程序继续，点击“是”用路径指定文件夹，点击“否”用ID数字指定文件夹。点击“是”之后，程序要求你输入一个完整的路径名，完成后，程序将创建一个REG_SZ注册键。如果选择了“否”，程序要求输入一个系统文件夹ID，完成后，程序创建一个REG_DWORD子键。指定一个位置之后，程序允许你继续指定其他的位置。
图二：定制位置条
" 常量
const APP_TITLE = "设置“打开”对话框的位置条"
const REG_PLACESBAR = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesComDlg32Placesbar"
Dim place;" 位置编号
Dim canContinue;;;;;" 逻辑开关
" 获取待设置的位置编号
canContinue = True
While canContinue
place = InputBox("输入位置编号 (0到4)", APP_TITLE, 0)
" 点击了“取消”按钮...
If place = "" Then
WScript.Quit
End If

If place > 4 Then
MsgBox "位置编号错误，请指定0-4之间的位置编号!", 16, APP_TITLE
Else
" 位置编号合法，从注册表读取信息
ChangePlace place
End If
Wend
" 修改指定的位置
Sub ChangePlace (place)
Dim shell, curPath, buf, rc, newPath, theType

Set shell = CreateObject("WScript.Shell")
On Error Resume Next
curPath = shell.RegRead(REG_PLACESBAR & "Place" & place)
On Error Goto 0
" 默认值
If curPath = "" Then curPath = "默认值"
buf = ""
buf = buf & "位置" & place & "当前被设置为" & _
Chr(34) & curPath & Chr(34) & vbCrLf & vbCrLf & _
"点击“是”指定一个普通文件夹" & vbCrLf & _
"点击“否”指定一个系统文件夹" & vbCrLf & _
"点击“取消”退出程序"

rc = MsgBox(buf, 3, APP_TITLE)
" YES=6, NO=7, CANCEL=2
If rc = vbCancel Then Exit Sub

" 修改位置
Select Case rc
Case vbYes
newPath = InputBox("输入新的文件夹路径", APP_TITLE, curPath)
If newPath = "" Then Exit Sub
theType = "REG_SZ"
Case vbNo
buf = ""
buf = buf & "选择新的文件夹." & vbCrLf & vbCrLf & _
"5 - 我的文档" & vbCrLf & _
"6 - 收藏" & vbCrLf & _
"17 - 我的电脑" & vbCrLf & _
"18 - 网上邻居" & vbCrLf & _
"36 - Windows系统目录" & vbCrLf & _
"34 - 历史"
newPath = InputBox(buf, APP_TITLE, curPath)
If newPath = "" Then Exit Sub
theType = "REG_DWORD"
End Select

shell.RegWrite REG_PLACESBAR & "Place" & place, newPath, theType
End Sub
应该承认，modifyPlaces.vbs没有太多的错误控制机制，而且它的用户界面也很粗糙。如果你想要一个专业一点的程序，最好把它转换成VB代码。图三显示了把“c:test”、“我的电脑”指定为位置条上两个位置后的“打开”对话框。
图三：经过定制的“打开”对话框
下面是SetDefaultPlaces.vbs脚本，该程序删除Placesbar子键，恢复默认的位置条设置。如前所述，除非我们创建了Placesbar子键，否则它是不存在的。如果Win2K/XP找不到Placesbar子键，位置条将默认使用标准配置。
" 常量
const APP_TITLE = "恢复“打开”对话框的位置条"
const REG_PLACESBAR = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesComDlg32Placesbar"

深入改造Win2000“位置条”( 二 )

推荐阅读

就凭银行卡可以贷款吗信用卡可以贷款银行卡不可以

淘宝网怎么购物省钱「在淘宝购物如何才能更便宜呢」

芙蓉底色翡翠芙蓉底翡翠什么意思

如懿传甄嬛传有什么区别如懿传甄嬛传区别介绍

小米8突然耗电严重小米8突然掉电严重

Media Cope转换视频格式的方法

小带鱼怎样做

微信标签保存中为什么会保存失败

咸阳乾县流感疫苗接种对象

电脑远程访问设置步骤详解设置电脑可以远程访问

雪纳瑞吃哪种狗粮好？再也不用挑花眼了

鼻烟壶有什么用

芝加哥房价为什么那么便宜，27万美元可以在美国买怎样一套房子

谋三国合橙装需要什么,《魔兽世界》9.0战士用什么橙装

张洁张琳，国家命运张洁的原型还在吗

岩鲤用什么来钓最好，钓野生鲤鱼用什么打窝钓鲤鱼鱼食