Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

424 - Obtener los Scripts de una página

Ejemplo que utiliza la referencia a la libraria Html object Library para obtener todos los JavaScript de una página indicada

La idea de este ejemplo está extraido de un programa realizado por Gilles Manouvrier. que era para desmenusar una página para obtener : los enlaces, las tablas y las imagenes

Para este ejemplo, ( en el que solo se obtienen los scripts) , se utiliza la propiedad outerHTML de la colección "scripts" de la clase IHTMLElement del documento cargado en un webbrowser control

El ejemplo los carga en un control treeview, y almacena el fuente en la propiedad Tag de cada nodo. ( esto en el evento DownloadComplete del control web )

Colocar los siguientes controles :

Un control Text1 para indicar la dirección url
Un CommandButton Command1
Un WebBrowser
Un Treeview
Marcar la referencia a Microsoft Html object library

Código fuente en un form

Option Explicit Private Sub Command1_Click() ' carga la página WebBrowser1.Navigate Text1.Text End Sub Private Sub Form_Load() Text1.Text = "http://yahoo.com" End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) ' muestra el fuente MsgBox Node.Tag End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Me.Caption = "cantidad de scripts : " & TreeView1.Nodes.Count End Sub Private Sub WebBrowser1_DownloadComplete() Dim idoc As IHTMLDocument2 Dim HTMObj As IHTMLElement Dim Nodo As Node Dim i As Integer Dim clave As String TreeView1.Nodes.Clear Set idoc = WebBrowser1.Document ' recorre la colección For i = 0 To idoc.scripts.length - 1 ' referencia a este scrpipt Set HTMObj = idoc.scripts(i) ' key del nodo clave = "script" & TreeView1.Nodes.Count ' lo añade Set Nodo = TreeView1.Nodes.Add(, tvwChild, clave, _ "Script en la Linea : " & HTMObj.sourceIndex) ' Agrega el código fuente a la propiedad tag del nodo actual Nodo.Tag = HTMObj.outerHTML Next End Sub

Recursos Visual basic - Enlaces relacionados

Buscar en Recursos vb