ROSTAM2
یک شنبه 03 دی 1402, 11:56 صبح
سلام.
من می خوام مقدار یک دیتا از رجیستری رو تغییر بدم. تغییرات اعمال می شه ولی در کلید اصلی رجیستری ویندوز که با RegEdit مشاهده می کنم تغییراتی اعمال نمی شه!!!!!
ینی چی؟!
ویندوز من 64 بیتی هست
ویژوال استودیو 2010 استفاده می کنم
Dim GlobalKey As RegistryKey
GlobalKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer \FolderDescriptions")
Select Case FolderName.ToUpper
Case "3D OBJECTS" : Key = "{31C0DD25-9439-4F12-BF41-7FF4EDA38722}"
Case "DESKTOP" : Key = "{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}"
Case "DOCUMENTS" : Key = "{f42ee2d3-909f-4907-8871-4c22fc0bf756}"
Case "DOWNLOADS" : Key = "{7d83ee9b-2244-4e70-b1f5-5393042af1e4}"
Case "MUSIC" : Key = "{a0c69a99-21c8-4671-8703-7934162fcf1d}"
Case "PICTURES" : Key = "{0ddd015d-b06c-45d5-8c4c-f59713854639}"
Case "VIDEOS" : Key = "{35286a68-3c57-41a1-bbb1-0eae73d76c95}"
End Select
With GlobalKey.OpenSubKey(Key).OpenSubKey("PropertyBag", True)
Console.WriteLine(.GetValue("ThisPCPolicy", "?").ToString)
.SetValue("ThisPCPolicy", "Hide")
End With
Console.WriteLine("{0} set to Hile", FolderName)
155169
155170
من می خوام مقدار یک دیتا از رجیستری رو تغییر بدم. تغییرات اعمال می شه ولی در کلید اصلی رجیستری ویندوز که با RegEdit مشاهده می کنم تغییراتی اعمال نمی شه!!!!!
ینی چی؟!
ویندوز من 64 بیتی هست
ویژوال استودیو 2010 استفاده می کنم
Dim GlobalKey As RegistryKey
GlobalKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer \FolderDescriptions")
Select Case FolderName.ToUpper
Case "3D OBJECTS" : Key = "{31C0DD25-9439-4F12-BF41-7FF4EDA38722}"
Case "DESKTOP" : Key = "{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}"
Case "DOCUMENTS" : Key = "{f42ee2d3-909f-4907-8871-4c22fc0bf756}"
Case "DOWNLOADS" : Key = "{7d83ee9b-2244-4e70-b1f5-5393042af1e4}"
Case "MUSIC" : Key = "{a0c69a99-21c8-4671-8703-7934162fcf1d}"
Case "PICTURES" : Key = "{0ddd015d-b06c-45d5-8c4c-f59713854639}"
Case "VIDEOS" : Key = "{35286a68-3c57-41a1-bbb1-0eae73d76c95}"
End Select
With GlobalKey.OpenSubKey(Key).OpenSubKey("PropertyBag", True)
Console.WriteLine(.GetValue("ThisPCPolicy", "?").ToString)
.SetValue("ThisPCPolicy", "Hide")
End With
Console.WriteLine("{0} set to Hile", FolderName)
155169
155170