Ouvrir tous les liens web d'une pages web

Question

Bonjours a tous.

J'aimerais savoir comment je pourrais faire pour ouvrir tous les liens web d'une page automatiquement.
Je m'explique une fois mon programme lance une page html s'ouvre.
Ensuite vient le probleme.
J'aimerais que tous les lien web de cette page soit ouvert dans plusieurs pages IE.
Le nombre de lien = le nombre de page IE
Si vous avez une solution a ce petit probleme merci d'avance.

pcpunch · Answer

Bon le probléme c deja de recupérer les lien http de la page web de depart :

Pour cela tu utilise le composant inet et la methode open url pour recuperer le code src de la page dans une variable

'on recupere le code src de l'url
Dim CodSrc As String
codesrc = Inet1.OpenURL("http://www.yahoo.fr")

ensuite tu lane la page avec un shell

' on lance Url dans Iexplore
Shell "explorer http://www.yahoo.fr", vbNormalFocus

ensuite tu extrait les liens dans le code sources et tu les envoie avec un shell

'on extrait chaque url trouvé dans le code src et on lance la page avec un shell
Dim Depart As Long
Dim Fin As Long
Dim debut As Long
debut = 1
Depart = InStr(debut, codesrc, "http://")

Do While Depart <> 0
    DoEvents
    Fin = InStr(Depart, codesrc, Chr(34))
    List1.AddItem Mid(codesrc, Depart, Fin - Depart - 1)
    Shell "explorer " & Mid(codesrc, Depart, Fin - Depart - 1), vbNormalFocus
    debut = Fin
    Depart = InStr(debut, codesrc, "http://")
Loop

Voila, mais il te faudra filtrer les url valide!! la g fais ça en qq mn donc c pas trés élaboré mais ca marche!!!!

++

rabixpvb · Answer

exelent travail merci vrm c tr&#233;s utiles

rabix

cs_sonde · Answer

bonjour

je commence a m intereser a la prog

je voudrais comment savoir utiliser ce petit script que tu a cree pour ouvrir tout les lien d une page

en te remerciant d avance

Ouvrir tous les liens web d'une pages web

3 réponses

Discussions similaires