Discussion :

[sucrm]

Bonjour,

Je lance une VbScript qui instancie un objet InernetExplorer

j'aimerai pouvoir killer le processus mais uniquement celui de l'objet instancier, car j'ai d'autre VbScript qui tourne en parallèle et j'aimerai que chacun se kill mais uniquement eux-même.

J'ai vraiment besoin de killer car la methode Close ne suffie pas dans ce que je veux faire.

Merci

[2h15Crew]

La méthode Dispose() peut-être ?

[sucrm]

l'objet InternetExplorer ne dispose pas de methode dipose ?

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[ProgElecT]

Salut

En VB6, j'utilise

Code :

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

IE.Quit: Set IE = Nothing

Cela doit être la même chose en VBScript, et cela ne ferme que l'instance de l'objet que j'ai créé.

[l_autodidacte]

Il y a peut-être aussi cette possibilté :

Code :

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

1
2
3
4
5
6
7
Set oShell = WScript.CreateObject("WScript.Shell")
Set IE=CreateObject("InternetExplorer.Application")
Set oIE = oShell.Exec(IE.Path & "iExplore.exe")
oShell.AppActivate oIE.ProcessID
Wscript.Sleep 5000
MsgBox "Fermeture de IE"
oIE.Terminate

Dans ce cas, on est sûr de ne fermer que l'instance qu'on vient de créer.

[hackoofr]

essaye avec ceci

Code :

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

1
2
3
4
5
6
7
8
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'iexplore.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

[ProgElecT]

faire une session IE ordinaire, et lancer ce

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
Dim Sortie
Dim objExplorer
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4
 
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"
 
Do
 If Now >= Sortie Then Exit Do
Loop Until objExplorer.readyState = READYSTATE_COMPLETE
 
objExplorer.Visible=True
 
Sortie = DateAdd("S", 10, Now) 'ajoute de 10 Sc par apport à l'heure systeme
Do
 If Now >= Sortie Then Exit Do
Loop
 
objExplorer.Quit
set objExplorer = Nothing

au bout de 20 Sc la fenêtre IE lancée par le code se finit, la session ordinaire reste disponible.

Si tu fais 2 sessions du code avec une adresse URL différente, tu peux constater que la première session lancer s'arrête avant la deuxième, puis cette deuxième prend fin et que la session ordinaire reste active.

Donc .Quit et déchargement explicite de la variable termine bien les processus initié par tes différents script.

[sucrm]

essaye avec ceci

Code :

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

1
2
3
4
5
6
7
8
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'iexplore.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

cette méthode marche à moitié elle me kill le processus, mais elle kill les processus des autres objet IE qui tournent sur les autre script en parallèle, il n'y aurait pas un solution avec le PID ? du style Select * from Win32_Process Where PID = ..... ???

[hackoofr]

cette méthode marche à moitié elle me kill le processus, mais elle kill les processus des autres objet IE qui tournent sur les autre script en parallèle, il n'y aurait pas un solution avec le PID ? du style Select * from Win32_Process Where PID = ..... ???

Jette un coup d'oeil dans cette discussion

[sucrm]

En fait je pense que mon problème est plus simple que sa,
lorsque je fais mon :

Code :

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

1
2
3
objDocument.Close
objExplorer.Quit()
set objExplorer = Nothing

il y a une vingtaines de boites de dialogues qui s'ouvre me demandant des confirmations (bouton OUI, bouton NON) . Je voudrais tout simplement fermer d'un seule coup toutes ces boites de dialogues, la solution que j'ai trouver est de killer le processus or je viens de voir que plusieurs objets InternetExplorer utilise un même processus. Alors comment faire pour éliminer toutes ces boites de dialogues déclenché par la fermeture de l'objet ie

Merci