Imports Microsoft.Win32.Registry Dim Reg As Microsoft.Win32.RegistryKey Dim AutoRunRegKeyStr As String = "NeMoSoft-" & My.Application.Info.AssemblyName.ToString Private Class Consts Public Const SoftNameKeyStr As String = "Software/NeMoSoft/EasyCloseRomotPc" Public Const RegKeyStr As String = "ServerHostIP" End Class '检测注册表 Private Function IsRegSoftNameKey() As Boolean Try If CurrentUser.OpenSubKey(Consts.SoftNameKeyStr) Is Nothing Then Reg = CurrentUser.CreateSubKey(Consts.SoftNameKeyStr) Reg.SetValue(Consts.RegKeyStr,"") Return False Else Return True End If Catch ex As Exception Return False End Try End Function '--注册表操作 Private Function GetServerHostIP() As String Dim ip As String = "" Try Reg = CurrentUser.OpenSubKey(Consts.SoftNameKeyStr,True) ip = Reg.GetValue(Consts.RegKeyStr).ToString Reg.Close() Catch ex As Exception ShowMsg(ex.Message) End Try Return ip End Function Private Sub SaveServerHostIP() If Me.TxtBoxHostIP.Text > "" Then Try Reg = CurrentUser.OpenSubKey(Consts.SoftNameKeyStr,True) Reg.SetValue(Consts.RegKeyStr,Me.TxtBoxHostIP.Text) Reg.Close() Catch ex As Exception End Try 'If Reg.GetValue(Consts.RegSetString) <> "" Then ' '--删除键值-会把整个 regsetstring 删除了。 ' Reg.DeleteValue(Consts.RegSetString) 'End If ''--可以设置:Reg.SetValue(Consts.RegSetString,"") End If End Sub Private Sub FrmMain_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load 'If Me.IsRegSoftNameKey Then ' Me.TxtBoxHostIP.Text = Me.GetServerHostIP() 'End If End Sub