quieres bloquear el teclado? o bloquear ciertas teclas

explicate más

quiero escribir en la interrupcion de teclado, es decir, poder escribir por el puerto de teclado sin el teclado, no se si me explico...

ya lo probé y no me sirve, ya que en el inicio de sesion de windows no me envia las teclas "pulsadas" con el keybd_event al foco del password por ejemplo, eso es lo que quiero hacer en definitiva, no hay nada mas a parte del sendkeys?

Saludos!

El API SendMessage tambien sirve para enviar teclas pero a un handle determinado...

Mira este ejemplo en C#

        [DllImport("user32.dll")]
        public static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, int wParam, int lParam);
 
            public const int WM_KEYDOWN = 0x0100;
            public const int WM_KEYUP = 0x0101;
            public const int WM_CHAR = 0x0102;
 
        public static void SendString(IntPtr mHandle, string s)
        {
            foreach (var c in s)
                SendKey(mHandle, Convert.ToInt32(c));
            Thread.Sleep(10);
        }
 
        public static void SendKey(IntPtr mHandle, Int32 key)
        {
            SendMessage(mHandle, WM_KEYDOWN, (int)key, 0);
            SendMessage(mHandle, WM_CHAR, (int)key, 0);
            SendMessage(mHandle, WM_KEYUP, (int)key, 0);
        }

Primero debes de descargar el WinID para saber si el TextBox es Child o Parent y saber cual es su Class y el Class de su Parent si es Child, esto para así saber si debes usar FindWindow o FindWindowEx. Una vez obtenido el Handle el codigo anterior es más facil de usar en Vb.Net:

    Public Const _
    WM_KEYDOWN As Integer = &H100, _
    WM_KEYUP As Integer = &H101, _
    WM_CHAR As Integer = &H102
 
    Public Sub SendString(ByVal mHandle As IntPtr, ByVal s As String)
 
        For Each c As String In s
            SendKey(mHandle, System.Text.Encoding.Default.GetBytes(c).First)
            Threading.Thread.Sleep(10)
        Next
 
    End Sub
 
    Public Sub SendKey(ByVal mHandle As IntPtr, ByVal key As Keys)
        SendMessage(mHandle, WM_KEYDOWN, key, IntPtr.Zero)
        SendMessage(mHandle, WM_CHAR, key, IntPtr.Zero)
        SendMessage(mHandle, WM_KEYUP, key, IntPtr.Zero)
    End Sub

Y prueba el codigo así:

Debes importar SendMessage, FindWindow y FindWindowEx ( las consigues en pinvoke.net )

Abre un Bloc de Notas y dejalo vacio, en tu Sub Load agrega lo siguiente:

        Dim Notepad As IntPtr = FindWindowEx(FindWindow("Notepad", Nothing), 0, "Edit", Nothing)
 
        SendString(Notepad, "Enviando String con SendMessage")

Funciona perfecto ^^