Lyle Kopnicky wrote:
$Bill Luebkert wrote:
[snipped stuff about using an ICA session and not getting beeps]
Apparently what you need to do is get the PC or whatever you are logging
in from to generate the beep rather than the MB speaker.
I can do that, by typing ^G in the console and hitting Enter.
But I can't do it from a Perl program, running via wperl.
I'm not familiar with Tk and don't know what Tk's beep() uses as it's
underlying Win32 API call, but the remarks section for the MessageBeep()
call at MSDN says:
"Terminal Services: To send a beep to a client, use the Beep function.
The Beep function is redirected to the client, whereas MessageBeep is
not, except on Windows NT 4.0 where MessageBeep(-1) calls Beep."
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/messagebeep.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/debug/base/beep.asp
I also don't know if ICA sessions are the same a Terminal Services ones,
but if you have Win32::API, do you get any noises from either of the
following snippets?
#!perl -w
use strict;
use warnings;
use Win32::API();
Win32::API->Import("User32", "MessageBeep", "l", "V");
MessageBeep(-1);
__END__
#!perl -w
use strict;
use warnings;
use Win32::API();
Win32::API->Import("Kernel32", "Beep", "LL", "L");
Beep(750, 300);
__END__
Regards,
Rob.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
