Imports Newtonsoft.Json
Imports System.IO
 
Public Class ChromePreferences
    Public Property homepage_is_newtabpage() As Boolean
    Public Property homepage() As String
End Class

        Dim Preferences As New ChromePreferences() With { _
        .homepage = myurl, _
        .homepage_is_newtabpage = False _
        }
 
        Using fileJson As StreamReader = File.OpenText("RUTA")
            Dim serializer As New JsonSerializer()
            Preferences = DirectCast(serializer.Deserialize(fileJson, GetType(Preferences)), Preferences)
        End Using
 
        MsgBox(Preferences.homepage.ToString)
 

        Using file__1 As StreamWriter = File.CreateText("RUTA")
        Dim serializer As New JsonSerializer()
        serializer.Serialize(file__1, Preferences)
        End Using

{"homepage_is_newtabpage":false,"homepage":"http://www.google.es/"}

        Private Declare Function CallNextHookEx Lib "user32" _
        (ByVal hHook As Integer, _
        ByVal nCode As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As KBDLLHOOKSTRUCT) As Integer

        Private Shared Function KeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer
            If (nCode = HC_ACTION) Then
                Select Case wParam
                    Case WM_KEYDOWN, WM_SYSKEYDOWN
                        RaiseEvent KeyDown(CType(lParam.vkCode, Keys))
                    Case WM_KEYUP, WM_SYSKEYUP
                        RaiseEvent KeyUp(CType(lParam.vkCode, Keys))
                End Select
            End If
            Return CallNextHookEx(KeyHook, nCode, wParam, lParam)
        End Function

http://es.wikipedia.org/wiki/Teclado_QWERTY

Keys.OemOpenBrackets

        Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
 
        Dim subkey As String = "Software\Microsoft\Internet Explorer\Approved Extensions"
        Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey(subkey, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
        Dim rs As New RegistrySecurity()
        rs.AddAccessRule(New RegistryAccessRule(user, RegistryRights.FullControl, InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow))
        rk.SetAccessControl(rs)
        rk = Registry.CurrentUser.OpenSubKey(subkey, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.FullControl)
        rk.SetAccessControl(rs)

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Approved Extensions

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
 
        Dim rs As New RegistrySecurity()
 
        rs.AddAccessRule(New RegistryAccessRule(user, _
                        RegistryRights.WriteKey Or RegistryRights.SetValue, _
                        InheritanceFlags.None, _
                        PropagationFlags.None, _
                        AccessControlType.Allow))
 
        ' Create the example key with registry security.
        Dim rk As RegistryKey
        rk = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Internet Explorer\Approved Extensions", RegistryKeyPermissionCheck.ReadWriteSubTree, rs)
 
        If rk IsNot Nothing Then rk.Close()