use Win32::OLE; use Win32::OLE::Variant; my $player= Win32::OLE->new('MediaPlayer.MediaPlayer') or die Win32::OLE->LastError(); $player->{'Autostart'} = Variant(VT_BOOL, 1) or die Win32::OLE->LastE +rror(); $player->{'FileName'} = "C:\\d\\media\\video\\Maratonci.avi" or die Wi +n32::OLE->LastError(); print "FileName = $player->{FileName}\n"; sleep(5); $player->AboutBox; sleep(5); $player->Invoke(Play) ; #$player->Play or die Win32::OLE->LastError(); sleep(30); $player->Quit() or die Win32::OLE->LastError();
In reply to Trouble with WMP and OLE by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |