elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: 4n4lDetector v1.3: herramienta de análisis estático de malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  url de txt y mandarlo a text
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: url de txt y mandarlo a text  (Leído 978 veces)
satan69


Desconectado Desconectado

Mensajes: 341



Ver Perfil
url de txt y mandarlo a text
« en: 3 Junio 2007, 09:06 »

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






En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.982


Ver Perfil WWW
Re: url de txt y mandarlo a text
« Respuesta #1 en: 3 Junio 2007, 13:22 »

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...


En línea

satan69


Desconectado Desconectado

Mensajes: 341



Ver Perfil
Re: url de txt y mandarlo a text
« Respuesta #2 en: 3 Junio 2007, 19:07 »

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
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.982


Ver Perfil WWW
Re: url de txt y mandarlo a text
« Respuesta #3 en: 3 Junio 2007, 20:22 »

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 ;)
En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.275



Ver Perfil WWW
Re: url de txt y mandarlo a text
« Respuesta #4 en: 3 Junio 2007, 23:28 »

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.  ;)
En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
satan69


Desconectado Desconectado

Mensajes: 341



Ver Perfil
Re: url de txt y mandarlo a text
« Respuesta #5 en: 4 Junio 2007, 00:13 »

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
En línea

<?BRoWLi?>

Desconectado Desconectado

Mensajes: 108


Kien mira por ti?


Ver Perfil WWW
Re: url de txt y mandarlo a text
« Respuesta #6 en: 4 Junio 2007, 01:07 »

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
« Última modificación: 4 Junio 2007, 01:16 por BRoWLi » En línea

Si TRaTaS D SeR JusTo SoLo Es JuSTo EL CoRaZóN, LoS DeMaS OrGaNoS TRaTaRaN De KiTaRLe La RaZoN - DobleV
Piratas.com.es
satan69


Desconectado Desconectado

Mensajes: 341



Ver Perfil
Re: url de txt y mandarlo a text
« Respuesta #7 en: 4 Junio 2007, 05:41 »

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
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines