[R] Gestion de la fonction nouvelle page

[waper]

Bonjour à tous,
N'ayant pas trouver mon bonheur sur le forum, d'habitude je m'en sort toujours, j'ai créer le compte pour vous soumettre ma demande.
J'ai fait un petit navigateur, rien de fou j'encapsule juste une page, l'utilisateur ne peux pas la changer, ni naviguer avec ce n'est pas le but.
Sauf que la page internet affichée est active, et lorsque l'utilisateur vas venir cliquer sur un lien qui normalement ouvre un nouvel onglet cela m'ouvre internet explorer en dehors de mon logiciel et de ce fait les données de session sont perdues.
Voici le code, le site en question à été remplacé par google mais un lien fesant appel à une nouvel fenêtre donnera le même résultat.
Comment gérer l’événement "je clique sur un lien qui ouvre une nouvelle fenêtre" dans la ma GUI et non en dehors ?

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Qbuico.ico
#AutoIt3Wrapper_Res_Comment=
#AutoIt3Wrapper_Res_Description=
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>
If _Singleton("example.exe", 1) = 0 Then
    MsgBox(0, "Instance en cours", "Le logiciel est déjà démarré")
    Exit
EndIf

$nameGUI = "Example"

    Global $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
    Global $GUI_Button_Reload, $GUI_Button_Reboot, $msg
    Global $stopwhile = 0
    Global $oIE = ObjCreate("Shell.Explorer.2")

    GUICreate($nameGUI, (@DesktopWidth - 100), (@DesktopHeight - 100), 0 , 0 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
    $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 20, (@DesktopWidth - 40) , (@DesktopHeight - 160))
