Discussion :

[Mayti4]

Bonjour

Voilà, je voudrais lister toutes les URL (toutes celles qui sont dans le code source) d'une page web dans un fichier txt, il faudrait récupérer le code source de la page puis retirer les urls une à une, mais c'est dans cette derniére étape que je bloque ou alors une autre maniére

voilà si quelqu'un pourrait m'aider

merci

[avigeilpro]

le seul conseil ke je peut te donner c'est de rechercher un point commun et d'utiliser la fonction Instr.

[Mayti4]

Re,

j'ai ça :

Code :

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

1
2
3
4
5
6
7
Inet.URL = "www.url.com"
 
liens = Inet.OpenURL
liens = Element(liens, 2, "http://")
liens = Element(liens, 1, ">")
 
List1.AddItem liens

(Element appelle les fonctions inStrn,Mid,Split dans un module)

Voilà j'aimerais faire une boucle pourque toutes les url s'ajoutent dans list1 parceque juste la premiére mais je vois pas comment avec For i = x to y etc

[DarkVader]

Code :

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

1
2
3
4
5
6
7
8
    Dim IE As New InternetExplorer
    IE.navigate "http://www.machin.com"
 
    Dim doc As HTMLDocument
    Set doc = IE.document
    For x = 0 To doc.links.length - 1
        Debug.Print doc.links(x)
    Next

petite nuance - utiliser l'évènement downloadcomplete afin de s'assurer que la page est chargée en totalité.

Références Html objects et InternetExplorer

[Mayti4]

j'optiens une erreur à la ligne :

Code :

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

1
2
 
Set doc = IE.document

Code :

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

1
2
3
4
5
 
Erreur d'exécution '-2147467259 (80004005)':
 
Erreur Automation
Erreur non spécifiée

J'ai bien ajouter les 2 Références.

[michelxld]

bonjour

as tu utilisé l'évènement downloadcomplete comme l'a indiqué darkVader ?

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
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As New InternetExplorer
Dim x As Integer
Dim Doc As HTMLDocument
 
IE.Navigate "http://www.machin.com"
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
 
Set Doc = IE.Document
 
    For x = 0 To Doc.links.Length - 1
    Debug.Print doc.links(x) 
    Next

bonne journée
michel

[Mayti4]

Merci DarkVader, michelxld

ça marche bien avec une url de type :

Code :

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

IE.navigate "http://www.machin.com"

mais pas quand je pointe sur une page html précise :

Code :

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

IE.navigate "http://www.machin.com/machin.html"

[DarkVader]

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
Private Sub Form_Activate()
 
    'nécéssite d'activer la référence Microsoft HTML Objects Library
    'nécéssite d'activer la référence Microsoft Internet Controls
    Dim IE As New InternetExplorer
    Dim x As Integer
    Dim Doc As HTMLDocument
 
    IE.Navigate "http://<a href="http://www.developpez.net/forums/viewtopic.php?t=286070"" target="_blank">http://www.developpez.net/forums/vie....php?t=286070"</a>
    Do Until IE.ReadyState = 4  'READYSTATE_COMPLETE
        DoEvents
    Loop
 
    Set Doc = IE.Document
 
    For x = 0 To Doc.links.Length - 1
    Me.Print Doc.links(x)
    Next
End Sub

Qu'est-ce qu'y nous dit cui-là :

C'est bien aussi d'essayer de comprendre un code
voir même, chercher à l'adapter.

[Mayti4]

Ok merci, juste un dernier petit truc

Je voudrais pouvoir réorganiser les urls par type de fichiers, càd ajouter tous les .html dans une liste et tous les .jpg dans une autre ... ect.

Merci.