Discussion :

[Asdorve]

Bonjour à tous,

Je souhaite réaliser une petite appli qui me mette à jour mon fichier host dans C:/WINDOWS/system32/drivers/etc en copiant à l'intérieur tout ce qui se trouve à l'URL suivante:

http://www.mvps.org/winhelp2002/hosts.txt

Ma question est donc:
Comment copier le contenu de ce lien dans une RichTextBox par exemple?

Merci pour vos réponses.

[ProgElecT]

Bonjour Asdorve
Sur un Form, un RichTextBox, un CommandButton, un label.
et ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
'nécéssite d'activer la référence Microsoft Internet Controls
Public IE As InternetExplorer
'nécéssite d'activer la référence Microsoft HTML Objects Library
Public Doc As HTMLDocument
Public TextRech As String, LeTexte As String
 
Public Sub Recuperation()
Set Doc = Nothing
Set IE = New InternetExplorer
IE.navigate "http://www.mvps.org/winhelp2002/hosts.txt"
'IE.Visible = True 'pour debug
Do While IE.readyState <> READYSTATE_COMPLETE
 DoEvents
 Label1 = IE.StatusText
Loop
Set Doc = IE.document
LeTexte = Doc.body.innerText
Doc.Close: DoEvents
IE.Quit: DoEvents
RichTextBox1.TextRTF = ""
RichTextBox1.Font = "courier new": RichTextBox1.Font.Size = 10
RichTextBox1.SelText = LeTexte
End Sub
Private Sub Command1_Click()
Recuperation
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
IE.Quit
If Err.Number <> 0 Then On Error GoTo 0
End Sub

[Asdorve]

Hé bien, c'est impeccable! ça marche super bien!

Merci beaucoup, ProgElecT!!!!!!

A bientôt!