bigchocolate

#!/usr/bin/perl

use Win32::OLE qw(in);

my $myBlob="rX6YQ0kjlHOWeeM0bF_DqplsdrZ4aJBwz_GrhiAX643daHWKhm5gAOzdB62ZxVmUCh-kn8o5vJrH2_ENzDUIwTmDFoNP1yCslbEpAVVytF5TpJnrnHoYPGqV0B9QKlJ9_llMqbEplWzzujqBQipieE0ibvChLT27Eg5bybLJPUiSBuN99NPhT6mpMaNDfA";

$objSkype = Win32::OLE->new( 'Skype4COM.Skype', 'Skype_' ) or die "Cannot create SkypeAPI Lib objectn";

$objSkype->Connect();

for ($i = 1; $i <= 5; $i++) {
$objSkype->CreateChatUsingBlob($myBlob)->SendMessage("またねー");
}


#名前を取得して、メッセージとして送信
#my $name=$objSkype->CurrentUserProfile->FullName;
#$objSkype->CreateChatUsingBlob($myBlob)->SendMessage($name);

スポンサーサイト