Bonsoir,
Je tourne en rond depuis un petit moment sur ce sujet.
Je voudrais énumérer les fenêtres ouvertes d'internet Explorer en utilisant le composant SHDocVw.ShellWindows mais elles ne sont pas toutes visible.
J'ai pu constaté que cela dépends de la façon de l'ouverture de l'application Internet Explorer :
- En lançant via l'icône d'internet Explorer dans le menu Démarrer, c'est visible
- En lançant via un lien (.website) glissé sur le bureau ou ailleurs, la fenêtre InternetExplorer n'est pas visible.
Sous Xp, je n'avais pas le souci car le raccourcie est de format (.url), mais avec Seven ça coince, car le raccourcie est de type (.website).
J'ai tenté le mode administrateur, mais non.
J'ai fouillé sur le net, mais en vain, si vous avez une idée, je suis preneur.
Voici le code que j'utilise pour énumérer les fenêtres ouvertes.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Imports System.Security.Permissions Module Module1 <PermissionSetAttribute(SecurityAction.LinkDemand, Name:="FullTrust"), PermissionSetAttribute(SecurityAction.InheritanceDemand, Name:="FullTrust")> _ Sub Main() Dim sw As SHDocVw.ShellWindows = New SHDocVw.ShellWindowsClass() For Each IE As SHDocVw.InternetExplorer In sw MsgBox(TypeName(IE.Document)) Next End Sub End Module
Merci à vous.
Partager