Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: satan69 en 3 Junio 2007, 09:06 am



Título: url de txt y mandarlo a text
Publicado por: satan69 en 3 Junio 2007, 09:06 am
hola vuelvo hacerle otras preguntitas...

com puedo  hacer para conectar con el winsock a un servidor y mandar , por ejemplo  www.ejemplo.com/datos.txt  mandarlo a un text1.text o a una listbox


ejemplo que el  datos..txt sea

hola
hola2
hola3
hola4
'asi sucecivamente..


y gracias de antemano...!!!!1






Título: Re: url de txt y mandarlo a text
Publicado por: ~~ en 3 Junio 2007, 13:22 pm
Te refieres a mostrar el contenido del archivo de texto en un textbox??
Pues asi:

Código:
open ruta for binary as #1
dim archivo as string
archivo = space(lof(1))
get #1,,archivo
close #1

text1.text = archivo

Si lo kieres ir añadiendo a un list box linea a linea solo tienes q separar las lineas mediante un split:

Código:
linea = split(archivo,vbcrlf)

Y lo añades linea a linea siendo linea(0) la primera, linea(1) la segunda...


Título: Re: url de txt y mandarlo a text
Publicado por: satan69 en 3 Junio 2007, 19:07 pm
Te refieres a mostrar el contenido del archivo de texto en un textbox??
Pues asi:

Código:
open ruta for binary as #1
dim archivo as string
archivo = space(lof(1))
get #1,,archivo
close #1

text1.text = archivo

Si lo kieres ir añadiendo a un list box linea a linea solo tienes q separar las lineas mediante un split:

Código:
linea = split(archivo,vbcrlf)

Y lo añades linea a linea siendo linea(0) la primera, linea(1) la segunda...


gracias.. pero eso ya sabia.. lo qye te taba preguntando es si tengo un archivo .txt en server y quiero mostrarlo en un text o un list box.. sin descargar el archivo


Título: Re: url de txt y mandarlo a text
Publicado por: ~~ en 3 Junio 2007, 20:22 pm
Pues sin descargarlo o sin pasarle el contenido del texto al cliente de alguna manera no puedes...
Tienes o que descargar el archivo o simplemente q el servidor te mande el contenido ;)


Título: Re: url de txt y mandarlo a text
Publicado por: Hendrix en 3 Junio 2007, 23:28 pm
o simplemente q el servidor te mande el contenido ;)

Exacto, haces una peticion HTTP, el servidor te mandara el archivo y lo puedes agregar a un textbox sin tener que guardarlo en el disco duro... :)

Un Saludo.  ;)


Título: Re: url de txt y mandarlo a text
Publicado por: satan69 en 4 Junio 2007, 00:13 am
o simplemente q el servidor te mande el contenido ;)

Exacto, haces una peticion HTTP, el servidor te mandara el archivo y lo puedes agregar a un textbox sin tener que guardarlo en el disco duro... :)

Un Saludo.  ;)


asi es.. hago la peticion del archivo.. pero como lo muestro en e text.. si no lo quiero descargar


Título: Re: url de txt y mandarlo a text
Publicado por: <?BRoWLi?> en 4 Junio 2007, 01:07 am
Private Sub Form_Load()
' pon tu text en multilinea sino se te vera to seguido
Dim almacen() As Byte
I.Protocol = icHTTP
I.URL = "http://browli.007ihost.com"
almacen() = I.OpenURL("http://browli.007ihost.com")

Text1 = almacen()
End Sub

Por msn no te dije la solución, pero te di pistas, pero d todos modos ahi la tienes ;).. tambien puedes usar la API que te dije para descargar el archivo en ENVIRON("TEMP") (archivos temporales) y luego lo subes a tu txt.

EDITO: el control I, es un inet xD


Título: Re: url de txt y mandarlo a text
Publicado por: satan69 en 4 Junio 2007, 05:41 am
Private Sub Form_Load()
' pon tu text en multilinea sino se te vera to seguido
Dim almacen() As Byte
I.Protocol = icHTTP
I.URL = "http://browli.007ihost.com"
almacen() = I.OpenURL("http://browli.007ihost.com")

Text1 = almacen()
End Sub

Por msn no te dije la solución, pero te di pistas, pero d todos modos ahi la tienes ;).. tambien puedes usar la API que te dije para descargar el archivo en ENVIRON("TEMP") (archivos temporales) y luego lo subes a tu txt.

EDITO: el control I, es un inet xD


si funciona ... gracias...!!!!!!!!!!!!! ;D ;D ;D ;D