Red de conocimiento informático - Aprendizaje de código fuente - Lenguaje sencillo para obtener la ventana Flash de la página web. La solución obtiene una puntuación alta

Lenguaje sencillo para obtener la ventana Flash de la página web. La solución obtiene una puntuación alta

.Versión 2

.Subroutine_Button 7_Clicked

.Variables locales Documento web, Clase de documento web, , ,

.Variables locales Clase de acción de página web, Acción de página web clase,

Formulario web de variable local, clase de operación web,

matriz de resultados de variable local, entero, "0"

. Variable local a, número entero

. Variable local i, número entero

. Destino de variable local, número entero

. Variable local hWnd, número entero

. Variable local Nula, tipo texto

. Variable local IES, número entero, "0"

. Variable_local Subwindow_handle, entero

. Class_Control_Initialize(WebBrowser1.Fetch_Window_Handle())

' EditBox12.Content = a Texto(WebBrowser1.Fetch_IS_Handle())

.Contenido = Convertir a texto (matriz de resultados [2])

Cuadro de edición 15. Contenido = Convertir a texto (matriz de resultados [3])

Retraso (1000)

Cuadro de edición 16.Contenido = Convertir a texto (documento de red. p>

Cuadro de edición 18.contenido = Convertir a texto (IES [2])

Cuadro de edición 19.content = Convertir a texto (IES [3])

' Cuadro de edición 19.content = Convertir a texto (matriz de resultados [7])

' Cuadro de edición 20.content = Convertir a texto (matriz de resultados [8])

' Cuadro de edición 21. content = Convertir a texto (matriz de resultados [9])

' Cuadro de edición 21. contenido = a texto (matriz de resultados [8])

' Cuadro de edición 22. contenido = a texto (matriz de resultados [9]))

' Cuadro de edición 23 (matriz de resultados [9])

' Cuadro de edición 22. contenido = a texto (matriz de resultados [10])

' a = buscar miembros de la matriz (matriz de resultados)

.Bucle de conteo Primero (a, i)

' ' Cuadro de edición 10. Contenido = Convertir a texto (matriz de resultado [variable])

' ' Cuadro de edición 10. Contenido = Convertir a texto (matriz de resultados [1])

' ' Cuadro de edición 10.Fin del bucle de conteo ()

' Identificador de subventana = FindWindowEx (WebBrowser1.fetchWindowHandle () , 0 , to value ("MacromediaFlashPlayerActiveX"), 0)

' EditBox 22. content = to text (identificador de ventana secundaria)

Vaya al foro para ver el código fuente .

/read.php?ordertype=asc&tid=187171