.net2005 中My.Computer.Registry 對象的 CreateSubKey 方法可用于創(chuàng)建注冊表項。
創(chuàng)新互聯(lián)建站長期為上千多家客戶提供的網站建設服務,團隊從業(yè)經驗10年,關注不同地域、不同群體,并針對不同對象提供差異化的產品和服務;打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網生態(tài)環(huán)境。為裕華企業(yè)提供專業(yè)的網站設計、成都網站設計,裕華網站改版等技術服務。擁有10多年豐富建站經驗和眾多成功案例,為您定制開發(fā)。
過程
創(chuàng)建注冊表項
使用 CreateSubKey 方法,指定在其下放置注冊表項的配置單元以及注冊表項的名稱。參數(shù) Subkey 不區(qū)分大小寫。此示例在 HKEY_CURRENT_USER 下創(chuàng)建注冊表項 MyTestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
創(chuàng)建注冊表項并在注冊表項中設置值
使用 CreateSubkey 方法,指定在其下放置注冊表項的配置單元以及注冊表項的名稱。此示例在 HKEY_CURRENT_USER 下創(chuàng)建注冊表項 MyTestKey。
My.Computer.Registry.CurrentUser.CreateSubKey("MyTestKey")
用 SetValue 方法設置值。此示例將字符串值"MyTestKeyValue" 設置為 "This is a test value"。
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyTestKey", _
"MyTestKeyValue", "This is a test value.")
Set ws = CreateObject("wscript.shell")
ws.regwrite "HKEY_CURRENT_USER\Control panel\Desktop\ConvertedWallpaper", "c:\1.jpg", "REG_SZ"
首先你要把你的應用程序設定為始終獲取管理員權限,也就是win7以上系統(tǒng)應用程序圖標里有個小盾牌的樣子
或者讓使用者在運行時始終以管理員身份運行
然后在代碼里寫
if msgbox("即將修改注冊表,是否繼續(xù)",vbyesno) = vbyes then
修改注冊表的代碼
else
拒絕修改注冊表的代碼
end if
修改注冊表的代碼應該加 try catch 來防錯