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?
code = Inet.OpenUrl "http://www.hl2spain.com"
text1.text = code
porque creo que los textbox tiene limite.
no se tampo no tengo idea de eso.
;D Salu2, WarGhost
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.
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
¿Cómo lo hiciste con winsock? ¿Hay algún inconveniente en usar Winsock en vez de INET?
Buenas
Dejalo almacenado en un buffer de la cadena.
El problema esta en el TextBox no en el control Inet:
CitarPrivate 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.
Y si en vez de usar un TextBox usas un RichTextBox?
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:
CitarPrivate 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.
Para eso tienes que usar sockets. Ya sabes, Winsock o CSocket Master si no quieres depender de ningún ocx.
Un saludo
Aqui te dejo un codigo de para hacerlo con WinSock:
Primero no conectamos al servidor:
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
OK, a mi me funciona a la perfeccion.