Autor
|
Tema: [Duda Vb6]Acceder a un .txt subido a un servidor (Leído 4,824 veces)
|
andres_5
Desconectado
Mensajes: 200
|
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
|
|
|
En línea
|
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
1- Lindo resumen simple aca 6 Ways to get HTML in vbUn 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
|
|
|
En línea
|
|
|
|
andres_5
Desconectado
Mensajes: 200
|
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.
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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
|
|
|
En línea
|
|
|
|
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
|
cifra las cadenas de texto del txt y desencriptalas despues en tu exe
|
|
|
En línea
|
I CODE FOR $$$ Programo por $$$ Hago tareas, trabajos para la facultad, lo que sea en VB6.0 Mis programas
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Que le estan diciendo pobre chico XD Mira aca tenes la funcion de seba123neo es buenisima: 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: VariableStringCualquiera = GetUrlSource(UrlDelTXT)
Y listo en la variable VariableStringCualquiera tenes tu archivo de texto. GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
andres_5
Desconectado
Mensajes: 200
|
Muchas gracias a todos, me pondre con ello.
|
|
|
En línea
|
|
|
|
|
|