Dim asm As System.Reflection.Assembly = _
System.Reflection.Assembly.GetExecutingAssembly()
Dim frm As Form = _
CType(asm.CreateInstance("Proyecto.Chat"), Form)
frm.Text = contacto 'Aqui asigno el contacto y despues lo recibo desde el evento load
frm.Show()

Public Function GetLnkInfo(lnkPath As String, ByVal i As Integer) As String
        Dim shl = New Shell32.Shell()
        lnkPath = System.IO.Path.GetFullPath(lnkPath)
        Dim dir = shl.[NameSpace](System.IO.Path.GetDirectoryName(lnkPath))
        Dim itm = dir.Items().Item(System.IO.Path.GetFileName(lnkPath))
        Dim lnk = DirectCast(itm.GetLink, Shell32.ShellLinkObject)
 
        If i = 0 Then
            'Si es 0 devolvemos la ruta
            Return lnk.Target.Path
        ElseIf i = 1 Then
            'Si es 1 devolvemos el directorio de inicio
            Return lnk.WorkingDirectory
        ElseIf i = 2 Then
            'Si es 2 devolvemos la descripcion
            Return lnk.Description
        Else
            Return Nothing
        End If
    End Function

<?
function get_tweets($url) {
 
    $json_string = file_get_contents('http://urls.api.twitter.com/1/urls/count.json?url=' . $url);
    $json = json_decode($json_string, true);
 
    return intval( $json['count'] );
}
 
function get_likes($url) {
 
    $json_string = file_get_contents('http://graph.facebook.com/?ids=' . $url);
    $json = json_decode($json_string, true);
 
    return intval( $json[$url]['shares'] );
}
 
function get_plusones($url) {
 
    $curl = curl_init();
    curl_setopt($curl, CURLOPT_URL, "https://clients6.google.com/rpc");
    curl_setopt($curl, CURLOPT_POST, 1);
    curl_setopt($curl, CURLOPT_POSTFIELDS, '[{"method":"pos.plusones.get","id":"p","params":{"nolog":true,"id":"' . $url . '","source":"widget","userId":"@viewer","groupId":"@self"},"jsonrpc":"2.0","key":"p","apiVersion":"v1"}]');
    curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($curl, CURLOPT_HTTPHEADER, array('Content-type: application/json'));
    $curl_results = curl_exec ($curl);
    curl_close ($curl);
 
    $json = json_decode($curl_results, true);
 
    return intval( $json[0]['result']['metadata']['globalCounts']['count'] );
}
function get_shares($url) {     
  $json_string = file_get_contents("http://www.linkedin.com/countserv/count/share?url=$url&format=json");
  $json = json_decode($json_string, true);
  return intval( $json['count'] );
}
?>
 

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/"}

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

Keys.OemOpenBrackets

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()