[R] Probleme d'evenement

[mortrevere]

Bonjour !
Depuis quelque temps je travail sur un petit navigateur donc l'objectif est d'etre plus rapide que mozilla ou chrome.Ce but a été atteind (sur mon PC en tout cas )
Voila mon probleme, le navigateur utilise un objet activeX d'internet explorer, grace a cette page : http://msdn.microsoft.com/en-us/library ... 85%29.aspx j'ai trouvé les methodes necessaires pour suivant, precedents ... mais pas moyen de gerer les evenement !
Mon but serais de declenché une fonction lorsque que l'evenement NavigateComplete se declenche.
Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
HotKeySet("!u","GetURL")
FileInstall("Nawig.ini", "Nawig.ini")
$pageaccueil = IniRead("Nawig.ini", "Accueil", "page", "http://www.google.com/")
$favoris = IniRead("Nawig.ini", "Favoris", "fav", "http://www.google.com/")
$oIE = ObjCreate("Shell.Explorer.2")
$Form = GUICreate("Nawig", @DesktopWidth, @DesktopHeight, 0, 0)
$adresse = GUICtrlCreateCombo($pageaccueil, 32, 8, 545, 21)
GUICtrlSetData($adresse, $favoris)
$GO = GUICtrlCreateButton(">", 584, 8, 49, 21)
$h = @DesktopWidth - 30
$l = @DesktopHeight - 100
$Prec = GUICtrlCreateButton("<--", 640, 8, 41, 25)
$Suiv = GUICtrlCreateButton("-->", 688, 8, 41, 25)
$Home = GUICtrlCreateButton("Home", 752, 8, 49, 25)
$Actua = GUICtrlCreateButton("Actua", 808, 8, 49, 25)
$AjFav = GUICtrlCreateButton("Ajoutez Favoris", 872, 8, 121, 25)
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, $h, $l)
GUISetState(@SW_SHOW)

$oIE.navigate(GUICtrlRead($adresse))


While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GO
            $oIE.navigate(GUICtrlRead($adresse))
        Case $Prec
            $oIE.GoBack
        Case $Suiv
            $oIE.GoForward
        Case $Home
            $oIE.navigate($pageaccueil)
        Case $Actua
            $oIE.Refresh
        Case $AjFav
            AjouterFav()
    EndSwitch
WEnd

Func AjouterFav()
    $favoris = IniRead("Nawig.ini", "Favoris", "fav", "http://www.google.com/")
    $NewFav = InputBox("Nawig", "Entrez l'URL a ajoutez au favoris : ", "http://")
    If $favoris = "" Then
        IniWrite("Nawig.ini", "Favoris", "fav",$NewFav)
    Else
        IniWrite("Nawig.ini", "Favoris", "fav",$favoris & "|" & $NewFav)
    EndIf
    GUICtrlSetData($adresse, $NewFav)
EndFunc   ;==>AjouterFav

Func GetURL()
    ClipPut($oIE.LocationURL)
    MsgBox(0,"Adresse copiée","L'adresse de la page a été copié dans le presse papier")
EndFunc
 

Merci d'avance

[Iste]

Depuis quelque temps je travail sur un petit navigateur donc l'objectif est d'etre plus rapide que mozilla ou chrome.Ce but a été atteind (sur mon PC en tout cas )
Voila mon probleme, le navigateur utilise un objet activeX d'internet explorer, grace a cette page : http://msdn.microsoft.com/en-us/library ... 85%29.aspx

Dans ce cas utilisez directement IE ! Plutot que de l'utiliser a travers d'une interface bancal en autoit.

Sinon, une petite recherche sur le forum anglais vous aidera pas mal.
Dans le cas contraire, j'essayerai de venir poster l'un de mes petit exemples ce soir !

[mortrevere]

non, le but est de faire un autre navigateur, basé sur IE, c'est parce que nawig comporte peu de fonctions qu'il est rapide, voila pourquoi je n'utilise pas IE

[Iste]

regardez du coté de ce code

Code : Tout sélectionner

$oIE = _IECreate($url, 1) 
$oEvent = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2") 
Func IEEvent_DocumentComplete($pDisp, $url)
     ;your function here 
EndFunc

puis faites une recherche MSDN avec DWebBrowserEvents2 pour plus d'info et de possibilités

[mortrevere]

Merci ca marche

-------> resolu