[Duda Vb6]Acceder a un .txt subido a un servidor

[andres_5]

Hola, alguien me podria mas o menos decir, como puedo acceder a un .txt o .ini alojado en una nube en internet, y leer lineas por lineas al igual que si estubiera en algun direcctorio del pc.

Aprovecho para plasmas 2 dudas mas que tengo ahora mismo.
1.- Como minimizar una aplicacion en la barra de tareas, desde vb6, porque en .net es facil, pero mientras que no termine la aplicacion entera y la vaya actualizando a .net tendre que buscar alternativa en 6.
2.- autodestruir la aplicacion, quisiera poder autoeliminar la aplicacion, ya que voy a difundirlo primeramente a un grupo de personas para que hagan pruebas y que los usen, y vallan reportando los errores, y cuando acabe ese periodo, desde el .ini del server el programe vea que se ha pasado el tiempo de tester y se autoelimine automaticamente. A su vez que se puedan autoactualizar, en tal caso se autoelimine y autedescarge la otra version.
Saludo y gracias

[Sanlegas]

1.- Api de windows para descargar archivos ó sockets
2.- Si te refieres a minimizar tu formulario al area de notificaciones, alguien habia preguntado lo mismo un poco mas abajo de estos temas
http://foro.elhacker.net/programacion_visual_basic/minimizar_al_area_de_notificacion-t336553.0.html
3.- Melt.

[raul338]

1- Lindo resumen simple aca 6 Ways to get HTML in vb

Un archivo es como un HTML, lo unico que tenes que hacer es hacer la petición, descargarlo (ya sea en memoria en un string o en un archivo local) y leerlo

3- Busca sobre Melt o Meltdown

[andres_5]

Buuah muchas gracias a los 2, ya tengo info suficiente para conseguirlo. Lo unico que creo es que lo de descargar en local el archvo, haria muy vulnerable a mi aplicacion, cosa que no quiero. :s
Por lo demas, perfecto.
Muchas gracias.

[raul338]

Lo unico que creo es que lo de descargar en local el archvo, haria muy vulnerable a mi aplicacion, cosa que no quiero. :s

en gran casos no se descarga el archivo a disco, sino en un string en memoria, igual se puede leer viendo la memoria reservada o con un sniffer

[Elemental Code]

cifra las cadenas de texto del txt y desencriptalas despues en tu exe 

[79137913]

HOLA!!!

Que le estan diciendo pobre chico XD

Mira aca tenes la funcion de seba123neo es buenisima:

Código (vb) [Seleccionar] Expandir

Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000
     
Private Const BUFFER_LEN = 256


Public Function GetUrlSource(sURL As String) As String
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long

    'get the handle of the current internet connection
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    'get the handle of the url
    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    'if we have the handle, then start reading the web page
    If hInternet Then
        'get the first chunk & buffer it.
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        'if there's more data then keep reading it into the buffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If

    'close the URL
    iResult = InternetCloseHandle(hInternet)

    GetUrlSource = sData
End Function

Haces:

Código (vb) [Seleccionar] Expandir

VariableStringCualquiera = GetUrlSource(UrlDelTXT)
Y listo en la variable VariableStringCualquiera tenes tu archivo de texto.

GRACIAS POR LEER!!!

[andres_5]

Muchas gracias a todos, me pondre con ello.