Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Scratz en 21 Agosto 2007, 18:50 pm



Título: Leer un txt colgado en una web.
Publicado por: Scratz en 21 Agosto 2007, 18:50 pm
Hola.

Leer un .txt del pc es fácil, pero necesito saber cómo leer un .txt de una web. Ej: www.loquesea.com/texto.txt.

Una vez lo supe hacer, pero ya hace mucho tiempo que no programo.

Saludos.


Título: Re: Leer un txt colgado en una web.
Publicado por: APOKLIPTICO en 21 Agosto 2007, 19:18 pm
Tenes que conectarte a la página, en el puerto que sea (Normalmente 80), y despues mandarle una request http. Por ejemplo, un servidor local (127.0.0.1) en el puerto 100 simulando ser un Firefox, queriendo sacar un archivo llamado texto.txt en la raiz del site:

Código:
GET /texto.txt HTTP/1.1
Host: 127.0.0.1:100
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 3000
Connection: keep-alive

Creo que funciona, sino buscá sobre request http y armate una que te convenga. Saludos!


Título: Re: Leer un txt colgado en una web.
Publicado por: Scratz en 21 Agosto 2007, 20:14 pm
Gracias, pero me parece que es mucho más fácil q todo eso. Me suena que se hacía con  un WebBrowser...


Título: Re: Leer un txt colgado en una web.
Publicado por: ActiveSheet en 21 Agosto 2007, 21:13 pm
Código
  1. Option Explicit
  2. Dim Url As String
  3. Private Sub cmdExt_Click()
  4.    Url = txtURL.Text
  5.    If Len(Url) > 11 Then
  6.        txtCode.Text = intCon.OpenURL(Url)
  7.        MsgBox "ya esta el code we", vbOKOnly, ""
  8.    Else
  9.        MsgBox "Pon un Url valido", vbCritical, "Extorcionador"
  10.    End If
  11. End Sub
  12.  

jejeje esto lo avia echo para sacar el codigo fuente html pero = te sirve
por que saca los txt


Título: Re: Leer un txt colgado en una web.
Publicado por: Scratz en 21 Agosto 2007, 22:42 pm
Muchas gracias, ActiveSheet. Es justo lo que necesitaba ;D