Enumérer les fenêtres Internet Explorer ouvertes, mais elles ne sont pas toutes visibles
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.
Code:
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 |
Voici le code que j'utilise pour énumérer les fenêtres ouvertes.
Merci à vous.