Bonjour,
 
J'aimerais savoir come je peux récuperer l'URL d'internet explorer depuis un VBS.
En fait je veux une log des site parcourus ...
 
Computer = "."
ProcessName="IEXPLORE.EXE"
Set fso=CreateObject("Scripting.FileSystemObject" )
Set objFile=fso.createTextFile("C:\LogIe.Log" )  
 
Do
 Set ProcessSet=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).InstancesOf ("Win32_process" )
 for each Process in ProcessSet
 ' Là on recherche le process Internet explorer
  If InStr(1,Process.Name, ProcessName, vbTextCompare)>0 Then
   'Si Internet explorer est lancé
   
                                      '*****************************************************
   ' C'est là ou je ne sais pas comment récupérer l'URL d'internet explorer
                                      '*****************************************************
 
  End If
 Next
             ' Si Ie n'est pas lancé j'attend 5 mn
 Wscript.Sleep 300000
Loop

 
Je ne pense pas que cela soit possible en VBS, parce qu'il faudrait énumerer les controles d'une application externe, et récupéer la valeur dans un controle particulier.
 
Par contre, en C, c'est faisable. L'URL se trouve dans un contrôle d'édition de classe "Edit" ainsi que dans une combobox de classe "ComboboxEx32".
 
Cela dit, toutes les pages visitées sont mises dans le cache qu'il est peut-être possible d'explorer. Pour voir le cache, cliquer avec le bouton droit sur l'icone Internet Explorer, option "Propriété", bouton "Paramètre", bouton "Visualiser les fichiers".
 
Une autre solution consite à consulter l'historique. Pour cela il faut aller dans Windows Explorer (pas Internet Explorer), puis affichage historique.