Inet (Código fuente web)

[yeikos]

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 [Seleccionar] Expandir


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


[WarGhost]

porque creo que los textbox tiene limite.

no se tampo no tengo idea de eso.

Salu2, WarGhost

[yeikos]

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.

[WarGhost]

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

Salu2, WarGhot

[yeikos]

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

[<--v1c1ous-->]

Buenas

Dejalo almacenado en un buffer de la cadena.

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

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.

[Gorky]

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

[yeikos]

Buenas

Dejalo almacenado en un buffer de la cadena.

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

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.

[_Sergi_]

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

Un saludo

[WarGhost]

Aqui te dejo un codigo de para hacerlo con WinSock:

Primero no conectamos al servidor:

Código [Seleccionar] Expandir

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.

Salu2, WarGhost