;~     $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
;~     $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    $GUI_Button_Reload = GUICtrlCreateButton("Reload", 6, (@DesktopHeight - 136), 100, 30)
;~  $GUI_Button_Reboot = GUICtrlCreateButton("Reboot", 126, 732, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Fermer", (@DesktopWidth - 206), (@DesktopHeight - 136), 100, 30)

    GUISetState()       ;Show GUI

    $oIE.navigate("http://www.google.fr")
    $oie.

WinActivate ($nameGUI)

    While 1

        $nMsg = GUIGetMsg()
        Switch $nMsg

            Case $GUI_EVENT_CLOSE
            Exit

            Case $GUI_Button_Reload
                $oIE.navigate("http://www.google.fr")

;~          Case $msg = $GUI_Button_Reboot
;~              $oIE.stop
;~             Case $msg = $GUI_Button_Back
;~                 $oIE.GoBack
;~             Case $msg = $GUI_Button_Forward
;~                 $oIE.GoForward
            Case $GUI_Button_Stop
                Exit
        EndSwitch

    WEnd

Merci de votre aide !

[orax]

Bonjour et bienvenue sur le forum, merci de modifier le titre du message afin qu'il respecte les règles de présentation d'un message.

[franco]

Salut.

Je viens de tester ton script.
Et chez moi, ça fonctionne.

J'ai donc essayé de changer les paramètres d'IE.
Et j'ai retenté le script : idem

A chaque clic, je suis toujours dans la GUI, j'ai bien la page et IE ne se lance pas.


Faut trouver peut-être des liens qui s'ouvrent dans une fenêtre


++

[orax]

La page de google.fr n'était pas un bon exemple puisque les liens s'ouvrent dans la même fenêtre donc je l'ai changée. Avec ce script il est possible de bloquer toute navigation ($bCancelNav = True). Donc pour tester les deux modes il faut mettre $bCancelNav à True ou False.
Si c'est juste pour empêcher l'ouverture dans une nouvelle fenêtre alors la fonction _IEEvent_BeforeNavigate2 n'est pas nécessaire, elle peut être supprimée.
Doc MSDN => https://msdn.microsoft.com/en-us/librar ... 85%29.aspx

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Qbuico.ico
#AutoIt3Wrapper_Res_Comment=
#AutoIt3Wrapper_Res_Description=
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <IE.au3>
#include <MsgBoxConstants.au3>
If _Singleton("example.exe", 1) = 0 Then
    MsgBox(0, "Instance en cours", "Le logiciel est déjà démarré")
    Exit
EndIf

$nameGUI = "Example"

Global $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
Global $GUI_Button_Reload, $GUI_Button_Reboot, $msg
Global $stopwhile = 0
Global $oIE = ObjCreate("Shell.Explorer.2")
Global $oIEEvents = ObjEvent($oIE, "_IEEvent_", "DWebBrowserEvents2")
Global $bCancelNav = False

GUICreate($nameGUI, (@DesktopWidth - 100), (@DesktopHeight - 100), 0, 0, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 20, (@DesktopWidth - 40), (@DesktopHeight - 160))
;~     $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
;~     $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Reload = GUICtrlCreateButton("Reload", 6, (@DesktopHeight - 136), 100, 30)
;~  $GUI_Button_Reboot = GUICtrlCreateButton("Reboot", 126, 732, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Fermer", (@DesktopWidth - 206), (@DesktopHeight - 136), 100, 30)

GUISetState() ;Show GUI

$oIE.navigate("http://www.w3schools.com/tags/tryit.asp?filename=tryhtml_a_target")
While 1
    If $oIE.readyState = "complete" Or $oIE.readyState = 3 Or $oIE.readyState = 4 Then ExitLoop
    Sleep(10)
WEnd
$bCancelNav = True ; si à True alors on ne peut plus naviguer sur d'autres pages

WinActivate($nameGUI)

While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg

        Case $GUI_EVENT_CLOSE
            Exit

        Case $GUI_Button_Reload
            $oIE.navigate("http://www.w3schools.com/tags/tryit.asp?filename=tryhtml_a_target")

;~          Case $msg = $GUI_Button_Reboot
;~              $oIE.stop
;~             Case $msg = $GUI_Button_Back
;~                 $oIE.GoBack
;~             Case $msg = $GUI_Button_Forward
;~                 $oIE.GoForward
        Case $GUI_Button_Stop
            Exit
    EndSwitch

WEnd

Volatile Func _IEEvent_NewWindow3($oIEpDisp, ByRef $bIECancel, $iIEFlags, $sIEURLContext, $sIEURL)
    $bIECancel = True ; la nouvelle fenêtre ne s'ouvrira pas
    If Not $bCancelNav Then $oIE.navigate($sIEURL) ; (facultatif) ouvre le lien dans la fenêtre active, mais je ne sais pas si c'est une bonne façon de faire
EndFunc   ;==>_IEEvent_NewWindow3

Volatile Func _IEEvent_BeforeNavigate2($oIEpDisp, $sIEURL, $iIEFlags, $sIETargetFrameName, $sIEPostData, $iIEHeaders, ByRef $bIECancel)
    If $bCancelNav Then $bIECancel = True ; $bIECancel = True pour annuler la navigation
EndFunc   ;==>_IEEvent_BeforeNavigate2

[waper]

Merci pour vos réponses,
J'ai testé les fonctions, et il s’avère que la page détecte maintenant un blocage des pop-up donc on peux penser que le fenêtres que mes utilisateurs ouvrent sont des pop-up (si cela peux aider à la recherche) et ne se lance donc plus.
C'est ceci : $bIECancel = True qui fait que le module me bloque les pop up
Du coup il faudrait alors autoriser les pop up, mais que ces derniére s'ouvre dans une nouvelle fenêtre de ma GUI, on tourne en rond

Je vais regarder le lien msdn
Toujours à l'écoute pour vos idée sachant que je peux aussi partir sur un autre navigateur si quelqu'un en à codé un.

[waper]

Salut à tous,
J'ai essayé pas mal de choses sans sucés du coup la demande est toujours ouverte et je suis donc à l'écoute de vos propositions.
Merci de votre aide !

[jguinch]

Y'a un truc que je comprends pas :

J'ai fait un petit navigateur, rien de fou j'encapsule juste une page, l'utilisateur ne peux pas la changer, ni naviguer avec ce n'est pas le but.

Donc l'utilisateur peut cliquer ou non ?

Quel est le besoin au final ? Permettre d'avoir un navigateur aux fonctionnalités réduites ?

[waper]

Oui l'utilisateur peux cliquer pour ouvrir différentes options du site on vas dire comme la saisie d'incident qui apparaissent alors dans une pop-up qui elle doit restée encapsulé et non ouvrir un nouveau navigateur car je perd les donnée de sessions.
Le but final c'est d'encapsuler le site même si les pop up s'ouvre dans une autre fenêtre de mon exe ce n'est pas gênant, les fonctionnalité de navigation doivent être réduire oui .