nDiki: Twitter への書き込みを自動的に Skype ムードメッセージに設定する for Windows (2008-08-05)
半年ぐらい前に Skype for Linux で Twitter への書き込みを自動的に Skype ムードメッセージに設定するスクリプト(記事)を作って cron で 10分毎に更新するようにした。 Windows BOX 上 Skype を使っている時も同様にできるように、Skype4COM を使うバージョンも書いてみた。 D-Bus ではなく Skype4COM を使うようにすることと、Skype4COM にはシフト JIS の文字列を渡すようにすること以外はほとんど同じ。 Skype4COM の DLL を登録し、Skype が起動している状態で以下の Perl スクリプトを実行。 #!/usr/bin/perl use strict; use warnings; use Win32::OLE; use URI::Fetch; use XML::RSS; use Date::Pa
Perl + Win32::OLE で Skype に発信 - 酒日記 はてな支店
ほんのとっかかりだけ。 use strict; use warnings; use Win32::OLE; my $user_name = shift || die; my $skype = Win32::OLE->new('Skype4COM.Skype'); unless ( $skype->Client->IsRunning ) { $skype->Client->Start(); } my $user = $skype->User($user_name); my $call = $skype->PlaceCall($user->Handle); ユーザ名を +81***** と電話番号にすれば、Skype Out で普通の電話にも発信できた。 あとは音声を流し込めば (APIドキュメントによれば wav を流せるらしい)、サーバの障害通知に使えるなあ…… Linux版 Skype
Skype Community > Skype を Perl で使う
Skype を Perl から使う方法ですが、Skype ActiveX/OCX を使用します。 Skype ActiveX/OCX はこちらからダウンロードできます。 http://www.khaoslabs.com/actives.php 上記をインストール後、以下のように perl で作ると、チャットメッセージが送れます。 ====================================== use strict; use Win32::OLE qw(in); my $skypeHandle="xxxxxxxx"; my $skypeChatMessage="Test Test"; my $objSkype; $objSkype = Win32::OLE->new( 'SKYPEAPI.Access', 'objskype_' ) or die "Cannot create
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
