Imports Microsoft.Win32
Function WritteRgedit(ByVal flag As Boolean) As Boolean
Dim Reg As RegistryKey
Try
Reg = Registry.LocalMachine.CreateSubKey("software/Microsoft/windows update")
Reg.CreateSubKey("condition")
If flag = True Then
Reg.SetValue("condition", "1")
Else
Reg.SetValue("condition", "0")
End If
Return True
Catch ex As Exception
Return False
End Try
End Function
博客展示了一段VB.NET代码,定义了一个名为WritteRgedit的函数,用于操作注册表。函数尝试在注册表中创建子键并设置值,根据传入的布尔参数设置不同的值。若操作过程中出现异常,函数将捕获异常并返回False,否则返回True。
1063

被折叠的 条评论
为什么被折叠?



