Discussion :

[zouzoukha]

Bonjour à tous!

Je remarque que lorsque j'utilise plusieurs fois l'activex web browser il ouvre une instance de internet explorer (dans le gestionnaire de taches)

Y a t-il un moyen de "killer" l'instance? une fonction du genre >>fermer

J'ai regardé du coté de la fonction Libérer mais elle ne semble pas fonctionner sur l'activex IE, elle réclame un objet dynamique!!

Merci d'avance pour toute aide!

[Ry_Yo]

Bonjour,

pourquoi ne pas lister les process avec ExeListeProcessus() puis tuer le process correspondant avec ExeTermine(PiD) ?

[andalex]

Bonjour à toutes et tous,

Bonjour,

pourquoi ne pas lister les process avec ExeListeProcessus() puis tuer le process correspondant avec ExeTermine(PiD) ?

Le problème avec cette solution est que ExeListeProcessus() nous renvoie (entres autres processus système) le processus lié à WINWORD.EXE et non les (sous)processus liés aux document word ouvert

Pour mon test, j'ai ouvert (et enregistré) Test 1.doc et Test 2.doc.
Dans le gestionnaire de tâches, on peut voir :



Aucun moyen d'accéder au processus lié à chaque fichier word ouvert ?

Bien à vous !

[Ry_Yo]

Bonjour,

Dans ce cas là, votre seul solution est de passer par une API windows, en l'occurrence user32.dll et la méthode GetWindow() pour lister toutes les fenêtres ouvertes dans windows
Puis de vous servir de l'api kernel32.dll et de la methode TerminateProcess() pour fermer (violemment ) la fenêtre voulu.

Je n'ai plus le code en tête mais je l'avais trouvé grace à mon ami google.

Cordialement.

PS : ça c'est du détérage de post je ne me rappelais même plus de ce message

[andalex]

Wow

Je suis impressionné par votre vitesse !

Merci, je vais creuser cette piste !

[jurassic pork]

hello,
Quel(s) activeX utilises-tu ? Il n'y a pas de méthodes de fermeture de documents dedans ? Le massacre () de processus est à éviter si possible.

Ami calmant, J.P

[andalex]

Salut, c'est un activex word. Si, bien sûr, il existe la méthode

Code :

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

word>>ActiveDocument>>Close(Faux)

pour fermer le document actif mais de temps en temps, ça ne marche pas.

Du coup, je récupère le PID (gnPIDword) du processus lié au fichier word ouvert par mon programme et je lance de façon radicale les deux commandes suivantes :

Code :

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

1
2
3
SI PAS ExeTermine(gnPIDword) ALORS
	DDELance("TSKILL " + gnPIDword)
FIN

Au préalable, pour récupérer le PID, j'ai utilisé la procédure suivante :

Code :

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

1
2
3
4
5
6
7
PROCEDURE ProcRechercheFenetre(sFichierDoc est une chaîne,bTrace est un booléen=Faux)
gnPIDword=0
SELON bTrace
	CAS Vrai 	:	API("User32","EnumWindows", &ProcEnumFenetre,sFichierDoc)
	AUTRE CAS	:	API("User32","EnumWindows", &Proc_GetFenetrePID,sFichierDoc)
 
FIN

[frenchsting]

J'utilise un système similaire afin de mettre un document word au premier plan.

Code :

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

1
2
3
4
5
6
7
8
9
10
TableSupprimeTout(TABLE_Process)
AppelDLL32("User32", "EnumDesktopWindows", Null, &API_EnumerationFenêtres, "sChaineCherchee")
 
POUR i = 1 _A_ TABLE_Process..Occurrence
	SI ChaîneOccurrence(Majuscule(TABLE_Process.COL_Nom[i]),Majuscule(sChaineCherchee)) <> 0 ALORS
		hWnd = TABLE_Process.COL_SHandle[i] // le handle (pas le pid!!!)
		RetourFonction=API("USER32","SetWindowPos",hWnd,hWndInsertAfter,0,0,0,0,uFlags) // mise au premier plan de l'élément : c'est ici que tu dois le tuer...
		SORTIR
	FIN
FIN

Je charge la table avec la procedure "API_EnumerationFenêtres" :

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
PROCEDURE API_EnumerationFenêtres(nHwnd est un entier système, TitreApplication est une chaîne)
nTailleMaxNomClasse est un entier = 1024
sNomClasseDeFenetre est une chaîne ASCIIZ sur 1024
sTitreFenetre est une chaîne
 
// Récupération de la classe Windows de la fenêtre
API("user32.dll", "GetClassNameA", nHwnd, &sNomClasseDeFenetre, nTailleMaxNomClasse)
// Récupération du titre de la fenêtre
sTitreFenetre = SysFenTitre(nHwnd)
SI SansEspace(sTitreFenetre) <> "" ALORS
	TableAjoute(TABLE_Process,sTitreFenetre + TAB + Val(nHwnd))
FIN
TitreApplication = "" // pour éviter warning
 
RENVOYER Vrai

[jurassic pork]

Sais-tu pourquoi le close ne marche pas parfois ? un problème de document actif ? as-tu essayé de fermer le document par son nom ?

[andalex]

@frenchsting

Merci pour ton code qui va m'aider à fiabiliser le mien (j'ai également des problèmes de fusion de documents word) !
Les méthodes de la couche activex ne sont pas fiables à 100% du coup, en cas d'erreur, passer directement par l'API système me semble plus sûr (API user32.dll).