Estoy buskando por todo google y no ekuentro nada de nada ( rekursosvb,el buska etc)
quiero hacer lo siguiente, no digo que me lo digais, konke me guieis me sobre ;) :
Un ejemplo la pagina www.mipagina.com/tex.txt ahora en ese arhicvos de texto subido en mi pagina
Pongo ahi por ejemplo Msgbox = "hola"
Ahora kada vez que uno abre mi programa le sale lo que yo aya puesto en ese archivos de texto, si enemdio puedo colocar cualquier cosa ( cualquier cosa que no necesite que yo kree un boton ni nada, sino como msxbox y modificar un textobx)
Gracias por toda la ayuda ^^
Cita de: w0od93 en 6 Octubre 2008, 23:46 PM
Estoy buskando por todo google y no ekuentro nada de nada ( rekursosvb,el buska etc)
quiero hacer lo siguiente, no digo que me lo digais, konke me guieis me sobre ;) :
Un ejemplo la pagina www.mipagina.com/tex.txt ahora en ese arhicvos de texto subido en mi pagina
Pongo ahi por ejemplo Msgbox = "hola"
Ahora kada vez que uno abre mi programa le sale lo que yo aya puesto en ese archivos de texto, si enemdio puedo colocar cualquier cosa ( cualquier cosa que no necesite que yo kree un boton ni nada, sino como msxbox y modificar un textobx)
Gracias por toda la ayuda ^^
Descarga ese archivo de texto leelo y muestralo ¬¬ asi de facil
Usa el api UrlDownloading o algo asi leelo con el metodo que desees y muestralo
No escribas como niño engreido, escribe correctamente.
Expresate mejor, tube que leer tu post como 4 veces para poder entender que es lo que necesitabas.
Si no entiendes para que son esas apis, busca en internet, lo dudo que no lo encuentres.
Aqui esta el codigo:
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Function Texto() As String
Dim hOpen As Long, hFile As Long, sBuffer As String * 36, ret As Long
hOpen = InternetOpen("test", 1, vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, "http://mipagina.com/texto.txt", vbNullString, ByVal 0&, &H80000000, ByVal 0&)
InternetReadFile hFile, sBuffer, 36, ret
InternetCloseHandle hFile
InternetCloseHandle hOpen
Texto = sBuffer
End Function
Private Sub Form_Load()
MsgBox Texto
End Sub
Siento la ortografia, tenia el teclado sin pilas y me comia algunos palabras :P
PD: Gracias por la ayuda ^^
Nada duda solucionada sorry,pueden cerrar
yo uso el control inet:
Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
Private Sub Form_Load()
MsgBox Texto
End Sub
menos codigo pero depende del inet ;D ;D ;D ;D
y si quiero modificar el codigo de un commandbuton enemdio de este codigo
Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
Private Sub Form_Load()
MsgBox Texto
End Sub
Pongo esto?
Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
Private Sub Command1_Click()
Texto
End Sub
Sabes programar en VB????
Private Sub Command1_Click()
msgbox Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
End Sub
que pretendes hacer???????
pues yo en ese .txt pongo lo que quiero que valla en el commandbuton
umm lol ... como puede poner solo la variable dentro del commandbuton .. tienes que poner algo para que vizualizes el texto.. ya sea etiketa o textbox o lo que kieras para que muestre el contenido ... lo puse como variable para que lo puedas llamar en cualkier sub ...
Y asi estaria bien?
Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
Private Sub Form_Load()
Command1 Texto
End Sub
con esto pones el texto en el caption del boton:
Private Sub Form_Load()
Command1.Caption = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
End Sub
si es lo que kieres hacer... y asi puedes poner a varios:
Command2.Caption = Inet1.OpenURL("http://mipagina.com/texto2.txt", icString)
pero no lo entiendo caption seria el nombre del commadbuton, yo lo que quiero es cambiar desde el .txt el codigo de este commandbuton
Gracias por las respuestas ^^
lo que pides no se puede... como puedes poner codigo a un compilado ... al inicio de tu post pusiste que solo kerias leer el texto de la internet y ponerlo dentro de tu aplicacion y ahora ya pides hacer esto de poner codigo dentro del procedimiento del boton .... pues te digo no se puede...
Si se puede (imitar), hay una forma de hacerlo como si fuera compilador
ya comprendo lo que quieres hacer, mira no recuerdo donde vi una API para poder realizar estas cosas, a modo de que el programa se convierte en un creador de programas.
si lo encuentro en estos dias lo posteo...