Skype4com+perl

public text v1 · immutable

#2057268

·published 2011-05-12 08:42 UTC

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;