vb.net注册表操作

选择字号： 超大 标准 发布时间：2008-9-11 10:24:44 | 作者：admin | 0个评论 | 人浏览

Public Class RegClass
    Public Function UpRegData(ByVal IP As String) As Integer
        Try
            Dim regVersion As Microsoft.Win32.RegistryKey
            regVersion = _
           Microsoft.Win32.Registry.CurrentUser.OpenSubKey("要读、写的位置", True)
            If regVersion Is Nothing Then
                Return 0     'MessageBox.Show("不存在！")
            Else
                '存在
                regVersion.SetValue("要写的项的名称", "要写的值")
                Return 1  '写入成功
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return -1   '出错
        End Try

    End Function
End Class

标签：

猜你喜欢