« Archive 2017/10 12345678910111213141516171819202122232425262728293031 »

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


詳細


カテゴリ:スポンサー広告
このページのURL:http://bigchocolate.blog120.fc2.com/?overture" target="_new
記事が作成された日時:--/--/-- --:--:--(--)
コメント数:-
TrackBackの数:-

Comment

Comment Form





管理者にだけ表示を許可する

TrackBack


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);

スポンサーサイト


詳細

タグ:Skype4COMSkypeperl
カテゴリ:未分類
このページのURL:http://bigchocolate.blog120.fc2.com/blog-entry-7.html
記事が作成された日時:2008/04/02 19:43:01(水)
コメント数:0
TrackBackの数:0

Comment

Comment Form





管理者にだけ表示を許可する

TrackBack


カテゴリー

月別アーカイブ

RSSリンク

ブログ全記事表示

全ての記事を表示する


あわせて読みたいブログパーツ
ページランク スカウター : bigchocolate
フィードメーター - bigchocolate
SEO対策 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。