[plt-scheme] mysterx InternetExplorer.Application NewWindow2
I'm trying to monitor the URLs visited by Internet Explorer.
Here's my test.
(require (lib "mysterx.ss" "mysterx"))
(define ie (cci/progid "InternetExplorer.Application"))
(com-set-property! ie "Visible" #t)
(com-invoke ie "Navigate" "http://hci.ucsd.edu")
(com-register-event-handler ie "DocumentComplete" (lambda(doc url) (printf
"~a~%" url)))
(com-register-event-handler ie "NewWindow2" (lambda(ie nav?) (printf
"new~%")))
I get Navigate events from the main window, but I never get a NewWindow2
event, so I can't attach to the new window to monitor it.
Hints?
Thanks,
Ron
stanonik at cogsci.ucsd.edu