RSS订阅悠然探索,悠然索取
你的位置:首页 » 程序语言 » 正文

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

标签:

猜你喜欢

发表评论

必填

选填

选填

必填,不填不让过哦,嘻嘻。

记住我,下次回复时不用重新输入个人信息

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。