Autor
Código:
Public Function VentanaActiva() As String
Dim hWnd As Long
hWnd = GetActiveWindow
If IsWindowVisible(hWnd) Then
VentanaActiva = WindowTitle(hWnd)
Exit Function
End If
End Function
Utilizo esta funcion para que m devuelva el titulo de la ventana. Lo de WindowTitle es otra funcion.... el problema que tengo es que estoy en una carpeta o cuando genero el proyecto o el titulo del visual basic, si k m lo devuelve pero cuando es Firefox o Iexplore no m da el hwnd ( dice q es 0 ). No se donde esta el problema ya que con lo mismo codem como e dixo antes, me funcoina en unas ventanas y en otras no.
En línea
