Scripter IE7 pour ouvrir plusieurs url dans des onglets

Version imprimable

20/03/2008, 11h36
Ttienne

Scripter IE7 pour ouvrir plusieurs url dans des onglets

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 ?
20/03/2008, 12h32
RadPAT

Salut,

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

A+
21/03/2008, 09h32
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é)))
21/03/2008, 11h59
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.

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:

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 :D
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 :aie:
>>>re-edit : j'y suis presque :mrgreen:

21/03/2008, 15h10
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:

HKEY_CURRENT_CONFIG\System\CurrentControlSet\Enum\PCI

Plus simple pour ne pas se tromper dans le chemin ;)

A priori, ça marche :yaisse2:

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Const HKEY_CURRENT_USER  = &H80000001
 
strComputer = "."
Set oReg=GetObject("winmgmts:\\.\root\default:StdRegProv")
 
Set Shell = WScript.CreateObject("WScript.Shell")
 
KeyPath = "SOFTWARE\Microsoft\Internet Explorer\Main\"
ValName = "Secondary Start Pages"
 
NewValues = Array( _
	"http://www.lycos.fr", _
	"http://www.google.fr", _
	"http://www.voila.fr", _
	"http://www.altavista.fr" )
 
oReg.GetMultiStringValue HKEY_CURRENT_USER, KeyPath, ValName, OldValues
if IsArray( OldValues ) then
 
	' On est dans le cas d'un démarrage multi pages
	' 1/ Mémoriser les anciennes valeurs (en fait c'est deja fait)
	' oReg.GetMultiStringValue HKEY_CURRENT_USER, KeyPath, ValName, OldValues
 
	' 2/ Remplacer par les nouvelles valeurs
	oReg.SetMultiStringValue HKEY_CURRENT_USER, KeyPath, ValName, NewValues
	wscript.sleep(1000)
	' 3/ Lancer Internet Explorer
	Shell.Run "iexplore"
	' On fait une pause pour permettre le chargement des pages
	wscript.sleep(1000)
 
	' 4/ on remet les anciennes valeurs
	oReg.SetMultiStringValue HKEY_CURRENT_USER, KeyPath, ValName, OldValues
else
	' On est dans le cas d'un démarrage mono page
	' 1/ Mémoriser et détruire "Start Page"
	oReg.GetStringValue HKEY_CURRENT_USER, KeyPath, "Start Page", StartPage
	oReg.DeleteValue HKEY_CURRENT_USER, KeyPath, "Start Page"
 
	' 2/ Creer "Secondary Start Pages"
	oReg.SetMultiStringValue HKEY_CURRENT_USER, KeyPath, ValName, NewValues
	wscript.sleep(1000)
 
	' 3/ Lancer Internet Explorer
	Shell.Run "iexplore"
	wscript.sleep(1000)
 
	' 4/ detruire "secondary start pages"
	oReg.DeleteValue HKEY_CURRENT_USER, KeyPath, ValName
 
	' 5/ recréer "Start Page"
	oReg.SetStringValue HKEY_CURRENT_USER, KeyPath, "Start Page", StartPage
end if
wscript.quit

Maintenant, je veux lancer IE autrement, parce que là Symantec autoprotect gueule comme un putois :mrgreen:
on peut faire avec set ie=createobject(InternetExplorer.Application) mais je sais pas lui dire ie.navigate "pages_de_demarrage"

21/03/2008, 16h22
Ttienne

Le script tel qu'il est semble fonctionner une fois ou pas, puis une autre fois, ou pas non plus...
Ca doit venir du temps de mise à jour de la base de registre, et du temps de lancement d'IE7, et peut-être aussi de l'âge du capitaine...
N'hésitez pas, après m'avoir chaudement félicité :mrgreen: (après tout il s'agit d'une première mondiale 8-) ), à expérimenter ce script et proposer les petites améliorations qui s'imposent.
25/03/2008, 10h56
ced600

Bon en réponse à tes MP, si c'est ce truc là que tu cherches :

Citation:

on peut faire avec set ie=createobject(InternetExplorer.Application) mais je sais pas lui dire ie.navigate "pages_de_demarrage"

Je n'ai pas de réponse car je n'ai jamais piloté IE.

Après en ce qui concerne la BDR, tu sembles maitriser le code, en ce qui concerne la recherche des bonnes clés pour faire ce que l'on veut, je n'ai jamais rien trouvé de mieux que google.
26/03/2008, 11h10
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 :aie:
26/03/2008, 11h58
ced600

Citation:

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 ?

Citation:

Comment empêcher msn ?

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

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:

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:

Set objIE = objShellWindows.Item(2)

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

En tout cas

Code:

objShellWindows.Count

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

A++

02/04/2008, 11h42
Ttienne

merci, je vais regarder dès que j'ai un (bon) moment.
02/04/2008, 23h34
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:

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:

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