注册表操作

注册表操作

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 注册表操作 (http://www.webasp.net/article/4/3965.htm)

-- 作者：未知
-- 发布日期： 2003-07-12

Public Sub SaveSettings()
        Dim parentKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", True)
        Dim key As Microsoft.Win32.RegistryKey = parentKey.OpenSubKey(mcApplicationName, True)
        If key Is Nothing Then
            key = parentKey.CreateSubKey(mcApplicationName)
        End If
        With key
            .SetValue("Host Name", Me.HostNameEntry.Text)
            .SetValue("Host Port", Me.HostPortEntry.Text)
            .SetValue("User Name", Me.UserNameEntry.Text)
            .SetValue("User Password", Me.UserPasswordEntry.Text)
        End With
    End Sub

webasp.net