Red de conocimiento informático - Conocimiento del nombre de dominio - ¿Cómo utilizar la programación VB para obtener el contenido de las ventanas emergentes de Internet Explorer?

¿Cómo utilizar la programación VB para obtener el contenido de las ventanas emergentes de Internet Explorer?

¿Es Dim dWinFolder como nuevo ShellWindows?

Dim WithEvents eventIE como WebBrowser_V1

Private Sub Command1_Click()

Dim objIE como objeto

para cada objIE en dWinFolder

Si objIE.Command1.Enabled = False

List1.Enabled = False

Text1.Text = ""

Salir para

Finalizar si

Siguiente

Finalizar sub

Evento secundario privado IE_NavigateComplete(ByVal URL como cadena)

Text1.Text = Text1.Text Chr(13) Chr(10) URL

End Sub

Antes de ejecutar. Haga clic en el elemento Proyectos del menú Referencias y seleccione el elemento Controles de Internet de Microsoft en la lista Referencias disponibles para insertar referencias de objetos de Internet en el proyecto

Private Sub Form_Load()

Dim objIE As Object.

Para cada objIE en dWinFolder

Si InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) lt；gt; Entonces

List1; .AddItem objIE.Location()AddItem objIE.LocationURL

Fin si

Siguiente

Command1.Caption = "Cuerpo"

Fin Sub

Sub privado Form_Unload(Cancelar como entero)

Establecer dWinFolder = Nada

Fin Sub

Sub lista privada1_Click()

上篇: ¿Cómo hacer una tarjeta de presentación personal de WeChat? 下篇: ¿Qué sistema de pedidos de comida para llevar de WeChat es mejor?

Artículos populares