Texte d'une TextBox à partir d'un fichier internet !!!

Bonjour,
Pijacku m'a fais remarquer que j'avais pas bien compis, faut dire que l'exemple d'url que tu met n'aide pas la compréhesion.. Bref
Un nouveau projet => un bouton Button1 un TextBox TextBox1

Imports System.Net 
Imports System.Web 

Public Class Form1 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim mWeb As WebClient = New WebClient 
        'Test Url.txt 
        Dim URL As String = "https://sd-5b.archive-host.com/membres/up/b05c9f3873215e8d2df70f056b74dce61198c32d/Test_URL.txt" 
        Me.TextBox1.Text = mWeb.DownloadString(URL) 
    End Sub 
End Class

l'url existe, vous pouvez la laisser pour le test.
Je crois que ça répond à ton problème.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Bonsoir,
Avez-vous trouvé la solution a votre problème?
Car moi je cherche justement l'inverse et je ne parvient pas a trouver...
Peut être avec un mail ?

il faut faire un create object pour le network mais je suis debutant et la syntaxe des create object c'est avec moi avec 3bug par ligne...

Oui je voit,
Je vais aller voir et je vous dirai quoi mais je ne trouve pas grand chose sur ca

Bonjour,

Je n'ai pas de connaissances VB, mais vous pourriez peut être vous inspirer de ce code VBA :

Private Sub CommandButton1_Click()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument

IE.navigate "http://www.test/123.txt" 'A ADAPTER
IE.Visible = True 'pas nécessaire d'afficher la page Internet
WaitIE IE
Set IEDoc = IE.document
TextBox1.Value = IEDoc.body.innerText 'A condition que le texte recherché soit seul dans le body de la page en question...........
   
Set IE = Nothing
Set IEDoc = Nothing
End Sub

Sub WaitIE(IE As InternetExplorer)
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

Pour une complète info, les références à activer en VBA (donc à référencer dans votre projet) sont : Microsoft Internet Controls (C:\Windows\System32\ieframe.dll) et Microsoft HTML Object Library (C:\Windows\System32\mshtml.tlb).

Je répète que je n'y connais rien à VB...

Bonne continuation

Un grand merci, je vais essayer cela ,
et même si cela ne fonctionne pas, merci quand même, cela peut etre utile :)

Hiii; avec toi faut vraiment lire entre les lignes.. :-)
Tu a deux solutions,
1°) la plus simple, mettre le texte dans un label
2°) Tu peu bloquer le textBox => TextBox1.Locked = True
A+

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .