Discussion :

[fabibi001]

Bonjour le forum,

Actuellement, j'utilise le script suivant pour ouvrir 4 sites internet.

Code :

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

1
2
3
4
5
6
7
8
set WshShell = CreateObject("WScript.Shell")
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.navigate "http://www.ing.be"
objExplorer.navigate "http://www.gamerz.be"
objExplorer.navigate "http://www.google.be"
objExplorer.navigate "http://www.lesoir.be"
wscript.sleep 100
objExplorer.Visible=True

Mais ... ce script ouvre les sites dans 4 onglets d'une même session internet explorer.

Je souhaiterais que pour chaque site, une fenêtre internet soit ouverte.

Any idea to help me ?

Merci d'avance

[Flamby38]

Et si tu crées 4 objExplorer distincts, ca marche pas?

[fabibi001]

Comme ça ?

Ca change rien :/

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
 
set WshShell = CreateObject("WScript.Shell")
Set objExplorer1 = CreateObject("InternetExplorer.Application")
Set objExplorer2 = CreateObject("InternetExplorer.Application")
Set objExplorer3 = CreateObject("InternetExplorer.Application")
Set objExplorer4 = CreateObject("InternetExplorer.Application")
objExplorer1.navigate "http://www.ing.be"
objExplorer2.navigate "http://www.gamerz.be"
objExplorer3.navigate "http://www.google.be"
objExplorer4.navigate "http://www.lesoir.be"
wscript.sleep 100
objExplorer1.Visible=True
objExplorer2.Visible=True
objExplorer3.Visible=True
objExplorer4.Visible=True

[ProgElecT]

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
Dim Sortie
Dim objExplorer
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4
 
Sub Ouvrire(Url)
Sortie = DateAdd("S", 10, Now) 'ajoute de 10 Sc par apport à l'heure systeme
objExplorer.navigate Url, 1 ' ajout du parametre 1 pour les sites suivants
Do
 If Now >= Sortie Then Exit Do
Loop Until objExplorer.readyState = READYSTATE_COMPLETE
objExplorer.Visible=True
End sub
 
Set objExplorer = CreateObject("InternetExplorer.Application")
 
Sortie = DateAdd("S", 10, Now) 'ajoute de 10 Sc par apport à l'heure systeme
objExplorer.navigate "http://www.ing.be" 'pas de parametre supplementaire pour le 1° site
Do
 If Now >= Sortie Then Exit Do
Loop Until objExplorer.readyState = READYSTATE_COMPLETE
objExplorer.Visible=True
 
Ouvrire "http://www.gamerz.be"
Ouvrire "http://www.google.be"
Ouvrire "http://www.developpez.net/forums/d898790/autres-langages/general-visual-basic-6-vbscript/vbscript/ouverture-4-sites-internet-4-fenetres-separees/#post5095857"

Reste a gérer un site non disponible