Mostrar texto en textbox desde archivo en servidor

[rapbyone]

Mi consulta es la siguiente, tengo un código que me muestra en un textbox el contenido de un archivo.txt que esta en mi pc, mi pregunta es.

Como podría hacer lo mismo con un archivo de texto que esta en un servidor ?

El codigo es este:

Código [Seleccionar] Expandir

Private Sub Form_load()
    Dim linea As String
    Dim c As String
   
' Muestra en textbox el contenido de archivo local version.txt

    Open "c:/version.txt" For Input As #1
    linea = ""
    Me.Text4.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text4.Text = Me.Text4.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text4.Text = Me.Text4.Text + linea
    Close #1
   
  ' Muestra en textbox el contenido de  archivo version.txt desde servidor
   
    Open "http://miweb/updatepatch/version.txt" For Input As #1
    linea = ""
    Me.Text3.Text = ""
    While Not EOF(1)
        c = Input(1, #1)
        If c = "," Then
            Me.Text3.Text = Me.Text3.Text + linea + vbNewLine
            linea = ""
        Else
            linea = linea + c
        End If
    Wend
    If linea <> "" Then Me.Text3.Text = Me.Text3.Text + linea
    Close #1   

End Sub

Así se ve en mi programa:



Muchas, pero muchas gracias por la paciencia

Enviado desde mi GT-I9300 usando Tapatalk

[Danyfirex]

Podrías hacer algo como esto

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Msxml2 As Object
Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0")
Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False
Msxml2.send
Text1.Text = Msxml2.responseText
End Sub


Saludos

[rapbyone]

Podrías hacer algo como esto

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Msxml2 As Object
Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0")
Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False
Msxml2.send
Text1.Text = Msxml2.responseText
End Sub


Saludos

Me funciono perfecto, el problema es que al cambiar el contenido del archivo en el servidor, no cambia en el textbox, sigue mostrando el anterior :S

Es como si descargara el archivo y después tomara los datos de ahí y no del servidor.

Muchas gracias

[Danyfirex]

Debería funciona al llamar la función otra vez.

[rapbyone]

Tienes toda la razon 

muchas gracias tema resuelto

[juandiegov]

Podrías hacer algo como esto

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Msxml2 As Object
Set Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0")
Msxml2.open "GET", "http://www.autoitscript.com/autoit3/docs/autoit_changelog_complete.txt", False
Msxml2.send
Text1.Text = Msxml2.responseText
End Sub


Saludos

No me sirve :'(

asi lo tengo

Código (vbnet) [Seleccionar] Expandir

Private Sub Form_Load()
        Dim Msxml2 As Object
        Msxml2 = CreateObject("Msxml2.XMLHTTP.3.0")
        Msxml2.open("GET", "http://localhost/versionf.txt", False)
        Msxml2.send()
        Text1.Text = Msxml2.responseText

Tambien tengo el textbox
llamado text1



q tengo mal?

uso vb 2008

[Danyfirex]

Que error te da?

tal vez así:

Código (vbnet) [Seleccionar] Expandir



Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("http://localhost/versionf.txt")
Text1.Text=result



Saludos

[juandiegov]

Que error te da?

tal vez así:

Código (vbnet) [Seleccionar] Expandir



Dim webClient As New System.Net.WebClient
Dim result As String = webClient.DownloadString("http://localhost/versionf.txt")
Text1.Text=result



Saludos

gracias por responder tan rapido
no no me da error
pero no se muestra nada en el textbox

[Danyfirex]

Coloca el textbox en multilinea.

Saludos

[rapbyone]

Yo tampoco pude, asi que envés de textbox use un control webbrowser, si te interesa, te doy el código amigo