16,553
社区成员
发帖
与我相关
我的任务
分享
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
'提示信息
Dim strMsg As String = Nothing
Try
'注册表子项
Dim SubKeyName As String = "HKEY_LOCAL_MACHINE\SOFTWARE\TSCU\config.ini" '
'注册码键值
Dim keyValue As String = Class1.ReadRegistry(SubKeyName, False)
If keyValue IsNot Nothing Then
strMsg = String.Format("值为:{0}", keyValue )
End If
Catch ex As Exception
strMsg = String.Format("{0} raised exception:{1}", ex.Source, ex.Message)
End Try
MessageBox.Show(strMsg, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
<RegistryPermissionAttribute(SecurityAction.PermitOnly, Read:="HKEY_LOCAL_MACHINE\SOFTWARE\TSCU\config.ini")> '
Public Class Class1
'Access the registry.
Public Shared Function ReadRegistry(ByVal SubKeyName As String, ByVal flag As Boolean) As String
'提示信息
Dim strMsg As String = Nothing
Using retkey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\TSCU\config.ini", True)
'返回
Return retkey.GetValue("CDKEY")
End Using
End Function
End Class
<RegistryPermissionAttribute(SecurityAction.PermitOnly, ViewAndModify:="HKEY_LOCAL_MACHINE\SOFTWARE\TSCU\config.ini")> '
Using retkey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\TSCU\config.ini", True)
修改为:
Using retkey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\TSCU\config.ini", False)