Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim reg As RegistryKey
reg = Registry.CurrentUser
reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
Me.TextBox1.Text = reg.GetValue("Window Title")
End Sub
'读取注册表的值
'修改注册表的值
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Dim reg As RegistryKey
reg = Registry.CurrentUser
reg = reg.OpenSubKey("Software\Microsoft\Internet Explorer\Main", True)
reg.SetValue("Window Title", Me.TextBox1.Text)
End Sub
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