maximus-asoi has asked for the wisdom of the Perl Monks concerning the following question:

Please tell me anybody about Skype4com. I try sample code and can make a call to friends from script. But I can`t capture events from skype with Skype4com and Win32::OLE. Code, with I try to capture events is:

use Win32::OLE qw(EVENTS); $sk=Win32::OLE->new("Skype4COM.Skype") || die "Coudn`t connect $!"; Win32::OLE->WithEvents($sk,\&Eve,"_ISkypeEvents"); $sk->Attach(); $user=$sk->CurrentUser(); $sts=$sk->Convert->OnlineStatusToText($user->OnlineStatus); print "Current user: " . $user->{FullName} . " is " . "$sts\n"; Win32::OLE->MessageLoop(); sub Eve { my($msg,$stat,@args)=@_; print "Event triggered\n"; exit 0; } exit 0;

Replies are listed 'Best First'.
Re: Skype4COM capturing events
by wind (Priest) on May 12, 2011 at 21:06 UTC
      It`s not that I want. I saw it resources but with this classes I can`t listen the events from skype... Isn`t it? May be I am wrong...
        Thank you for information where I can find it =)