Skype4COM で電話をかけて音声ファイルをながす - KAYAC Engineers' Blog
こんにちは。休日もプログラミングをしている村瀬です。 先週末、突然 Skype で電話をかけ、相手が出たら指定した音声ファイルを一方的に流して電話を切る、というスクリプトがほしくなったためちょろっと書いてみたのでそれを紹介します。 この記事は Windows + Skype4COM での例ですが、弊社の大塚が自身のブログにLinuxで同じことをやる方法を書いていますので Linux でやりたい方はそちらを参照してみてください。ちなみに、元気が出る電話ではこの大塚の方法を元にしたもの使用していたりします。 さて、Skype4COM ですが、これは SkypeAPI を COM 経由で叩けるようにしてくれるラッパーです。COM は言語を問わず利用することができるので、ここでは perl を使用しました。 ここで紹介するスクリプトの全ソースは github にあげましたので、あわせて参照ください
PerlからSkypeでチャット - Unknown::Programming
m/今日/昨日/の捨てコード。 #!/usr/local/bin/perl use strict; use warnings; use Win32::OLE; use Encode; use utf8; use Time::HiRes qw/sleep/; # perl skype.pl username message [sleep=0] # username = 送信したい相手のID # message = 送信する内容 # sleep = 送信間隔 my $user_name = shift || die 'user name'; my $message = decode('shiftjis',shift || die 'message'); my $sleep = shift || 0; die 'sleep num' unless $sleep =~ /^[\d.]+$/; my
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
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
