Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
レジストリのサブキーの作成について
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30568#CommentId84298
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
N88-Basic
 (社会人)
投稿日時
2020/11/27 16:48:04
Windows 10 home(64) Ver 20H2 + Visual Studio 2019 にて、レジストリを操作するアプリを作成していますが実行時エラーが発生します。
状況は以下の通りです。
テスト中のコード(サブキーの作成)(値の設定でも同様のエラーが発生しました)
Dim SubKey_Personalization As String = "SOFTWARE\Policies\Microsoft\Windows\Personalization"
Dim ValueName_NoLockScreen As String = "NoLockScreen"
Dim regkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(SubKey_Personalization)
regkey.SetValue(ValueName_NoLockScreen, 1)
regkey.Close()
エラーは3行目で内容は以下の通りです。
System.UnauthorizedAccessException
HResult=0x80070005
Message=レジストリ キー 'HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Personalization' へのアクセスが拒否されました。
Source=mscorlib
ただし、値の読出しは問題ありません。
読出しのコード
Dim regkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(SubKey_Personalization)
Dim iValue As Integer = CInt(regkey.GetValue(ValueName_NoLockScreen)
regkey.Close()
解決策をご存じでしたらご教授ください。
よろしくお願いいたします。