Discussion :

[Ttienne]

Bonjour à tous,

Ouvrir quelques "internet.explorer" sur plusieurs url, je sais faire. Mais c'est très moche et je me demandais s'il y avait un moyen de scripter proprement ie7 pour ouvrir les differentes url dans des onglets d'une seule instance d'ie7. La littérature est peu abondante sur ce sujet, voire très décourageante ...

Peut-être une astuce sur le registre ?
Une fonction cachée de l'objet internet.explorer ?

[RadPAT]

Salut,

ca m'interesse aussi, j'ai cherché sans succès.

A+

[Ttienne]

Je me demande si l'astuce ne consisterait pas à bidouiller le registre comme suit :

1. Sauvegarder la clé HKCU\Software\Microsoft\Internet Explorer\Main\Secondary Start Pages ou se trouve la page de démarrage
2. Modifier cette clé pour y mettre les pages désirées
3. Demarrer IE7
4. Remettre la valeur initiale de la clé

C'est faisable ?
(((edit : je teste)))
(((redit: c'est un peu plus compliqué)))

[ced600]

Je ne connais pas grand chose à la manipulation d'IE, par contre je sais manipuler la BDR en VBS, et j'ai même des bouts de scripts tout près.
N'hésite pas à poster si tu as des difficultés sur cette partie.

[Ttienne]

Merci de ta proposition d'aide : je veux bien savoir comment tester l'existence d'une Value dans la KeyPath, parce que là j'ai un petit souci quand je fais :

Code :

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

1
2
3
4
5
6
7
 
Set oReg=GetObject("winmgmts:\\.\root\default:StdRegProv")
KeyPath = "SOFTWARE\Microsoft\Internet Explorer"
ValName = "Secondary Start Pages"
 
oReg.GetMultiStringValue HKEY_CURRENT_USER, KeyPath, ValName, OldValues
msgbox UBound( OldValues )

j'ai un "Type incompatible UBound" qui m'énerve les nerfs
je peux pas compter le nombre d'éléments de la multistring pour voir si c'est 0

Je m'explique : Quand on change la page de démarrage d'IE, si il n'y a qu'un lien, il y a une value Start Page, sinon il y a une Value de nom Secondary Start Pages (et plus de StartPage). Donc il faut différencier le traitement :

si MultiPage alors
memoriser et changer secondary, lancer ie (pas trop loin), restaurer secondary
sinon
memoriser et detruire startpage, creer secondary, lancer ie, detruire secondary, restaurer startpage
fin si
finsi

>>>edit : ah m*rde, j'ai oublié \Main dans le Path
>>>re-edit : j'y suis presque

[ced600]

bah ton code me semble bon, mais j'aurais quand même fait un dim OldValues pour être propre ^^

Récup une autre valeur de la même clé et qui n'est pas en mlulti et affiche là.
Si tu y arrives c'est que tu es dans le bon path.

En général ton erreur arrive lorsque la variable n'a pas de valeur, et ce qui est le cas si to chemin vers la clé est mauvais.

Dans regedit fait un clique droit sur un dossier et fait copier le nom de la clé, tu obtiens par exemple :

Code :

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

HKEY_CURRENT_CONFIG\System\CurrentControlSet\Enum\PCI

Plus simple pour ne pas se tromper dans le chemin

[Ttienne]

Je retire le "Résolu" car malgré mes tests sur différentes valeurs pour la fonction sleep(), je n'arrive pas à ouvrir toujours les 4 documents que je veux. De plus IE7 insère en premier onglet la page d'accueil de msn, ce dont je me moque éperdument.

Comment être sûr que la mise à jour de la BdR est faite avant le lancement de ie7 ?
Comment empêcher msn ?

Mes neurones sont à court d'idées

[ced600]

Comment être sûr que la mise à jour de la BdR est faite avant le lancement de ie7 ?

Tu lis les clés en question avant le lancement d'IE7 et tu verifies leurs valeurs ?

Comment empêcher msn ?

Peut être est ce du à l'odre des pages dans la clé.

[RadPAT]

Salut,

partir dans des modifs de base de registre pour manipuler les onglets d'IE7, il y a forcément une autre solution.
J'ai pas mal géléré pour trouver qquechose, voici une compile de ce que j'ai trouvé :

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
 
Set objShell = CreateObject("Shell.Application")
Set objShellWindows = objShell.Windows
 
If objShellWindows.Count = 0 Then
    Msgbox "No browser windows are open."
    Wscript.Quit
Else
    strURL = "http://www.google.fr"
    Set objIE = objShellWindows.Item()
    objIE.Navigate(strURL)
    strURL = "http://www.yahoo.fr"
 
    objIE.Navigate(strURL)
    strURL = "http://www.lycos.fr"
 
    objIE.Navigate(strURL)    
End If

Ca n'a pas l'air d'etre trop mal sauf que je n'ai pas trouvé comment dire "va sur l'onglet N°2" je pensai faire un

Code :

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

Set objIE = objShellWindows.Item(2)

, mais ca n'a pas l'air de fonctionner.

En tout cas

Code :

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

objShellWindows.Count

, fonctionne et retourne le nombre total d'onglets ouverts moins 1.
je repost si j'ai trouvé du neuf.

A++

[Ttienne]

merci, je vais regarder dès que j'ai un (bon) moment.

[SfJ5Rpw8]

J'ai essayè ton code RadPAT..

mais chez moi il ouvre une fenêtre par page....

j'ai pas trouvé de solution ... mais j'ai une autre piste à proposer .. l'utilisation de l'argument Flag de la procédure Navigate2 avec comme valeur : navOpenInNewTab ..: 0x800 ..

le seul truc et que si cela fonctionne en VB6 :

Code :

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

1
2
3
4
5
6
7
8
 
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Visible = True
flag = CLng(&H800)
 
IE.Navigate2 "www.google.fr"
IE.Navigate2 "www.Yahoo.com", flag

ce n'est pas concluant en VBScript, après modification de la ligne :

Code :

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

1
2
 
Set IE = Wscript.CreateObject("InternetExplorer.Application")

..