Vamos a programar #109 - KeyRemap M 1.0

using System;
using System.Windows.Forms;
using Microsoft.Win32;
using System.Collections.Generic;
using System.IO;
using System.Security;
using System.Security.AccessControl;

namespace KeyRemap
{
	public partial class FrmMain : Form
	{
		private byte[] Buff = { };

		public FrmMain()
		{
			InitializeComponent();
		}

#region "Funciones y procedimientos"

		/// <summary>
		/// Escribe una secuencia de bytes en el registro de windows
		/// </summary>
		/// <param name="Data">Secuencia de bytes a escribir</param>
		private void WriteHexRegKey(byte[] Data)
		{

			string user = Environment.UserDomainName + "\\" + Environment.UserName;

			RegistrySecurity rs = new RegistrySecurity();

			rs.AddAccessRule(new RegistryAccessRule(user, RegistryRights.ReadKey | RegistryRights.Delete, InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow));


			RegistryKey RegKey = Registry.LocalMachine;
			RegKey = RegKey.CreateSubKey(@"SYSTEM\CurrentControlSet\Control\Keyboard Layout",RegistryKeyPermissionCheck.Default, rs);
			RegKey.SetValue("ScanCode Map", Data, RegistryValueKind.Binary);

			RegKey.Close();
		}

		/// <summary>
		/// Elimina la entrada "ScanCode Map" Del registro de windows
		/// </summary>
		private void DeleteRegKey()
		{
			try
			{
				RegistryKey RegKey = Registry.LocalMachine;
				RegKey = RegKey.OpenSubKey(@"SYSTEM\CurrentControlSet\Control\Keyboard Layout", true);
				RegKey.DeleteValue("ScanCode Map");
			}
			catch(Exception Err)
			{
				MessageBox.Show("Un error ocurrio, prueba iniciar la aplicacion en modo de administrador\n" + Err.StackTrace.ToString() + "","Error",MessageBoxButtons.OK,MessageBoxIcon.Error);
			}
		}

		/// <summary>
		/// Leee los datos de la llave del registro "ScanCode Map"
		/// </summary>
		/// <returns>Una secuencia de bytes con el contenido de la llave </returns>
		private byte[] ReadRegKey()
		{
			byte[] Data = { };
			try
			{
				RegistryKey RegKey = Registry.LocalMachine;
				RegKey = RegKey.OpenSubKey(@"SYSTEM\CurrentControlSet\Control\Keyboard Layout");
				byte[] KeyVal = (byte[])RegKey.GetValue("Scancode Map");
				RegKey.Close();
				Data = KeyVal;
				return Data;
			}
			catch
			{
				return Data;
			}
		}

		/// <summary>
		/// Guarda las reasignaciones de las teclas en arhivo ".bat"
		/// </summary>
		/// <param name="Data">Los datos que se van a escribir</param>
		private void SaveRegFile(byte[] Data)
		{
			using (SaveFileDialog SFD = new SaveFileDialog())
			{
				SFD.Filter = "Archivo de registro|*.reg";
				SFD.AddExtension = true;
				if (SFD.ShowDialog() == DialogResult.OK)
				{
					using (StreamWriter SW = new StreamWriter(SFD.OpenFile()))
					{
						SW.AutoFlush = true;
						SW.WriteLine(@"Windows Registry Editor Version 5.00");
						SW.WriteLine();
						SW.WriteLine(@"[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]");
						SW.Write(string.Concat("\"", "Scancode Map", "\"", "=hex:"));
						for (int i = 0; i < Data.Length; i++)
						{
							if (i < Data.Length - 1)
								SW.Write(string.Concat(Data[i].ToString("X2"), ","));
							else
								SW.Write(Data[i].ToString("X2"));
						}
					}
				}

			}
		}

		/// <summary>
		/// Determina si un número es par
		/// </summary>
		/// <param name="Number">Número que se quiere saber si es par</param>
		/// <returns>Regresa true si es par; false en caso contrario</returns>
		private bool IsEven(int Number)
		{
			if ((Number % 2) == 0)
				return true;
			else
				return false;
		}

		/// <summary>
		/// Llena el ListView con los datos aplicando el formato correcto
		/// </summary>
		/// <param name="Data">DAtos a formatear</param>
		private void FillListView(byte[] Data)
		{
			int Entries = Data[8] - 1;
			if (Data.Length < 20 && (Data.Length % 4) != 0)
				MessageBox.Show("La configuracion no parece estar correcta\nQuieres eliminarla?", "Error", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation);
			else
			{
				//e020
				//57376
				//224
				//32
				for (int i = 0; i < Entries; i++)
				{
					int MainItem = Data[12 + (i * 4)] | (Data[13+ (i * 4)] << 8);
					int SubItem = Data[14 + (i * 4)] | (Data[15 + (i * 4)] << 8);
					ListViewItem LV = new ListViewItem(new string[] { MainItem.ToString(), SubItem.ToString() });
					LvReassignedKeys.Items.Add(LV);
				}
			}
		}

		/// <summary>
		/// Escribe o guarda los datos de las reasignaciones
		/// </summary>
		/// <param name="SaveFile">SI es true, genera un arhivo .bat para guardar. Si es false, escribe la llave en el registro</param>
		private void BuildAndSaveData(bool SaveFile)
		{
			List<string> Items = new List<string>();
			for (int i = 0; i < LvReassignedKeys.Items.Count; i++)
			{
				Items.AddRange(new string[] { LvReassignedKeys.Items[i].Text, LvReassignedKeys.Items[i].SubItems[1].Text });
			}

			if (SaveFile)
			{
				if (Items.Count > 0)
					SaveRegFile(RebuildRegistryEntry(Items));
			}
			else
			{
				WriteHexRegKey(RebuildRegistryEntry(Items));
			}

		}

