[SOLUCIONADO] Cambiar ventana activa para escribir en ella

[Omarchh]

Hola, estoy realizando un teclado en vb.net y me tope con un problema, tengo que hacer que este teclado escriba en ventanas "anteriormente activadas" por ejemplo en word, un block de notas o paginas de Internet.

Tengo botones (teclas) que al hacer clic realizaran la función de escribir su determinada tecla, por ejemplo el numero 1

Código vb:

Private Sub Tecla_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tecla_1.Click
        'En esta parte iria una funcion para cambiar ventana
        SendKeys.Send("1") 'Se escribe el numero 1 en la ventana aparte
End Sub
 

Apenas hoy empeze a utilizar .net y no conozco mucho de esto si pudiesen ayudarme se los agradeceria mucho.

[Omarchh]

He encontrado esto pero no puedo hacerlo funcionar y no se porque...

Traigo una imagen y es la primera vez que veo las funciones FindWindow, SetForegroundWindow y SendMessage

[Omarchh]

He encontrado este codigo, me ha funcionado, ahora la pregunta es... como cambio a la ultima ventana activa sin tener que ponerle el nombre de la aplicacion y el titulo de la ventana???

Código vb:

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
       ByVal lpClassName As String, _
       ByVal lpWindowName As String) As IntPtr
    End Function
 
    
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Long
    End Function
 
    Dim ParenthWnd As New IntPtr(0)
    
 
    Public Sub cambioventana(ByVal title As String)
 
        'Busca la ventana, los valores deben ser la aplicacion y el titulo de la aplicacion
        'Esto es lo que quiero saber...
        ParenthWnd = FindWindow("Notepad", "Sin título: Bloc de notas")
 
        If ParenthWnd.Equals(IntPtr.Zero) Then
            MessageBox.Show("No se encontro la ventana")
        Else
            ' La ha encontrado
            SetForegroundWindow(ParenthWnd)
        End If
    End Sub
 

Gracias de antemano