日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁(yè) > 云知道 > >

定制全新的Win2000另類“位置條”( 二 )

云知道



表一
注意：表一的ID值不適用于XP 。如果你使用的是XP，請(qǐng)查找相關(guān)資料，或直接使用文件夾的絕對(duì)路徑 。


三、定制過(guò)程自動(dòng)化

下面介紹一個(gè)modifyPlaces.vbs腳本，這是一個(gè)自動(dòng)讀取和寫入位置信息的程序 。在Win2K命令窗口下，執(zhí)行“CScript modifyPlaces.vbs”或“WScript modifyPlaces.vbs”即可啟動(dòng)該程序，參見(jiàn)圖二 。程序首先詢問(wèn)你想要修改的位置編號(hào) 。如果輸入0到4之間的數(shù)字，程序繼續(xù)，點(diǎn)擊“是”用路徑指定文件夾，點(diǎn)擊“否”用ID數(shù)字指定文件夾 。點(diǎn)擊“是”之后，程序要求你輸入一個(gè)完整的路徑名，完成后，程序?qū)?chuàng)建一個(gè)REG_SZ注冊(cè)鍵 。如果選擇了“否”，程序要求輸入一個(gè)系統(tǒng)文件夾ID，完成后，程序創(chuàng)建一個(gè)REG_DWord子鍵 。指定一個(gè)位置之后，程序允許你繼續(xù)指定其他的位置 。

圖二：定制位置條
" 常量

const APP_TITLE = "設(shè)置“打開(kāi)”對(duì)話框的位置條"

const REG_PLACESBAR = "HKCUSoftwareMicrosoftWindowsCurrentVersionPolicIEsComDlg32Placesbar"

Dim place " 位置編號(hào)

Dim canContinue " 邏輯開(kāi)關(guān)" 獲取待設(shè)置的位置編號(hào)

canContinue = True

While canContinue

place = InputBox("輸入位置編號(hào) (0到4)", APP_TITLE, 0)

" 點(diǎn)擊了“取消”按鈕...

If place = "" Then

WScript.Quit

End If

If place > 4 Then

MsgBox "位置編號(hào)錯(cuò)誤，請(qǐng)指定0-4之間的位置編號(hào)!", 16, APP_TITLE

Else

" 位置編號(hào)合法，從注冊(cè)表讀取信息

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

" 默認(rèn)值

If curPath = "" Then curPath = "默認(rèn)值"

buf = ""

buf = buf & "位置" & place & "當(dāng)前被設(shè)置為" & _

Chr(34) & curPath & Chr(34) & vbCrLf & vbCrLf & _

"點(diǎn)擊“是”指定一個(gè)普通文件夾" & vbCrLf & _

"點(diǎn)擊“否”指定一個(gè)系統(tǒng)文件夾" & vbCrLf & _

"點(diǎn)擊“取消”退出程序"

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 - 網(wǎng)上鄰居" & vbCrLf & _

"36 - Windows系統(tǒng)目錄" & 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


應(yīng)該承認(rèn)，modifyPlaces.vbs沒(méi)有太多的錯(cuò)誤控制機(jī)制，而且它的用戶界面也很粗糙 。如果你想要一個(gè)專業(yè)一點(diǎn)的程序，最好把它轉(zhuǎn)換成VB代碼 。圖三顯示了把“c: est”、“我的電腦”指定為位置條上兩個(gè)位置后的“打開(kāi)”對(duì)話框 。

圖三：經(jīng)過(guò)定制的“打開(kāi)”對(duì)話框
下面是SetDefaultPlaces.vbs腳本，該程序刪除Placesbar子鍵，恢復(fù)默認(rèn)的位置條設(shè)置 。如前所述，除非我們創(chuàng)建了Placesbar子鍵，否則它是不存在的 。如果Win2K/XP找不到Placesbar子鍵，位置條將默認(rèn)使用標(biāo)準(zhǔn)配置 。
表二

【定制全新的Win2000另類“位置條”】四、Office的位置條

前面的注冊(cè)表修改只影響那些使用Win2K/XP公用對(duì)話框代碼庫(kù)的程序，Office使用的對(duì)話框來(lái)自一個(gè)經(jīng)過(guò)定制的代碼庫(kù) 。因此，修改Win2K/XP“打開(kāi)”對(duì)話框的位置條不會(huì)對(duì)Word和Excel的位置條產(chǎn)生任何影響 。

推薦閱讀