Re: Re: Using Win32::GUITEST for Win32 Applications containing ActiveX or other COM objects.

Thanks for your reply Edward, I find however that ActiveX controls, at least, aren't accessible by handles... or at least FindWindowLike doesn't return the child handles of said controls. The furthest I can go with win32::GUITEST is to hit the reflection window.

Window Found(Text : '' Class : 'CtlFrameWork_ReflectWindow' Handle: '853406')

I picked up Programming Windows with MFC 2^nd Ed and in Chapter 21 it talks about ActiveX controls and how the container object can contain windowless controls and that interface messages are intercepted and passed through the reflective window. So now I know why the application looks like an opaque wall to my recursive windows handle traversal.... there weren't any win handles!

So...now to finish reading and figure out how to talk with and get information from the reflective window to talk to the controls beyond.

So, I am still searching for clues if anyone has already done work in this area. For those of you reading the thread the page # referring to windowless controls is pg 1284 in section Windowless Controls.

Cpan has a module Wx::ActiveX I am going to investigate ... worst case I can converse with its author and crack open my copy of extending and embedding perl and create a Win32::ActiveX module for generic use. Or (fingers crossed ) I can use the module unmodified. Has anyone used this particular module?

Comment on Re: Re: Using Win32::GUITEST for Win32 Applications containing ActiveX or other COM objects.

Replies are listed 'Best First'.
Re: Re: Re: Using Win32::GUITEST for Win32 Applications containing ActiveX or other COM objects. by gmpassos (Priest) on Nov 20, 2003 at 00:27 UTC
Just to share with the other monks my e-mail answer: ------------------------------------- To have a better control of the ActiveX control you can use the method GetOLE(): `my $flash = Wx::ActiveX::Flash->new( $parent_frame , -1 , wxDefaultP +osition , wxDefaultSize ); use Win32::OLE ; my $OLE = $flash->GetOLE() ; my $version = $OLE->Invoke('FlashVersion') ; ## or just: my $version = $OLE->FlashVersion() ; print "$version\n" ;` [download] Note that the code above is for wxPerl (Wx), and not Win32::GUI. If you want to keep using Win32::GUI, take a look in the module AxWindow at: http://perso.club-internet.fr/rocherl/Win32GUI.html (I don't know why it's not in CPAN yet). The module AxWindow make the same thing that Wx::ActiveX does for Wx. Regards, Graciliano M. P. ------------------------------------- Graciliano M. P. "Creativity is the expression of the liberty".	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Re: Using Win32::GUITEST for Win32 Applications containing ActiveX or other COM objects.
by gmpassos (Priest) on Nov 20, 2003 at 00:27 UTC

Just to share with the other monks my e-mail answer:

To have a better control of the ActiveX control you can use the method GetOLE():

 
  my $flash = Wx::ActiveX::Flash->new( $parent_frame , -1 , wxDefaultP
+osition , wxDefaultSize );

  use Win32::OLE ;
  my $OLE = $flash->GetOLE() ;
 
  my $version = $OLE->Invoke('FlashVersion') ;
  ## or just:   my $version = $OLE->FlashVersion() ;
  
  print "$version\n" ;
[download]

If you want to keep using Win32::GUI, take a look in the module AxWindow at:
http://perso.club-internet.fr/rocherl/Win32GUI.html
(I don't know why it's not in CPAN yet).

The module AxWindow make the same thing that Wx::ActiveX does for Wx.

Regards,
Graciliano M. P.
-------------------------------------

Graciliano M. P.
"Creativity is the expression of the liberty".

[reply]
[d/l]