02/06/2003, 17:22
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: Chapinlandia :-D
Mensajes: 725
Antigüedad: 22 años Puntos: 11 | |
| ok aca vamos, espero que este si funcione
sorry, pero no tengo Visual Basic instalado.
Private Declare Function GetForegroundWindow 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 = GetForegroundWindow()
cTxt = String(100, Chr$(0))
GetWindowText nHand, cTxt, 100
cTxt = Left$(cTxt, InStr(cTxt, Chr$(0)) - 1)
messagebox cTxt |