		/// <summary>
		/// Formatea el número para usarse en las reasignaciones
		/// </summary>
		/// <param name="Number">Número que se va a formatear</param>
		/// <returns>Regresa el número con el formato adecuado</returns>
		private byte GetBytes(int Number)
		{
				return (byte)(Number % 0xE0000);
		}

		/// <summary>
		/// Lee los datos del registro y los agrega al ListView
		/// </summary>
		private void LoadData()
		{

			Buff = ReadRegKey();

			try
			{

				if (!(Buff == null))
				{
					if ((Buff.Length % 4) != 0 || Buff.Length < 20)	
					{
						throw new InvalidDataException();
					}

					TSlblCount.Text = Convert.ToString(Buff[8] - 1);
					FillListView(Buff);
				}

			}
			catch (InvalidDataException)
			{
				MessageBox.Show("Se encontraron datos no válidos en el registro", "Error" , MessageBoxButtons.OK , MessageBoxIcon.Error);

				TSlblCount.Text = "0";
				
			}
		}

		/// <summary>
		/// Crea los datos para agregarse al registro con el formato adecuado
		/// </summary>
		/// <param name="Items">Lista del tipo string con los elementos</param>
		/// <returns>Regresa un arreglo  de bytes con los datos</returns>
		private byte[] RebuildRegistryEntry(List<string> Items)
		{

			byte[] OutBuff = new byte[16 + ((Items.Count/2)*4)]; //Encabezado y flags
			
			OutBuff[0] = 0; //Encabezado y flags
			OutBuff[1] = 0; //Encabezado y flags
			OutBuff[2] = 0; //Encabezado y flags
			OutBuff[3] = 0; //Encabezado y flags
			OutBuff[4] = 0; //Encabezado y flags
			OutBuff[5] = 0; //Encabezado y flags
			OutBuff[6] = 0; //Encabezado y flags
			OutBuff[7] = 0; //Encabezado y flags
			OutBuff[8] = (byte)((Items.Count / 2) + 1); //Numero de entradas
			OutBuff[9] = 0; //Numero de entradas
			OutBuff[10] = 0;//Numero de entradas
			OutBuff[11] = 0;//Numero de entradas

			for (int i = 0; i < Items.Count; i++)
			{
				if (Convert.ToInt32((Items[i])) > 255)
				{
					OutBuff[12 + (i * 2)] = GetBytes(Convert.ToInt32(Items[i]));
					OutBuff[13 + (i * 2)] = 0xe0;
				}
				else
				{
					OutBuff[12 + (i * 2)] = Convert.ToByte( Items[i]);
					OutBuff[13 + (i * 2)] = 0x00;
				}
			}
			
			OutBuff[OutBuff.Length - 4] = 0;
			OutBuff[OutBuff.Length - 3] = 0;
			OutBuff[OutBuff.Length - 2] = 0;
			OutBuff[OutBuff.Length - 1] = 0;

			return OutBuff;
		}

#endregion

		private void FrmMain_Load(object sender, EventArgs e)
		{
			LoadData();
		}

		private void BtnAdd_Click(object sender, EventArgs e)
		{
			if (!string.IsNullOrWhiteSpace(TxtKeyIn.Text) && !string.IsNullOrWhiteSpace(TxtKeyOut.Text))
			{
				ListViewItem LV = new ListViewItem(TxtKeyOut.Text);
				LV.SubItems.Add(TxtKeyIn.Text);
				LvReassignedKeys.Items.Add(LV);
			}
			else
				MessageBox.Show("Revisa los valores de las teclas", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
		}

		private void textBox1_KeyDown(object sender, KeyEventArgs e)
		{
			e.SuppressKeyPress = true;
		}



		private void TSMIExport_Click(object sender, EventArgs e)
		{

			BuildAndSaveData(SaveFile:true);
		}

		private void BtnApply_Click(object sender, EventArgs e)
		{
			if (MessageBox.Show("Realmente quires reasignar estas teclas?", "Eliminar", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)
			BuildAndSaveData(false);
		}

		private void BtnDelete_Click(object sender, EventArgs e)
		{
			try 
			{ 
				DeleteRegKey();
			}
			catch 
			{ 
				MessageBox.Show( e.ToString()); 
			}

			if (LvReassignedKeys.SelectedItems.Count > 0)
				LvReassignedKeys.Items.Remove(LvReassignedKeys.SelectedItems[0]);
		}

		private void TSMIUpdate_Click(object sender, EventArgs e)
		{
			LvReassignedKeys.Items.Clear();
			LoadData();
		}

		private void salirToolStripMenuItem_Click(object sender, EventArgs e)
		{
			Application.Exit();
		}

		private void TSMIReset_Click(object sender, EventArgs e)
		{
			if (MessageBox.Show("Realmente quieres eliminar todo", "Eliminar", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)
				DeleteRegKey();

			LvReassignedKeys.Items.Clear();
			LoadData();

		}

		private void BtnRemoveKey_Click(object sender, EventArgs e)
		{
			foreach (ListViewItem LV in LvReassignedKeys.CheckedItems)
			{
				LvReassignedKeys.Items.Remove(LV);
			}
		}
	}
}