Loading ...
Sorry, an error occurred while loading the content.

Re: DibSect is not working, please help

Expand Messages
  • Dennis K. Paulsen
    Hello, The following example works for me... Note the case sensitivity of Win32::GuiTest ... #!/usr/bin/perl -w use Win32::GuiTest qw(:ALL); $ds = new
    Message 1 of 11 , Nov 3, 2004
    • 0 Attachment
      Hello,

      The following example works for me... Note the case sensitivity
      of "Win32::GuiTest"...


      #!/usr/bin/perl -w

      use Win32::GuiTest qw(:ALL);


      $ds = new Win32::GuiTest::DibSect;


      my @windows = FindWindowLike(0, "C",0); #, "^XLMAIN\$");
      for (@windows) {
      SetForegroundWindow($_);
      $ds->CopyWindow($_);
      $ds->ToGrayScale();
      $ds->SaveAs("c:\\bla.bmp");
      $ds->ToClipboard();
      }



      Regards,
      Dennis K. Paulsen

      --- In perlguitest@yahoogroups.com, "snikki326" <snikki326@y...>
      wrote:
      >
      >
      > Hello,
      >
      > I get an error when I try to use Win32::GUITest::DibSect
      >
      > For example:
      > -----------------------------
      > #!/usr/bin/perl -w
      > use Win32::GUITest;
      >
      > $ds = new Win32::GUITest::DibSect;
      >
      > my @windows = FindWindowLike(0, "MY WINDOW",0); #, "^XLMAIN\$");
      > for (@windows) {
      > SetForegroundWindow($_);
      > $ds->CopyWindow($_);
      > $ds->ToGrayScale();
      > $ds->SaveAs("c:\bla.bmp");
      > $ds->ToClipboard();
      > }
      > -----------------------------
      >
      > However, the script crashes on:
      > $ds = new Win32::GUITest::DibSect;
      >
      > The error message is:
      > Can't locate object method "new" via
      > package "Win32::GUITest::DibSect" (perhaps you forgot to
      > load "Win32::GUITest::DibSect"?) at testDibSect.pl line 5.
      >
      > Which is a very elementary error. It means that DibSect is not
      > there.
      >
      > Can anyone suggest any way of getting DibSect to work? The only
      > reference I can find is http://search.cpan.org/~ctrondlp/Win32-
      > GuiTest-1.50.2-ad/guitest.pm
      >
      >
      > And that is very sparse at best.
      >
      > Anyone know how to get documentation on DibSect?
      >
      > Thanks!
    • Nicole Sheldon
      Dennis, I get the following error when I run the example code below: Can t locate object method new via package Win32::GuiTest::DibSect (perhaps you forgot
      Message 2 of 11 , Nov 5, 2004
      • 0 Attachment
        Dennis,

        I get the following error when I run the example
        code below:

        Can't locate object method "new" via package
        "Win32::GuiTest::DibSect" (perhaps you forgot to load
        "Win32::GuiTest::DibSect"?) at
        C:\OCR\Dev\testDibSect.pl line 7.


        Which seems bazaar to me because I have access to
        the rest of the GuiTest functionality. This type of
        error almost always originates from having a missing
        piece of the total package - in this case the piece is
        the DibSect module associated with GuiTest.

        I have tried searching for DibSect on my HD and I
        thought it should be at
        C:\perl\site\lib\win32\GuiTest\DibSect. It isn't. The
        only file I can find is
        C:\perl\site\lib\win32\GuiTest.pm.

        I have even tried different installations of GuiTest
        to no avail.

        Any ideas?

        I do not think the problem is a code problem (syntax
        error, etc.) but is more likely an installation issue.
        I base this conclusion on the below code not working
        even though I executed it verbatim. If it works for
        Dennis I thought it should work for me too :(


        Thanks!


        --- "Dennis K. Paulsen" <ctrondlpaulsden@...>
        wrote:

        >
        >
        > Hello,
        >
        > The following example works for me... Note the case
        > sensitivity
        > of "Win32::GuiTest"...
        >
        >
        > #!/usr/bin/perl -w
        >
        > use Win32::GuiTest qw(:ALL);
        >
        >
        > $ds = new Win32::GuiTest::DibSect;
        >
        >
        > my @windows = FindWindowLike(0, "C",0); #,
        > "^XLMAIN\$");
        > for (@windows) {
        > SetForegroundWindow($_);
        > $ds->CopyWindow($_);
        > $ds->ToGrayScale();
        > $ds->SaveAs("c:\\bla.bmp");
        > $ds->ToClipboard();
        > }
        >
        >
        >
        > Regards,
        > Dennis K. Paulsen
        >
        > --- In perlguitest@yahoogroups.com, "snikki326"
        > <snikki326@y...>
        > wrote:
        > >
        > >
        > > Hello,
        > >
        > > I get an error when I try to use
        > Win32::GUITest::DibSect
        > >
        > > For example:
        > > -----------------------------
        > > #!/usr/bin/perl -w
        > > use Win32::GUITest;
        > >
        > > $ds = new Win32::GUITest::DibSect;
        > >
        > > my @windows = FindWindowLike(0, "MY WINDOW",0); #,
        > "^XLMAIN\$");
        > > for (@windows) {
        > > SetForegroundWindow($_);
        > > $ds->CopyWindow($_);
        > > $ds->ToGrayScale();
        > > $ds->SaveAs("c:\bla.bmp");
        > > $ds->ToClipboard();
        > > }
        > > -----------------------------
        > >
        > > However, the script crashes on:
        > > $ds = new Win32::GUITest::DibSect;
        > >
        > > The error message is:
        > > Can't locate object method "new" via
        > > package "Win32::GUITest::DibSect" (perhaps you
        > forgot to
        > > load "Win32::GUITest::DibSect"?) at testDibSect.pl
        > line 5.
        > >
        > > Which is a very elementary error. It means that
        > DibSect is not
        > > there.
        > >
        > > Can anyone suggest any way of getting DibSect to
        > work? The only
        > > reference I can find is
        > http://search.cpan.org/~ctrondlp/Win32-
        > > GuiTest-1.50.2-ad/guitest.pm
        > >
        > >
        > > And that is very sparse at best.
        > >
        > > Anyone know how to get documentation on DibSect?
        > >
        > > Thanks!
        >
        >
        >
        >
      • Victor Ziv
        Hi, You ve probably installed Win32::GuiTest module from the current Active State ppd. If so, DibSect is not there indeed. The current Active State repository
        Message 3 of 11 , Nov 6, 2004
        • 0 Attachment
          Hi,

          You've probably installed Win32::GuiTest module from
          the current Active State ppd. If so, DibSect is not
          there indeed. The current Active State repository
          version for the module is 1.30, while CPAN archive
          makes it for ver. 1.50.2-ad, which does provides
          DibSect.

          By the way, I've tryied to install the module on Perl
          v5.8.4 with MS nmake and it went bats. The
          Win32-GuiTest.ppd included with the 1.50.2-ad package
          did the job though.

          Cheers.


          --- Nicole Sheldon <snikki326@...> wrote:

          >
          > Dennis,
          >
          > I get the following error when I run the example
          > code below:
          >
          > Can't locate object method "new" via package
          > "Win32::GuiTest::DibSect" (perhaps you forgot to
          > load
          > "Win32::GuiTest::DibSect"?) at
          > C:\OCR\Dev\testDibSect.pl line 7.
          >
          >
          > Which seems bazaar to me because I have access to
          > the rest of the GuiTest functionality. This type of
          > error almost always originates from having a missing
          > piece of the total package - in this case the piece
          > is
          > the DibSect module associated with GuiTest.
          >
          > I have tried searching for DibSect on my HD and I
          > thought it should be at
          > C:\perl\site\lib\win32\GuiTest\DibSect. It isn't.
          > The
          > only file I can find is
          > C:\perl\site\lib\win32\GuiTest.pm.
          >
          > I have even tried different installations of
          > GuiTest
          > to no avail.
          >
          > Any ideas?
          >
          > I do not think the problem is a code problem
          > (syntax
          > error, etc.) but is more likely an installation
          > issue.
          > I base this conclusion on the below code not working
          > even though I executed it verbatim. If it works for
          > Dennis I thought it should work for me too :(
          >
          >
          > Thanks!
          >
          >
          > --- "Dennis K. Paulsen" <ctrondlpaulsden@...>
          > wrote:
          >
          > >
          > >
          > > Hello,
          > >
          > > The following example works for me... Note the
          > case
          > > sensitivity
          > > of "Win32::GuiTest"...
          > >
          > >
          > > #!/usr/bin/perl -w
          > >
          > > use Win32::GuiTest qw(:ALL);
          > >
          > >
          > > $ds = new Win32::GuiTest::DibSect;
          > >
          > >
          > > my @windows = FindWindowLike(0, "C",0); #,
          > > "^XLMAIN\$");
          > > for (@windows) {
          > > SetForegroundWindow($_);
          > > $ds->CopyWindow($_);
          > > $ds->ToGrayScale();
          > > $ds->SaveAs("c:\\bla.bmp");
          > > $ds->ToClipboard();
          > > }
          > >
          > >
          > >
          > > Regards,
          > > Dennis K. Paulsen
          > >
          > > --- In perlguitest@yahoogroups.com, "snikki326"
          > > <snikki326@y...>
          > > wrote:
          > > >
          > > >
          > > > Hello,
          > > >
          > > > I get an error when I try to use
          > > Win32::GUITest::DibSect
          > > >
          > > > For example:
          > > > -----------------------------
          > > > #!/usr/bin/perl -w
          > > > use Win32::GUITest;
          > > >
          > > > $ds = new Win32::GUITest::DibSect;
          > > >
          > > > my @windows = FindWindowLike(0, "MY WINDOW",0);
          > #,
          > > "^XLMAIN\$");
          > > > for (@windows) {
          > > > SetForegroundWindow($_);
          > > > $ds->CopyWindow($_);
          > > > $ds->ToGrayScale();
          > > > $ds->SaveAs("c:\bla.bmp");
          > > > $ds->ToClipboard();
          > > > }
          > > > -----------------------------
          > > >
          > > > However, the script crashes on:
          > > > $ds = new Win32::GUITest::DibSect;
          > > >
          > > > The error message is:
          > > > Can't locate object method "new" via
          > > > package "Win32::GUITest::DibSect" (perhaps you
          > > forgot to
          > > > load "Win32::GUITest::DibSect"?) at
          > testDibSect.pl
          > > line 5.
          > > >
          > > > Which is a very elementary error. It means that
          > > DibSect is not
          > > > there.
          > > >
          > > > Can anyone suggest any way of getting DibSect to
          > > work? The only
          > > > reference I can find is
          > > http://search.cpan.org/~ctrondlp/Win32-
          > > > GuiTest-1.50.2-ad/guitest.pm
          > > >
          > > >
          > > > And that is very sparse at best.
          > > >
          > > > Anyone know how to get documentation on DibSect?
          > > >
          > > > Thanks!
          > >
          > >
          > >
          > >
          >
          >
          >
          >
          >




          __________________________________
          Do you Yahoo!?
          Check out the new Yahoo! Front Page.
          www.yahoo.com
        • Nicole Sheldon
          Victor, CPAN wants to install version 1.3 by default. Is there a way to set CPAN to get a different version? PPM does not find Win32::GuiTest at all. Anyone
          Message 4 of 11 , Nov 8, 2004
          • 0 Attachment
            Victor,

            CPAN "wants" to install version 1.3 by default. Is
            there a way to set CPAN to get a different version?
            PPM does not find Win32::GuiTest at all.

            Anyone know a link to get version 1.50.2-ad?

            Thanks!

            Installations on CPAN (at least that I can see):

            ftp://ftp.perl.org/pub/CPAN/authors/id/E/ER/ERNGUI/CHECKSUMS
            16147 1999-11-14 ERNGUI/Win32-GuiTest-0.3.zip
            15244 2000-01-07 ERNGUI/Win32-GuiTest-0.4.zip
            16138 2000-03-11 ERNGUI/Win32-GuiTest-0.5.zip
            18293 2000-03-12 ERNGUI/Win32-GuiTest-0.6.zip
            32075 2000-11-19 ERNGUI/Win32-GuiTest-0.7.zip
            34020 2000-12-24 ERNGUI/Win32-GuiTest-0.8.zip
            34439 2001-01-04 ERNGUI/Win32-GuiTest-0.9.zip
            36317 2001-06-03 ERNGUI/Win32-GuiTest-1.0.zip
            46524 2001-06-17 ERNGUI/Win32-GuiTest-1.1.zip
            49701 2001-11-04 ERNGUI/Win32-GuiTest-1.2.zip
            58103 2001-12-02 ERNGUI/Win32-GuiTest-1.3.zip


            --- Victor Ziv <victor_ziv@...> wrote:

            >
            >
            > Hi,
            >
            > You've probably installed Win32::GuiTest module from
            > the current Active State ppd. If so, DibSect is not
            > there indeed. The current Active State repository
            > version for the module is 1.30, while CPAN archive
            > makes it for ver. 1.50.2-ad, which does provides
            > DibSect.
            >
            > By the way, I've tryied to install the module on
            > Perl
            > v5.8.4 with MS nmake and it went bats. The
            > Win32-GuiTest.ppd included with the 1.50.2-ad
            > package
            > did the job though.
            >
            > Cheers.
            >
            >
            > --- Nicole Sheldon <snikki326@...> wrote:
            >
            > >
            > > Dennis,
            > >
            > > I get the following error when I run the example
            > > code below:
            > >
            > > Can't locate object method "new" via package
            > > "Win32::GuiTest::DibSect" (perhaps you forgot to
            > > load
            > > "Win32::GuiTest::DibSect"?) at
            > > C:\OCR\Dev\testDibSect.pl line 7.
            > >
            > >
            > > Which seems bazaar to me because I have access
            > to
            > > the rest of the GuiTest functionality. This type
            > of
            > > error almost always originates from having a
            > missing
            > > piece of the total package - in this case the
            > piece
            > > is
            > > the DibSect module associated with GuiTest.
            > >
            > > I have tried searching for DibSect on my HD and
            > I
            > > thought it should be at
            > > C:\perl\site\lib\win32\GuiTest\DibSect. It isn't.
            > > The
            > > only file I can find is
            > > C:\perl\site\lib\win32\GuiTest.pm.
            > >
            > > I have even tried different installations of
            > > GuiTest
            > > to no avail.
            > >
            > > Any ideas?
            > >
            > > I do not think the problem is a code problem
            > > (syntax
            > > error, etc.) but is more likely an installation
            > > issue.
            > > I base this conclusion on the below code not
            > working
            > > even though I executed it verbatim. If it works
            > for
            > > Dennis I thought it should work for me too :(
            > >
            > >
            > > Thanks!
            > >
            > >
            > > --- "Dennis K. Paulsen"
            > <ctrondlpaulsden@...>
            > > wrote:
            > >
            > > >
            > > >
            > > > Hello,
            > > >
            > > > The following example works for me... Note the
            > > case
            > > > sensitivity
            > > > of "Win32::GuiTest"...
            > > >
            > > >
            > > > #!/usr/bin/perl -w
            > > >
            > > > use Win32::GuiTest qw(:ALL);
            > > >
            > > >
            > > > $ds = new Win32::GuiTest::DibSect;
            > > >
            > > >
            > > > my @windows = FindWindowLike(0, "C",0); #,
            > > > "^XLMAIN\$");
            > > > for (@windows) {
            > > > SetForegroundWindow($_);
            > > > $ds->CopyWindow($_);
            > > > $ds->ToGrayScale();
            > > > $ds->SaveAs("c:\\bla.bmp");
            > > > $ds->ToClipboard();
            > > > }
            > > >
            > > >
            > > >
            > > > Regards,
            > > > Dennis K. Paulsen
            > > >
            > > > --- In perlguitest@yahoogroups.com, "snikki326"
            > > > <snikki326@y...>
            > > > wrote:
            > > > >
            > > > >
            > > > > Hello,
            > > > >
            > > > > I get an error when I try to use
            > > > Win32::GUITest::DibSect
            > > > >
            > > > > For example:
            > > > > -----------------------------
            > > > > #!/usr/bin/perl -w
            > > > > use Win32::GUITest;
            > > > >
            > > > > $ds = new Win32::GUITest::DibSect;
            > > > >
            > > > > my @windows = FindWindowLike(0, "MY
            > WINDOW",0);
            > > #,
            > > > "^XLMAIN\$");
            > > > > for (@windows) {
            > > > > SetForegroundWindow($_);
            > > > > $ds->CopyWindow($_);
            > > > > $ds->ToGrayScale();
            > > > > $ds->SaveAs("c:\bla.bmp");
            > > > > $ds->ToClipboard();
            > > > > }
            > > > > -----------------------------
            > > > >
            > > > > However, the script crashes on:
            > > > > $ds = new Win32::GUITest::DibSect;
            > > > >
            > > > > The error message is:
            > > > > Can't locate object method "new" via
            > > > > package "Win32::GUITest::DibSect" (perhaps you
            > > > forgot to
            > > > > load "Win32::GUITest::DibSect"?) at
            > > testDibSect.pl
            > > > line 5.
            > > > >
            > > > > Which is a very elementary error. It means
            > that
            > > > DibSect is not
            > > > > there.
            > > > >
            > > > > Can anyone suggest any way of getting DibSect
            > to
            > > > work? The only
            > > > > reference I can find is
            > > > http://search.cpan.org/~ctrondlp/Win32-
            > > > > GuiTest-1.50.2-ad/guitest.pm
            > > > >
            > > > >
            > > > > And that is very sparse at best.
            > > > >
            > > > > Anyone know how to get documentation on
            > DibSect?
            > > > >
            > > > > Thanks!
            > > >
            > > >
            > > >
            > > >
            > >
            > >
            > >
            > >
            > >
            >
            >
            >
            >
            > __________________________________
            > Do you Yahoo!?
            > Check out the new Yahoo! Front Page.
            > www.yahoo.com
            >
            >
            >
            >
            >
            >
          • Victor Ziv
            Hi Nicole, Here is the link to ver. 1.50.2-ad on the CPAN archive. http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-ad/ You can manually download the ZIP
            Message 5 of 11 , Nov 8, 2004
            • 0 Attachment
              Hi Nicole,

              Here is the link to ver. 1.50.2-ad on the CPAN
              archive.
              http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-ad/

              You can manually download the ZIP file and extract
              somewhere on your local disk.

              The INSTALLATION part of readme.html (comes with the
              package) stands for the following:


              -- start of quote

              If you are using ActivePerl 5.6
              (http://www.activestate.com/Products/ActivePerl/index.html)
              you can install the binary package I am including
              instead. You will need to enter PPM (Perl Package
              Manager) from the command-line. Once you have
              extracted the files I send you to a directory of your
              machine, enter PPM and do like this:

              C:\TEMP>ppm
              PPM interactive shell (2.0) - type 'help' for
              available commands.
              PPM> install C:\temp\win32-guitest.ppd
              Install package 'C:\temp\win32-guitest.ppd?'
              (y/N): Y
              Retrieving package 'C:\temp\win32-guitest.ppd'...
              Writing
              C:\Perl\site\lib\auto\Win32\GuiTest\.packlist
              PPM>

              I extracted them to 'c:\temp', please use the
              directory where you extracted the files instead.

              -- end of quote


              I ran the above procedure on Active State Perl 5.8.3
              and it worked all right. You'll probably have to
              uninstall the ver. 1.3 before...

              Hope it helps.

              Victor.

              --- Nicole Sheldon <snikki326@...> wrote:

              >
              > Victor,
              >
              > CPAN "wants" to install version 1.3 by default.
              > Is
              > there a way to set CPAN to get a different version?
              > PPM does not find Win32::GuiTest at all.
              >
              > Anyone know a link to get version 1.50.2-ad?
              >
              > Thanks!
              >
              > Installations on CPAN (at least that I can see):
              >
              >
              ftp://ftp.perl.org/pub/CPAN/authors/id/E/ER/ERNGUI/CHECKSUMS
              > 16147 1999-11-14 ERNGUI/Win32-GuiTest-0.3.zip
              > 15244 2000-01-07 ERNGUI/Win32-GuiTest-0.4.zip
              > 16138 2000-03-11 ERNGUI/Win32-GuiTest-0.5.zip
              > 18293 2000-03-12 ERNGUI/Win32-GuiTest-0.6.zip
              > 32075 2000-11-19 ERNGUI/Win32-GuiTest-0.7.zip
              > 34020 2000-12-24 ERNGUI/Win32-GuiTest-0.8.zip
              > 34439 2001-01-04 ERNGUI/Win32-GuiTest-0.9.zip
              > 36317 2001-06-03 ERNGUI/Win32-GuiTest-1.0.zip
              > 46524 2001-06-17 ERNGUI/Win32-GuiTest-1.1.zip
              > 49701 2001-11-04 ERNGUI/Win32-GuiTest-1.2.zip
              > 58103 2001-12-02 ERNGUI/Win32-GuiTest-1.3.zip
              >
              >
              > --- Victor Ziv <victor_ziv@...> wrote:
              >
              > >
              > >
              > > Hi,
              > >
              > > You've probably installed Win32::GuiTest module
              > from
              > > the current Active State ppd. If so, DibSect is
              > not
              > > there indeed. The current Active State repository
              > > version for the module is 1.30, while CPAN archive
              > > makes it for ver. 1.50.2-ad, which does provides
              > > DibSect.
              > >
              > > By the way, I've tryied to install the module on
              > > Perl
              > > v5.8.4 with MS nmake and it went bats. The
              > > Win32-GuiTest.ppd included with the 1.50.2-ad
              > > package
              > > did the job though.
              > >
              > > Cheers.
              > >
              > >
              > > --- Nicole Sheldon <snikki326@...> wrote:
              > >
              > > >
              > > > Dennis,
              > > >
              > > > I get the following error when I run the
              > example
              > > > code below:
              > > >
              > > > Can't locate object method "new" via package
              > > > "Win32::GuiTest::DibSect" (perhaps you forgot to
              > > > load
              > > > "Win32::GuiTest::DibSect"?) at
              > > > C:\OCR\Dev\testDibSect.pl line 7.
              > > >
              > > >
              > > > Which seems bazaar to me because I have access
              > > to
              > > > the rest of the GuiTest functionality. This type
              > > of
              > > > error almost always originates from having a
              > > missing
              > > > piece of the total package - in this case the
              > > piece
              > > > is
              > > > the DibSect module associated with GuiTest.
              > > >
              > > > I have tried searching for DibSect on my HD
              > and
              > > I
              > > > thought it should be at
              > > > C:\perl\site\lib\win32\GuiTest\DibSect. It
              > isn't.
              > > > The
              > > > only file I can find is
              > > > C:\perl\site\lib\win32\GuiTest.pm.
              > > >
              > > > I have even tried different installations of
              > > > GuiTest
              > > > to no avail.
              > > >
              > > > Any ideas?
              > > >
              > > > I do not think the problem is a code problem
              > > > (syntax
              > > > error, etc.) but is more likely an installation
              > > > issue.
              > > > I base this conclusion on the below code not
              > > working
              > > > even though I executed it verbatim. If it works
              > > for
              > > > Dennis I thought it should work for me too :(
              > > >
              > > >
              > > > Thanks!
              > > >
              > > >
              > > > --- "Dennis K. Paulsen"
              > > <ctrondlpaulsden@...>
              > > > wrote:
              > > >
              > > > >
              > > > >
              > > > > Hello,
              > > > >
              > > > > The following example works for me... Note
              > the
              > > > case
              > > > > sensitivity
              > > > > of "Win32::GuiTest"...
              > > > >
              > > > >
              > > > > #!/usr/bin/perl -w
              > > > >
              > > > > use Win32::GuiTest qw(:ALL);
              > > > >
              > > > >
              > > > > $ds = new Win32::GuiTest::DibSect;
              > > > >
              > > > >
              > > > > my @windows = FindWindowLike(0, "C",0); #,
              > > > > "^XLMAIN\$");
              > > > > for (@windows) {
              > > > > SetForegroundWindow($_);
              > > > > $ds->CopyWindow($_);
              > > > > $ds->ToGrayScale();
              > > > > $ds->SaveAs("c:\\bla.bmp");
              > > > > $ds->ToClipboard();
              > > > > }
              > > > >
              > > > >
              > > > >
              > > > > Regards,
              > > > > Dennis K. Paulsen
              > > > >
              > > > > --- In perlguitest@yahoogroups.com,
              > "snikki326"
              > > > > <snikki326@y...>
              > > > > wrote:
              > > > > >
              > > > > >
              > > > > > Hello,
              > > > > >
              > > > > > I get an error when I try to use
              > > > > Win32::GUITest::DibSect
              > > > > >
              > > > > > For example:
              > > > > > -----------------------------
              > > > > > #!/usr/bin/perl -w
              > > > > > use Win32::GUITest;
              > > > > >
              > > > > > $ds = new Win32::GUITest::DibSect;
              > > > > >
              > > > > > my @windows = FindWindowLike(0, "MY
              > > WINDOW",0);
              > > > #,
              > > > > "^XLMAIN\$");
              > > > > > for (@windows) {
              > > > > > SetForegroundWindow($_);
              > > > > > $ds->CopyWindow($_);
              > > > > > $ds->ToGrayScale();
              > > > > > $ds->SaveAs("c:\bla.bmp");
              > > > > > $ds->ToClipboard();
              > > > > > }
              > > > > > -----------------------------
              > > > > >
              > > > > > However, the script crashes on:
              > > > > > $ds = new Win32::GUITest::DibSect;
              > > > > >
              > > > > > The error message is:
              > > > > > Can't locate object method "new" via
              > > > > > package "Win32::GUITest::DibSect" (perhaps
              > you
              > > > > forgot to
              > > > > > load "Win32::GUITest::DibSect"?) at
              > > > testDibSect.pl
              > > > > line 5.
              > > > > >
              > > > > > Which is a very elementary error. It means
              > > that
              > > > > DibSect is not
              > > > > > there.
              > > > > >
              > > > > > Can anyone suggest any way of getting
              > DibSect
              > > to
              > > > > work? The only
              > > > > > reference I can find is
              >
              === message truncated ===




              __________________________________
              Do you Yahoo!?
              Check out the new Yahoo! Front Page.
              www.yahoo.com
            • Nicole Sheldon
              Victor, Thanks! That was it. After uninstalling v1.3 using: ppm uninstall Win32-GuiTest I installed the newer version using: install
              Message 6 of 11 , Nov 8, 2004
              • 0 Attachment
                Victor,

                Thanks! That was it.

                After uninstalling v1.3 using:
                ppm> uninstall Win32-GuiTest

                I installed the newer version using:
                install
                C:\temp\Win32-GuiTest-1.50.2-ad\Win32-GuiTest.ppd

                After that, my test program worked perfectly!

                Thanks again,

                N


                BTW, for future reference, the test script is:

                # testDibSect.pl

                use Win32::GuiTest qw(:ALL);

                $ds = new Win32::GuiTest::DibSect();

                my @windows = FindWindowLike(0, "C",0);

                for (@windows) {
                SetForegroundWindow($_);
                $ds->CopyWindow($_);
                $ds->ToGrayScale();
                $ds->SaveAs("c:\\bla.bmp");
                $ds->ToClipboard();
                }


                --- Victor Ziv <victor_ziv@...> wrote:

                >
                > Hi Nicole,
                >
                > Here is the link to ver. 1.50.2-ad on the CPAN
                > archive.
                >
                http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-ad/
                >
                > You can manually download the ZIP file and extract
                > somewhere on your local disk.
                >
                > The INSTALLATION part of readme.html (comes with the
                > package) stands for the following:
                >
                >
                > -- start of quote
                >
                > If you are using ActivePerl 5.6
                >
                (http://www.activestate.com/Products/ActivePerl/index.html)
                > you can install the binary package I am including
                > instead. You will need to enter PPM (Perl Package
                > Manager) from the command-line. Once you have
                > extracted the files I send you to a directory of
                > your
                > machine, enter PPM and do like this:
                >
                > C:\TEMP>ppm
                > PPM interactive shell (2.0) - type 'help' for
                > available commands.
                > PPM> install C:\temp\win32-guitest.ppd
                > Install package 'C:\temp\win32-guitest.ppd?'
                > (y/N): Y
                > Retrieving package
                > 'C:\temp\win32-guitest.ppd'...
                > Writing
                > C:\Perl\site\lib\auto\Win32\GuiTest\.packlist
                > PPM>
                >
                > I extracted them to 'c:\temp', please use the
                > directory where you extracted the files instead.
                >
                > -- end of quote
                >
                >
                > I ran the above procedure on Active State Perl 5.8.3
                > and it worked all right. You'll probably have to
                > uninstall the ver. 1.3 before...
                >
                > Hope it helps.
                >
                > Victor.
                >
              Your message has been successfully submitted and would be delivered to recipients shortly.