1
Abra el script VB6 en su editor de VB preferido
2
Copia y pega el siguiente código en el código declaraciones : . Private Declare Function FindWindow Lib " user32 " ; _Alias " FindWindowA " _ ( lpClassName ByVal como secuencia, _ByVal lpWindowName As String ) As Long
Private Declare Function GetClassName Lib " user32 " _Alias " GetClassNameA " _ ( ByVal hWnd As Long , lpClassName _ByVal Como cadena , nMaxCount _ByVal As Long ) As Long
3
Copia y pega el siguiente código en la sección de procedimientos : GetClassNameFromTitle Public Sub () Dim sInput Como StringDim hWnd Como LongDim lpClassName Como StringDim nMaxCount Como LongDim LRESULT As Long ' rellenar el búfer de cambio de GetClassNamenMaxCount = 256lpClassName = espacio ( nMaxCount ) ' Nota : debe ser un matchsInput exacta = InputBox ("Escriba exactamente el título de la ventana :") ' No hay validación se lleva a cabo , ya que es una versión de depuración ventana utilityhWnd = FindWindow ( vbNullString , sInput ) ' Obtener el nombre de la clase de la ventana , de nuevo, no validationlresult = GetClassName ( hWnd, lpClassName , nMaxCount ) Debug.Print "Ventana :" & sInputDebug.Print " nombre de clase: "& Left $ ( lpClassName , LRESULT ) End Sub
4
clic " GetClassNameFromTitle "en la ventana de depuración y haga clic en" Ejecutar " . Esto debería mostrar el nombre de la clase de la ventana. Esto proporciona la estructura básica para el proceso
5
Agregue la siguiente secuencia de comandos si desea incluir el proceso en un envoltorio : . FActivateWindowClass Función Pública ( psClassname como secuencia) como BooleanDim hWnd Como LonghWnd = FindWindow ( psClassname , vbNullString ) Si hWnd > 0 entonces ' ShowWindow devuelve True si la ventana estaba oculta . No me importa lo que yo uso el estilo de sub - ShowWindow y SW_SHOW declarados en otra parte ' SW_SHOW mostrará la ventana en su tamaño actual y positionCall ShowWindow hWnd, SW_SHOWfActivateWindowClass = FindWindow TrueElse ' falló, FalsefActivateWindowClass retorno = FalseEnd IfEnd Función