Ver código fuente

grotfang · #1 (**permalink**) 21/03/2005, 07:21

Buenas,

estoy programándome un navegador web y me gustaría añadirle la opción de ver código fuente, pero no sé cómo. Podeis ayudarme?? A poder ser me gustaría hacerlo sin usar ninguna api ni ninguna biblioteca.

Saludos y gracias.

vbx3m · #2 (**permalink**) 22/03/2005, 16:47

Aqui esta este codigo:

Dim strUrl As String
strUrl = text1.Text 'Aqui especificas la direccion
If Len(strUrl) > 11 Then
Screen.MousePointer = 13
text2.Text = Inet1.OpenURL(strUrl) 'en el text2 estara el codigo ponlo multiline para que se vea todo

Este codigo puedes mandarlo a otro form o puedes guardarlo como archivo de texto para luego abrirlo...

vbx3m · #3 (**permalink**) 22/03/2005, 16:48

Ah se me olvidaba debes agregar el control Inet...

edi87 · #4 (**permalink**) 22/03/2005, 20:31

Hola, tambien podes usar el control WebBrowser, es la libreria de Microsoft Internet Controls, y con este codigo:

Código:

text1.text=WebBrowser1.Document.documentElement.innerHTML

te devuelve el codigo fuente de la pagina q abriste previamente con .Navigate

Saludos

EDICION:
nose porque me separa la instruccion innerHTML, pero va todo junto

grotfang · #5 (**permalink**) 23/03/2005, 03:16

Muchas gracias a los dos, en cuanto pueda me pongo con ello, a ver si hay suerte

Saludos-

Shadow_Ian · #6 (**permalink**) 23/03/2005, 09:37

Hay alguna manera de ver el codigo fuente de una dirección antes de abrir la pagina en VB6?

Gracias.

vbx3m · #7 (**permalink**) 23/03/2005, 09:42

Con esa forma puedes ver el codigo sin necesidad de ir a la pag, solo tienes que especificar la direción...