Imprimir Página - Inet (Código fuente web)

Título: Inet (Código fuente web)
Publicado por: yeikos en 1 Junio 2006, 19:01 pm

Cuando compilo esto y lo ejecuto no me muestra el codigo fuente entero, sino que se corta por el caracter 3000 y algo, y no solo en esa pagina, si no en muchas más que tienen el código fuente largo, porque puede ser? alguna solución?

Código:

code = Inet.OpenUrl "http://www.hl2spain.com"
text1.text = code

Título: Re: Inet (Código fuente web)
Publicado por: WarGhost en 1 Junio 2006, 19:03 pm

porque creo que los textbox tiene limite.

no se tampo no tengo idea de eso.

;D Salu2, WarGhost

Título: Re: Inet (Código fuente web)
Publicado por: yeikos en 1 Junio 2006, 19:28 pm

No, no es eso porque se puede seguir escribiendo en el textbox, y he utilizado variables, tambien he hecho un len(Inet.OpenUrl "http://www.hl2spain.com") y obtengo el valor de siempre que no es.

Título: Re: Inet (Código fuente web)
Publicado por: WarGhost en 1 Junio 2006, 19:39 pm

yo lo ice con winsock y la pagina l envia el varios paquetes depende del tamaño,pero con inet no tengo ni idea.

;D Salu2, WarGhot

Título: Re: Inet (Código fuente web)
Publicado por: yeikos en 1 Junio 2006, 19:51 pm

¿Cómo lo hiciste con winsock? ¿Hay algún inconveniente en usar Winsock en vez de INET?

Título: Re: Inet (Código fuente web)
Publicado por: <--v1c1ous--> en 2 Junio 2006, 06:00 am

Buenas

Dejalo almacenado en un buffer de la cadena.

El problema esta en el TextBox no en el control Inet:

Citar

Private Sub Form_Load()
Dim code As String
code = Inet1.OpenURL("http://www.hl2spain.com")
Open "C:\tmp.HTML" For Append As #1
Print #1, code
Close #1
End Sub

Saludos.

Título: Re: Inet (Código fuente web)
Publicado por: Gorky en 2 Junio 2006, 09:06 am

Y si en vez de usar un TextBox usas un RichTextBox?

Título: Re: Inet (Código fuente web)
Publicado por: yeikos en 2 Junio 2006, 15:04 pm

Cita de: hotmail_pop3 en 2 Junio 2006, 06:00 am

Buenas

Dejalo almacenado en un buffer de la cadena.

El problema esta en el TextBox no en el control Inet:

Citar

Private Sub Form_Load()
Dim code As String
code = Inet1.OpenURL("http://www.hl2spain.com")
Open "C:\tmp.HTML" For Append As #1
Print #1, code
Close #1
End Sub

Saludos.

Ya dije que había probado a almacenarla en una variable y muchas otras cosas más, y sigue sin funcionar...

Gorky, el problema no es del textbox, si no del control.

Título: Re: Inet (Código fuente web)
Publicado por: _Sergi_ en 2 Junio 2006, 18:43 pm

Para eso tienes que usar sockets. Ya sabes, Winsock o CSocket Master si no quieres depender de ningún ocx.

Un saludo

Título: Re: Inet (Código fuente web)
Publicado por: WarGhost en 3 Junio 2006, 13:18 pm

Aqui te dejo un codigo de para hacerlo con WinSock:

Primero no conectamos al servidor:

Código:

Private sub Form_load()
ws.connect "www.hl2spain.com", 80
End Sub

Private sub ws_Connect()
ws.senddata "Get " & "/" & " HTTP/1.0" & vbCrLf & "Accept: */*" & vbCrLf & "User-Agent: Programa" & vbCrLf & "Host: " & rHost & vbCrLf & "Pragma: no-cache" & vbCrLf & vbCrLf
end sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long) 
On Error GoTo Error
dim Data as string
ws.getdata Data
Text.text & text1.text & data & vbcrlf
Error:
end sub

puede que alla errores porque qui no tengo vb.

;D Salu2, WarGhost

Título: Re: Inet (Código fuente web)
Publicado por: <--v1c1ous--> en 4 Junio 2006, 01:22 am

OK, a mi me funciona a la perfeccion.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: yeikos en 1 Junio 2006, 19:01 pm