Obj- Shell.Explorer.2 - Crush! [SOLVED]

[Armand]

helo there

anyhow that's the second time i'm writing about it and i'd really be happy to have some concrete solution

as my code is over 6000 lines combined i cannot post it here however i will post a "demo" of my script with all of the regarding lines included (hopfully!).

Edit-> i've managed to reproduce the crush with only but a few lines:

#include <GUIConstants.au3>;Needed.
GUICreate("",900,700)
$MyBrowseringOBJ = ObjCreate("Shell.Explorer.2"); Create Internet Explorer application
$MyBrowseringOBJEvent = ObjEvent($MyBrowseringOBJ, "IEEvent_", "DWebBrowserEvents2")
$MyBrowseringOBJ_ctrl = GUICtrlCreateObj($MyBrowseringOBJ, 4, 62, 817, 625)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$MyBrowseringOBJ.RegisterAsBrowser = 1
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc"); Initialize a COM error handler
GUISetState()

$MyBrowseringOBJ.navigate ("www.google.com")
MsgBox(0,"INSTRUCTIONS:","just right click on a link and choose: 'open in new window'!")
While 1
    
WEnd

Func MyErrFunc();Error Handler - so that users won't see the autoit errors...
    $HexNumber = Hex($oMyError.number, 8)
    ConsoleWrite("###  We intercepted a COM Error :" & $HexNumber & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext & @CRLF _
            )
EndFunc

Any help provided will be much appreciated !

--->EDIT:

after a hell lot of testing {not atm but also before...}, i've realized that if i remove the following line it works OK!

$MyBrowseringOBJEvent = ObjEvent($MyBrowseringOBJ, "IEEvent_", "DWebBrowserEvents2")

any alternative for that line ? any idea on how to have it implemented in my script and yet have my script not crushing ?!

THANKS IN ADVANCE !

Edited November 24, 2007 by Armand

[Armand]

Anyone has a clue ?!

[Generator]

Use IE UDF and you won't have any problem.

[Armand]

ohhh, even with IE idf i get the error if i'm using that line mentioned...

-->EDIT:

I'm on to it !!!!!!

just don't use the event: 'DWebBrowserEvents2', use 'DWebBrowserEvents' instead !!!

$MyBrowseringOBJEvent = ObjEvent($MyBrowseringOBJ, "IEEvent_", "DWebBrowserEvents")

works like a charm !!!

Edited November 24, 2007 by Armand