FC2ブログ
« Archive 2019/09 123456789101112131415161718192021222324252627282930 »

Skype4COM Skype API

手探りでSkypeのAPIで遊んでます。Perlからは以下のような感じでオープンチャットにメッセージを投稿することができるみたい。


#!/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);

スポンサーサイト




[コメントを書く] [Permalink] [2008/04/02]

カテゴリー

月別アーカイブ

RSSリンク

ブログ全記事表示

全ての記事を表示する


あわせて読みたいブログパーツ
ページランク スカウター : bigchocolate
フィードメーター - bigchocolate
SEO対策