Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Meg en 8 Junio 2006, 01:35 am


Título: Ventana activa
Publicado por: Meg en 8 Junio 2006, 01:35 am
tengo una dudilla como podria averiguar el titulo de una ventana activa?? me refiero al titulo de una ventana externa al programa en visual basic.

Por ejemplo si tengo el bloc de notas abierto que me salga en un label o un textbox  (nombre.txt - Bloc de notas)

gracias y salu2

Título: Re: Ventana activa
Publicado por: NYlOn en 8 Junio 2006, 22:35 pm
Este codigo cambia el titulo de la ventana por la ventana activa (se puede ver en la barra de tareas)

Código:
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Timer1_Timer()
    Dim lnghWnd As Long, Texto As String
    lnghWnd = GetForegroundWindow
    Texto = String(255, Chr(0))
    GetWindowText GetForegroundWindow, Texto, 255
    Me.Caption = Texto
End Sub

El Timer tiene que tener un intervalo corto, con 100 andaria bien...

Saludos.-

Título: Re: Ventana activa
Publicado por: Meg en 9 Junio 2006, 01:26 am
Gracias Nylon el codigo me sirvio :P


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines