Agregar :
2 Controles TextBox (txtURL,txtCode)
1 Command Button (cmdExt)
1 Inet (intCon)
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
(http://img478.imageshack.us/img478/139/inetci8.png)
Ejemplo
(http://img443.imageshack.us/img443/3508/htmlkw3.png)
No lo saca muy ordenadito pero al pareser lo saca todo :P
Esta muy bueno :D 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 :¬¬
Habria una manera de sacar todo completo...
Como de sacar todo completo ? :huh: no te entendi
Sancho.Mazorka :¬¬
Cita de: Sancho.Mazorka en 17 Julio 2007, 02:00 AM
reemplaza los caracters 13 o 10 o 13 y 10 x un vbcrlf
Eso es lo que si tiene que hacer.... ;) ;)
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
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)
Entiende que solo saca el HTML del html y ya eso es todo no jala las vinculaciones ni nada solo el codigo html
sip pero no se podria hacer en Visual Basic lo digo por la denigracion en contra del VB a lo mejor y es verdad ^^!
Ponle el multiline en true al txtCode, el Alignment en Center, el ScrollBars en Both y se ve mas o menos mejor XD
De echo solo le falto center, Experto
por q dices eso no me creo experto!!!!!!!!!!
Solo trato de ayudar o aportar algo...
Pues si pero eso no es aportar,
dijiste algo que ya lo tenia
ok , no problem solo q no lo note
no ay bronca
:¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :¬¬
Buen aporte le falta un icono pero esta buenisimo no importa jajaja