{Aporte bb} saca fuentes HTML

[ActiveSheet]

Agregar :
2 Controles TextBox   (txtURL,txtCode)
1 Command Button     (cmdExt)
1 Inet                        (intCon)

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim Url As String
Private Sub cmdExt_Click()
    Url = txtURL.Text
    If Len(Url) > 11 Then
        txtCode.Text = intCon.OpenURL(Url)
        MsgBox "ya esta el code we",vbInformation, "Extorcionador"
    Else
        MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
    End If
End Sub



Ejemplo


No lo saca muy ordenadito pero al pareser lo saca todo 

[Sancho.Mazorka]

Esta muy bueno  y la web de Google no tiene formato estructurado el code, esta todo seguido, si no reemplaza los caracters 13 o 10 o 13 y 10 x un vbcrlf


Sancho.Mazorka   

[Freeze.]

Habria una manera de sacar todo completo...

[Sancho.Mazorka]

Como de sacar todo completo ?  no te entendi

Sancho.Mazorka   

[Hendrix]

reemplaza los caracters 13 o 10 o 13 y 10 x un vbcrlf

Eso es lo que si tiene que hacer....

[ActiveSheet]

Ok, pero de que rayos habla freeze lo saca completo

a la mejor lo probaste en tu pagina y como es php no lo saca xD

me parece q solo saca html y txt

[Freeze.]

Me explico para poner http://www.web.com
y que salga:

-http://www.web.com/index.php
-http://www.web.com/descargas.php
-http://www.web.com/Salir.php xD

Creo que si se puede porque hace tiempo me descargue un programa para bajar TODO de una web... Claro no se q lenguaje era asi que por favor aclaren esa duda... (Los que quieran jajaja)

[ActiveSheet]

Entiende que solo saca el HTML del html y ya eso es todo no jala las vinculaciones ni nada solo el codigo html

[Freeze.]

sip pero no se podria hacer en Visual Basic lo digo por la denigracion en contra del VB a lo mejor y es verdad ^^!

[c0c0_w3y_s0ftwar3]

Ponle el multiline en true al txtCode, el Alignment en Center, el ScrollBars en Both y se ve mas o menos mejor XD