Hola.

El código que has citado no sirve para sintetizar pulsaciones de teclado, sino para enviar caracteres, por ende, no es posible utilizar las teclas especiales Fn. Aparte de eso, no está demasiado bien enfocada la implementación de los métodos, me refiero, la función que escribí se debería haber llamado SendChar en lugar de SendKey para evitar este tipo de confusión.

Para enviar pulsaciones del teclado la metodología es practicamente idéntica, solo que obviamente no hay que realizar ninguna conversión a caracter. Puedes tratar de modificar el código que publiqué para ignorar la conversión a caracter a ver si así funciona como esperas.

Te mostraría un ejemplo actualizado y completo pero son bastantes definiciones las que hay que usar y agrandaría demasiado (todavía más) esta respuesta, sin embargo, todo lo que necesitas lo puedes encontrar en la implementación que hice de RAW_INPUT en mi API ElektroKit, solo tienes que copiar y pegar los miembros relacionados entre sí:

        <SuppressUnmanagedCodeSecurity>
        <DllImport("user32.dll", SetLastError:=True)>
        Public Shared Function SendInput(ByVal nInputs As Integer,
<MarshalAs(UnmanagedType.LPArray), [In]> ByVal pInputs As Input32(),
                                         ByVal cbSize As Integer
        ) As Integer
        End Function
 
        <SuppressUnmanagedCodeSecurity>
        <DllImport("user32.dll", SetLastError:=True)>
        Public Shared Function SendInput(ByVal nInputs As Integer,
<MarshalAs(UnmanagedType.LPArray), [In]> ByVal pInputs As Input64(),
                                         ByVal cbSize As Integer
        ) As Integer
        End Function

+

( click en las imágenes para ir al código fuente )





( Además de las estructuras mencionadas, también necesitarás: Win32.Types.InputType, Win32.Types.MouseInput, Win32.Types.KeyboardInput y Win32.Types.HardwareInput )

+



 (Función: Keyboard.SendKey())

Nota:
La estructura Input está dividida en dos, una para ser utilizada bajo Windows x86, y la otra para Windows x64. Y a raíz de lo mencionado hay una condicional para utilizar una estructura o la otra en el bloque del método SendKey (entre otros). El motivo de todo esto es que en un principio se me dificultó la tarea de portabilizar la estructura, sin embargo, todo eso ya lo refactoricé y lo simplifiqué, pero el código que hay publicado en GitHub está desactualizado (de todas formas te funcionará correctamente. simplemente es un código feo o guarro por así decirlo).

---

Si te parece mucho lio todo lo de arriba, la alternativa sería compilar la librería y/o descargar la última release ya compilada desde GitHub, y entonces simplemente tienes que llamar a la función Elektro.Core.IO.Tools.Keyboard.SendKey().

Ejemplo de uso:

Imports Elektro.Core.IO.Enums
Imports Elektro.Core.IO.Tools
 
Public NotInheritable Class Form1
 
    Private Sub Button1_Click() Handles Button1.Click
 
        Process.Start("proceso.exe")
        Thread.Sleep(TimeSpan.FromSeconds(5))
        Keyboard.SendKey(Keys.F10, KeyBehavior.Press)
 
    End Sub
 
End Class

Saludos

hola

MODO 1

USANDO SENDINPUT

Imports System.Security
Imports System.Runtime.InteropServices
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sInput As NativeMethods.INPUT
        sInput.type = NativeMethods.INPUT_KEYBOARD
        sInput.ki.wVk = Keys.F10
        sInput.ki.dwFlags = 0
 
        NativeMethods.SendInput(1, sInput, Marshal.SizeOf(GetType(NativeMethods.INPUT)))
    End Sub
End Class
 
 
<SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Private Sub New()
    End Sub
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Friend Shared Function SendInput(ByVal cInputs As Integer, ByRef pInputs As INPUT, ByVal cbSize As Integer) As Integer
    End Function
 
    Structure MOUSEINPUT
        Public dx As Integer
        Public dy As Integer
        Public mouseData As Integer
        Public dwFlags As Integer
        Public time As Integer
        Public dwExtraInfo As IntPtr
    End Structure
 
    Structure KEYBDINPUT
        Public wVk As Short
        Public wScan As Short
        Public dwFlags As Integer
        Public time As Integer
        Public dwExtraInfo As IntPtr
    End Structure
    Structure HARDWAREINPUT
        Public uMsg As Integer
        Public wParamL As Short
        Public wParamH As Short
    End Structure
 
    <StructLayout(LayoutKind.Explicit)> _
    Structure INPUT
        <FieldOffset(0)> _
        Public type As Integer
        <FieldOffset(4)> _
        Public mi As MOUSEINPUT
        <FieldOffset(4)> _
        Public ki As KEYBDINPUT
        <FieldOffset(4)> _
        Public hi As HARDWAREINPUT
    End Structure
 
 
    Public Const VK_H As Short = 72
    Public Const VK_E As Short = 69
    Public Const VK_L As Short = 76
    Public Const VK_O As Short = 79
 
    Public Const KEYEVENTF_KEYUP As Integer = &H2
    Public Const INPUT_MOUSE As Integer = 0
    Public Const INPUT_KEYBOARD As Integer = 1
    Public Const INPUT_HARDWARE As Integer = 2
 
 
End Class
 
 

---

MODO 2

USANDO KEYBD_EVENT

Imports System.Security
Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NativeMethods.keybd_event(Keys.F10, 0, 0, 0)
        NativeMethods.keybd_event(Keys.F10, 0, NativeMethods.KeyEventFlags.KEYEVENTF_KEYUP, 0)
    End Sub
End Class
 
<SuppressUnmanagedCodeSecurity()>
Friend NotInheritable Class NativeMethods
    Private Sub New()
    End Sub
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Friend Shared Sub keybd_event(ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Integer, _
        ByVal dwExtraInfo As Integer)
    End Sub
 
    <Flags()> _
    Public Enum KeyEventFlags As UInteger
        VK_NUMLOCK = &H90
        VK_SCROLL = &H91
        VK_CAPITAL = &H14
        KEYEVENTF_EXTENDEDKEY = &H1
        KEYEVENTF_KEYUP = &H2
        VER_PLATFORM_WIN32_NT = 2
        VER_PLATFORM_WIN32_WINDOWS = 1
    End Enum
End Class
 
 

Por ahí hay gente que aconseja usar SendInput, pero funciona en los dos casos. Por lo menos en mi OS, en el tuyo no se. Ambos usan User32.dll.

Dios jajajaja 

Embullate da clases online... GGG

Bueno entre tanto y tanto el Metodo 2 me funciono no obstante probare el 1ero con los ajustes y comento.

PD: Mas me interesa poder hacer la captura de la imagen del juego sin necesidad de usar un programa externo que me haga esto, es el objetivo de este codigo. Que ya estoy cerca de resolver.

Salu2 y Graciasss