02/06/2003, 10:24
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: Chapinlandia :-D
Mensajes: 725
Antigüedad: 22 años Puntos: 11 | |
| 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
dim cTxt as String, nHand as Long
nHand = GetActiveWindow()
cTxt = String(100, Chr$(0))
GetWindowText nHand, cTxt, 100
cTxt = Left$(cTxt, InStr(cTxt, Chr$(0)) - 1)
messagebox cTxt
Mira si ese codigo te sirve |