scarlingo
Messages postés2Date d'inscriptionjeudi 5 juin 2003StatutMembreDernière intervention15 février 2006
-
15 févr. 2006 à 10:28
scarlingo
Messages postés2Date d'inscriptionjeudi 5 juin 2003StatutMembreDernière intervention15 février 2006
-
15 févr. 2006 à 15:26
Bonjour,
Je rencontre un problème particulier en vb.
J'ai un composant Webbrowser qui charge une URL pour m'authentifier sur un site Intranet.
Ensuite, je fais appel à ce Webbrowser qui reste toujours en tâche de fond sur mon poste pour ouvrir de nouvelles fenêtres IE en gardant le contexte d'authentification. Le but de mon appli est de charger une nouvelle URL dans ma nouvelle page Web, sans retomber sur la zone de saisie de login/mdp
Pour le faire, je souhaiterai faire l'équivalent d'un [Ctrl] + [N] sur mon Webbrowser.
1/ Connaissez-vous une fonction qui le permette ?
J'y arrive en mettant : Sendkeys("^n").
Malheureusement, ceci m'ouvre une fenêtre de classe "CabinetWClass", au lieu de "IEFRAME", qui a pourtant l'aspect des fenêtres IE "classiques".
J'arrive à récupèrer le handle, mais je suis ensuite dans une impasse (par manque d'idées et de connaissances...)
Je connais simplement les API qui permettent de modifier les URL des fenêtres IEFRAME.
2/ Connaissez-vous une fonction qui pourrait envoyer mon URL à ma fenêtre "CabinetWClass" ?
Merci d'avance pour votre aide.
Pour résumé :
- avant je faisais :
- authentification à partir de mon webbrowser
- puis, lors de l'appel d'une nouvelle URL :
- Webbrowser.navigate myURL (je charge la nouvelle URL avant le "Ctrl N")
- sendkeys("^n")
- ma nouvelle fenêtre IE était bien chargée avec le contexte
- je veux maintenant :
- authentification à partir de mon webbrowser
- puis, lors de l'appel d'une nouvelle URL :
- faire d'abord : sendkeys("^n")
- puis, charger l'URL dans la nouvelle fenêtre
PCPT
Messages postés13278Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201848 15 févr. 2006 à 12:58
salut,
remplacer sendkeys : Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)