C#

<br />
 Private Declare Function GetCursor Lib "user32" () As Int32<br />
    Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (ByRef lpPoint As POINTAPI) As Int32<br />
    Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Int32, ByVal yPoint As Int32) As Int32<br />
    Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Int32, ByRef lpdwProcessId As Int32) As Int32<br />
    Private Declare Function AttachThreadInput Lib "user32" Alias "AttachThreadInput" (ByVal idAttach As Int32, ByVal idAttachTo As Int32, ByVal fAttach As Int32) As Int32<br />
    Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Int32) As Int16<br />

Public Class frmMain<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As LowLevelKeyboardProcDelegate, ByVal hMod As Integer, ByVal dwThreadId As Integer) As Integer<br />
    Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal hHook As Integer) As Integer<br />
    Delegate Function LowLevelKeyboardProcDelegate(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer<br />
    Declare Function CallNextHookEx Lib "user32" Alias "CallNextHookEx" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer<br />
<br />
    Const WH_KEYBOARD_LL = 13<br />
<br />
    Structure KBDLLHOOKSTRUCT<br />
        Dim vkCode As Integer<br />
        Dim scanCode As Integer<br />
        Dim flags As Integer<br />
        Dim time As Integer<br />
        Dim dwExtraInfo As Integer<br />
    End Structure<br />
<br />
    Dim intLLKey As Integer<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
        Me.lblInfo = New System.Windows.Forms.Label()<br />
        Me.SuspendLayout()<br />
        '<br />
        'lblInfo<br />
        '<br />
        Me.lblInfo.Location = New System.Drawing.Point(16, 16)<br />
        Me.lblInfo.Name = "lblInfo"<br />
        Me.lblInfo.Size = New System.Drawing.Size(216, 88)<br />
        Me.lblInfo.TabIndex = 0<br />
        Me.lblInfo.Text = "Alt-Tab, Alt-Esc, Ctrl-Esc, and the Windows key are disabled. Ctrl-Alt-Del and Al" & _<br />
        "t-F4 are still enabled. Close the application to reset the keyboard. While this " & _<br />
        "program is running, the low-level keyboard effect is global."<br />
        '<br />
        'frmMain<br />
        '<br />
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
        Me.ClientSize = New System.Drawing.Size(248, 118)<br />
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblInfo})<br />
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog<br />
        Me.MaximizeBox = False<br />
        Me.MinimizeBox = False<br />
        Me.Name = "frmMain"<br />
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen<br />
        Me.Text = "LowLevel Keyboard Hook"<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
<br />
#End Region<br />
<br />
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        intLLKey = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32(), 0)<br />
    End Sub<br />
<br />
    Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing<br />
        UnhookWindowsHookEx(intLLKey)<br />
    End Sub<br />
<br />
    Private Function LowLevelKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KBDLLHOOKSTRUCT) As Integer<br />
        Dim blnEat As Boolean = False<br />
<br />
        Select Case wParam<br />
            Case 256, 257, 260, 261<br />
                'Alt+Tab, Alt+Esc, Ctrl+Esc, Windows Key<br />
                blnEat = ((lParam.vkCode = 9) AndAlso (lParam.flags = 32)) Or _<br />
                ((lParam.vkCode = 27) AndAlso (lParam.flags = 32)) Or _<br />
                ((lParam.vkCode = 27) AndAlso (lParam.flags = 0)) Or _<br />
                ((lParam.vkCode = 91) AndAlso (lParam.flags = 1)) Or _<br />
                ((lParam.vkCode = 92) AndAlso (lParam.flags = 1))<br />
        End Select<br />
<br />
        If blnEat = True Then<br />
            Return 1<br />
        Else<br />
            Return CallNextHookEx(0, nCode, wParam, lParam)<br />
        End If<br />
    End Function<br />
    Friend WithEvents lblInfo As System.Windows.Forms.Label<br />
End Class<br />

public class MainForm : Form
{
  public static void Main(string[] args)
  {
    string filename = null;
    if (args.Length > 0) filename = args[0];
    Application.Run(new MainForm(filename));
  }
  public MainForm() : this(null)
  {
  }
  private string filename;
  public MainForm(string filename)
  {
    this.filename = filename;
  }
  public string Filename
  {
    get { return this.filename; }
    set { this.filename = value; }
  }
  // ...
}

<?xml version="1.0" encoding="utf-8" ?>
<root>
  <xsd:schema id="root" xmlns=""
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
	xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:element name="root" msdata:IsDataSet="true">
      <xsd:complexType>
        <xsd:choice maxOccurs="unbounded">
          <xsd:element name="data">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string"
				  minOccurs="0" msdata:Ordinal="1" />
                <xsd:element name="comment" type="xsd:string"
				  minOccurs="0" msdata:Ordinal="2" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" />
              <xsd:attribute name="type" type="xsd:string" />
              <xsd:attribute name="mimetype" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="resheader">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string"
				  minOccurs="0" msdata:Ordinal="1" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string"
			    use="required" />
            </xsd:complexType>
          </xsd:element>
        </xsd:choice>
      </xsd:complexType>
    </xsd:element>
  </xsd:schema>
  <resheader name="ResMimeType">
    <value>text/microsoft-resx</value>
  </resheader>
  <resheader name="Version">
    <value>1.0.0.0</value>
  </resheader>
  <resheader name="Reader">
    <value>System.Resources.ResXResourceReader,
	  System.Windows.Forms, Version=1.0.3102.0, Culture=neutral,
	  PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="Writer">
    <value>System.Resources.ResXResourceWriter,
	  System.Windows.Forms, Version=1.0.3102.0, Culture=neutral,
	  PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <data name="Value1">
    <value>ValueText1</value>
  </data>
  <data name="Value2">
    <value>ValueText2</value>
  </data>
</root>

OleDbConnection conn = new OleDbConnection(string.Format(
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Mode=ReadWrite",
  txtDbPath.Text));
OleDbCommand cmd = conn.CreateCommand();
cmd.CommandText = "SELECT Name FROM MSysObjects WHERE Type = 1";
OleDbDataReader reader = null;
try
{
  conn.Open();
  reader = cmd.ExecuteReader();
  while (reader.Read())
  {
    Console.WriteLine(reader.GetString(0));
  }
}
catch (Exception e)
{
  // Providing something like this in your message would've helped us
  // determine what the problem was!
  Console.Error.WriteLine("An error occured: {0}", e.Message);
}
finally
{
  if (reader != null) reader.Close();
  conn.Close();
}