请教perl如何驱动pc喇叭

fengpxu

1^# fengpxu 发表于 2007-01-06 08:30

请教perl如何驱动pc喇叭
请教perl如何驱动pc喇叭
谢谢

jeffrey2

2^# jeffrey2 发表于 2007-01-06 19:32

\a.

mycgi

3^# mycgi 发表于 2007-01-06 20:41

use Win32::Sound; use Win32::Sound;
Win32::Sound::Volume('100%');
Win32::Sound::Play("file.wav");
Win32::Sound::Stop();