----- Original Message -----
From: "Luke Bakken"
.
.
>
> Interestingly, MessageBeep() doesn't work on my XP machine but Beep()
does.
>
> use strict;
> use Win32::API;
>
> my $msgBeep = Win32::API->new('user32', 'MessageBeep', 'N', 'N') or
> die "Can't create a beep function: $^E\n";
> my $beep = Win32::API->new('kernel32', 'Beep', 'NN', 'N') or die
> "Can't create a beep function: $^E\n";
>
> $msgBeep->Call(-1);
>
> $beep->Call(440, 1000);
>
I think you'll hear it if you:
$msgBeep->Call(-1);
sleep(1);
$beep->Call(440, 1000);
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
