Leer Html

[w0od93]

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

[BlackZeroX]

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

[‭‭‭‭jackl007]

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:

Código (vb) [Seleccionar] Expandir

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

[w0od93]

Siento la ortografia, tenia el teclado sin pilas y me comia algunos palabras

PD: Gracias por la ayuda ^^

[w0od93]

Nada duda solucionada sorry,pueden cerrar

[byway]

yo uso el control inet:

Código (vb) [Seleccionar] Expandir

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 

[w0od93]

y si quiero modificar el codigo de un commandbuton enemdio de este codigo

Código (vb) [Seleccionar] Expandir

Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)

Private Sub Form_Load()
MsgBox Texto
End Sub


Pongo esto?

Código (vb) [Seleccionar] Expandir


Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)

Private Sub Command1_Click()
Texto
End Sub



[‭‭‭‭jackl007]

Sabes programar en VB????

Código (vb) [Seleccionar] Expandir



Private Sub Command1_Click()
msgbox  Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
End Sub


que pretendes hacer???????

[w0od93]

pues yo en ese .txt pongo lo que quiero que valla en el commandbuton

[byway]

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