RE: A system modal dialog box?
I don't know if that's possible. You can create a dialog box that won't go away until you click on it and is always in the foreground, but I don't know if it will be possible to not allow any other interaction until the dialog box is dealt with. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Lyle Kopnicky Sent: Thursday, May 18, 2006 5:41 PM To: Perl-Win32-Users@listserv.ActiveState.com Subject: A system modal dialog box? Hi folks, I need to create a dialog box in my application that prevents the user from doing anything else on the system until OK is clicked. That is, the user may not interact with any other windows, of any applications, during this time. It would be best if the dialog box was asynchronous, so the application could continue to process timer signals while waiting for the user to click OK. I'm using TK in my application, so I looked at the Tk::Dialog method. With that, you can make the dialog "local" or "global". I tried "global", but it didn't prevent me from interacting with other windows. Is there a Win32 call that can do this? I read about the MessageBox function, which lets you specify SYSTEMMODAL, but it says that doesn't stop the user from interacting with other applications, either. Any ideas? Thanks. -- Lyle Kopnicky Software Project Engineer Veicon Technology, Inc. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
A system modal dialog box?
Hi folks, I need to create a dialog box in my application that prevents the user from doing anything else on the system until OK is clicked. That is, the user may not interact with any other windows, of any applications, during this time. It would be best if the dialog box was asynchronous, so the application could continue to process timer signals while waiting for the user to click OK. I'm using TK in my application, so I looked at the Tk::Dialog method. With that, you can make the dialog "local" or "global". I tried "global", but it didn't prevent me from interacting with other windows. Is there a Win32 call that can do this? I read about the MessageBox function, which lets you specify SYSTEMMODAL, but it says that doesn't stop the user from interacting with other applications, either. Any ideas? Thanks. -- Lyle Kopnicky Software Project Engineer Veicon Technology, Inc. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Reading mail box.
Yeah, you have to install Mail::Box::IMAP4 manually after
you install Mail::Box. It should work fine after that. It's
a great little module.
> - Original Message -
> From: "Yekhande, Seema (MLITS)" <[EMAIL PROTECTED]>
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Reading mail box.
> Date: Thu, 18 May 2006 18:37:26 +0530
>
>
> Hello All,
>
> I want to read a mail box from Microsoft Outlook which is my inbox.
> I am writing a code like this,
>
> use Mail::Box::Manager;
> my $mgr= Mail::Box::Manager->new;
> my $folder = $mgr->open('Inbox');
> But this is giving me an error as
>
> "ERROR: Package Mail::Box::IMAP4 does not implement Mail::Box::foundIn.
> Please warn the author, this shouldn't happen. at
> C:/Perl/site/lib/Mail/Reporter
> .pm line 196
> Mail::Reporter::notImplemented('Mail::Box::IMAP4') called at
> C:/Perl/sit
> e/lib/Mail/Box.pm line 155
> Mail::Box::foundIn('Mail::Box::IMAP4', 'Inbox', 'access', 'r',
> 'folderdi
> r', ., 'authentication', 'AUTO', 'folder', ...) called at
> C:/Perl/site/lib/Mail/
> Box/Manager.pm line 208
> Mail::Box::Manager::open('Mail::Box::Manager=HASH(0x35760)',
> 'Inbox') ca
> lled at mail.pl line 77"
>
> Even if I am writing a code as below
> use Mail::Box::Manager;
> my $manager = Mail::Box::Manager->new;
> my $folder = $manager->open(folder => $ENV{MAIL});
> my $msg = $folder->message(1);
>
> It is giving me the error as "ERROR: No foldername specified to open.
> Can't call method "message" on an undefined value at mail1.pl line 4."
> So, can anyone please explain me how to read the messages from mail box.
>
> Thanks & Regards,
> Seema.
>
>
> If you are not an intended recipient of this e-mail, please notify
> the sender, delete it and do not read, act upon, print, disclose,
> copy, retain or redistribute it. Click here for important
> additional terms relating to this e-mail.
> http://www.ml.com/email_terms/
>
>
> ___
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
--
___
Search for businesses by name, location, or phone number. -Lycos Yellow Pages
http://r.lycos.com/r/yp_emailfooter/http://yellowpages.lycos.com/default.asp?SRC=lycos10
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Reading mail box.
Title: Reading mail box.
I've
attached an object that reads the Outlook folder in the mailbox you specify when
you instantiate it. It works under Windows 2K Professional, but not Win2k
Server. It does, however, work under Win2k3 Server. It requires that
you install Microsoft's free Redemption software.
Hope
it helps,
Ken
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]On Behalf Of
Yekhande, Seema (MLITS)Sent: Thursday, May 18, 2006 9:07
AMTo: perl-win32-users@listserv.ActiveState.comCc:
Yekhande, Seema (MLITS)Subject: Reading mail
box.
Hello All,
I want to read a mail box from Microsoft Outlook
which is my inbox. I am writing a code like
this,
use Mail::Box::Manager; my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open('Inbox');
But this is giving me an error as
"ERROR: Package Mail::Box::IMAP4 does not implement
Mail::Box::foundIn. Please warn the author,
this shouldn't happen. at C:/Perl/site/lib/Mail/Reporter .pm line 196
Mail::Reporter::notImplemented('Mail::Box::IMAP4') called at
C:/Perl/sit e/lib/Mail/Box.pm line
155
Mail::Box::foundIn('Mail::Box::IMAP4', 'Inbox', 'access', 'r',
'folderdi r', ., 'authentication', 'AUTO',
'folder', ...) called at C:/Perl/site/lib/Mail/ Box/Manager.pm line 208
Mail::Box::Manager::open('Mail::Box::Manager=HASH(0x35760)', 'Inbox')
ca lled at mail.pl line
77"Even if I am writing a code as
below use Mail::Box::Manager;
my $manager = Mail::Box::Manager->new;
my $folder = $manager->open(folder =>
$ENV{MAIL}); my
$msg = $folder->message(1);
It is giving me the error as "ERROR: No
foldername specified to open. Can't
call method "message" on an undefined value at mail1.pl line 4."
So, can anyone please explain me how to read
the messages from mail box.
Thanks & Regards,Seema.
If you are not an intended recipient of this e-mail, please notify the
sender, delete it and do not read, act upon, print, disclose, copy, retain or
redistribute it. Click here for
important additional terms relating to this e-mail. http://www.ml.com/email_terms/
Cardinal Health -- Working together. For life. (sm)
_
This message is for the designated recipient only and may contain privileged, proprietary, or otherwise private information. If you have received it in error, please notify the sender immediately and delete the original. Any other use of the email by you is prohibited.
Dansk - Deutsch - Espanol - Francais - Italiano - Japanese - Nederlands - Norsk - Portuguese - Svenska: www.cardinalhealth.com/legal/email
OutlookReader.pm
Description: OutlookReader.pm
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Reading mail box.
Title: Reading mail box.
Hello All,
I want to read a mail box from Microsoft Outlook which is my inbox.
I am writing a code like this,
use Mail::Box::Manager;
my $mgr = Mail::Box::Manager->new;
my $folder = $mgr->open('Inbox');
But this is giving me an error as
"ERROR: Package Mail::Box::IMAP4 does not implement Mail::Box::foundIn.
Please warn the author, this shouldn't happen. at C:/Perl/site/lib/Mail/Reporter
.pm line 196
Mail::Reporter::notImplemented('Mail::Box::IMAP4') called at C:/Perl/sit
e/lib/Mail/Box.pm line 155
Mail::Box::foundIn('Mail::Box::IMAP4', 'Inbox', 'access', 'r', 'folderdi
r', ., 'authentication', 'AUTO', 'folder', ...) called at C:/Perl/site/lib/Mail/
Box/Manager.pm line 208
Mail::Box::Manager::open('Mail::Box::Manager=HASH(0x35760)', 'Inbox') ca
lled at mail.pl line 77"
Even if I am writing a code as below
use Mail::Box::Manager;
my $manager = Mail::Box::Manager->new;
my $folder = $manager->open(folder => $ENV{MAIL});
my $msg = $folder->message(1);
It is giving me the error as "ERROR: No foldername specified to open.
Can't call method "message" on an undefined value at mail1.pl line 4."
So, can anyone please explain me how to read the messages from mail box.
Thanks & Regards,
Seema.
If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Remote machine connectivity
Title: Message
Hello
Andy,
Thanks
for the support in doing this activity.
Regards,
Seema.
-Original Message-From: Andy
Speagle [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 17, 2006 7:13
PMTo: Yekhande, Seema (MLITS)Cc:
perl-win32-users@listserv.activestate.comSubject: Re: Remote machine
connectivity
Seema,
How about something as simple as this...
use File::Copy;
use Win32::OLE;
my $strServer = "someserver";
my $strSource =
"c:\\path\\to\\test.txt";
my $strDest = "".$strServer."\\path\\to\\file\\";
copy ($strSource, $strDest) ||
die "Failed to copy file:
".$^E."\n";
my $strClass =
"WinMgmts:{impersonationLevel=impersonate}!//".$strServer;
my $objWMI = Win32::OLE->GetObject( $strClass
) ||
die "Unable to connect to ".$strServer.":" .
Win32::OLE->LastError();
my $objProcess = $objWMI->Get(
"Win32_Process" ) ||
die "Unable to get the process
list:" . Win32::OLE->LastError();
my $varPID = Variant( VT_I4 | VT_BYREF, 0
);
if ( 0 == $objProcess->Create( "perl.exe
c:\\path\\to\\script\\script.pl test.txt", undef, undef, $varPID ) )
{ print "Process successfully created on ".$strServer." with
PID ".$varPID."...\n"; } else { print "Failed to create
process on ".$strServer."...\n";}
This should be pretty straight-forward... and completely untested...
remember that with Win2k >= SP3 ... the remote process will run completely
in the background...
Cheers.
Andy Speagle
-
On 5/17/06, Yekhande,
Seema (MLITS) <[EMAIL PROTECTED]>
wrote:
Hello All,
I want to copy one test.txt file to a remote
machine. Then change directory in remote
machine and run the command on remote machine as perl test.pl test.txt
Does anyone knows how to do this in
perl.
Thanks & Regards, Seema.
If you are not an intended recipient of this e-mail, please notify the
sender, delete it and do not read, act upon, print, disclose, copy, retain
or redistribute it. Click here for
important additional terms relating to this e-mail.
http://www.ml.com/email_terms/
___Perl-Win32-Users
mailing listPerl-Win32-Users@listserv.ActiveState.comTo
unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
