Bonjour,
Je suis actuellement sur un projet en VBS visant à accéder automatiquement, depuis un serveur, vers un site protégé par un proxy.
J'utilise pour cela un objet "Wscript.CreateObject("InternetExplorer.Application")".
Chaque fois que j'essaie d'accéder au site, une fenêtre "Windows Security" s'affiche.
J'utilise donc un objet "WScript.CreateObject("WScript.shell")" pour rentrer automatiquement les identifiants/mdp correspondant.
Jusque là je n'ai pas de problème.
Cependant mon objectif est de ne plus afficher cette fenêtre "Windows Security".
J'ai donc essayé de ne plus afficher Internet Explorer mais rien n'y change.
J'ai cherché sur plusieurs forums, sites, etc.
Auriez-vous des axes de recherche ou solutions à me proposer?
Je vous remercie par avance pour votre aide.
Voici une partie de mon code :
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 If ConnectionTest(URL) then Set IE = Wscript.CreateObject("InternetExplorer.Application") set WshShell = WScript.CreateObject("WScript.shell") IE.Visible = true IE.navigate (URL) '---------------------------------- credentials ------------------------------ WshShell.AppActivate "Windows Internet Explorer" WScript.Sleep 200 WshShell.SendKeys "" WScript.Sleep 100 WshShell.SendKeys "{TAB}" WScript.Sleep 100 WshShell.SendKeys "" WScript.Sleep 100 WshShell.SendKeys "{TAB}" WScript.Sleep 100 WshShell.SendKeys "{TAB}" WScript.Sleep 100 WshShell.SendKeys "{ENTER}" WScript.Sleep 500 '------------------------------- End credentials ------------------------------ Occupee(IE)
Partager