Hola trabajo en VB NET y necesito que mi sistema me regrese el nombre de la ventana activa Actual, ya sea su captioen en la barra de Titulo, o Nombre de Executable

Gracias...

__________________
Todo lo que sube Baja, Lo debes de Comprender. Y Mi Collar de Guamuchil Entonces vas a Querer.

Encontre este codigo solo que no me regresa el caption de la ventana, alguien sabe porque, si acaso me falta una libreria...

Trabajo en Visual Basic .NET

__________________
Todo lo que sube Baja, Lo debes de Comprender. Y Mi Collar de Guamuchil Entonces vas a Querer.

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim LongitudNomVentana As Long, NomVentana As String, Manejador As String
NomVentana = Space$(500)
Manejador = GetActiveWindow()
LongitudNomVentana = GetWindowText(GetActiveWindow(), NomVentana, 500)
'MessageBox.Show(NomVentana & " " & LongitudNomVentana)
Text1.Text = Manejador
End Sub

__________________
Todo lo que sube Baja, Lo debes de Comprender. Y Mi Collar de Guamuchil Entonces vas a Querer.

este problema ya quedo resuleto si alguien lo necesita, me avisa o bien en la Web de www.elguille viene un ejemplo

Gracias

ralmeida@sewsus.com.mx

__________________
Todo lo que sube Baja, Lo debes de Comprender. Y Mi Collar de Guamuchil Entonces vas a Querer.