>¿ es posible saber el nombre de la ventana a partir de el Nombre de clase ?
Podríamos "darle la vuelta" (y cambiar algo, claro :-D ) al código para
obtener el nombre de clase a partir de la ventana :
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Sub GetTitleFromClassName()
Dim sInput As String
Dim hwnd As Long
Dim lpWindowText As String
Dim nMaxCount As Long
Dim lresult As Long
' pad the return buffer for WindowText
nMaxCount = 256
lpWindowText = Space(nMaxCount)
' Note: must be an exact match
sInput = InputBox("Enter the exact class name:")
' No validation is done as this is a debug window utility
hwnd = FindWindow(sInput, vbNullString)
' Get the window title, again, no validation
lresult = GetWindowText(hwnd, lpWindowText, nMaxCount)
Debug.Print "Class name: " & sInput
Debug.Print "Window: " & Left$(lpWindowText, lresult)
End Sub
PD: como la original estaba en inglés la "vuelta" la dejé también en
"extranjero".
Un saludo.
_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma