Hi All

In the below script we can print event details into console window by
debug_spin(1).
Now how can I print those event details in a text file ?

__________________________________________________________________
use strict;
use Win32::OLE;
use Win32::ActAcc;

sub main
{
        print "\n"."aaEvents - Display WinEvents"."\n\n";
        print "(runs until interrupted, e.g., by ^C)\n";
        Win32::OLE->Initialize();
        my $eh = Win32::ActAcc::createEventMonitor(1);
        for (;;)
        {
                print "-----\n";
                $eh->debug_spin(1);
        }
}

&main;
_________________________________________________


Thanks

Abhra



Abhra Debroy   _______________________________________________

 Prabodhan Exports Pvt. Ltd .(www.prabodhan.com - Join our QA Club!).     
 47/4, Aishwarya Resi, Abhinav Parisar, 
 Erandwane , Pune 411 004 India.
 Tel: 91-20-5462035,543 1447( Extn -21)
 ____________________________________________________________



_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to