2013年6月14日金曜日

スカイプで受信したメッセージを東北ずん子に読み上げさせる。

ツールにする程でもなかったのでコードを直接公開します。
例によって例の如く、公式で引数読み上げに対応してくれないばかりに読み上げの文字投げは「民安★TALK」によって行っています。

前提として
・「民安★TALK」のダウンロード及び設定済みである事。
・「Skype4COM.dll」のダウンロード及び登録済みである事。
・スカイプが起動済みかつログイン済みである事。
・実行時にスカイプに操作を許可する事。
です。

起動方法についてはcscriptを推奨しますが別にwscriptでも問題ないはずです。
コードは以下になります。拡張子を「vbs」で保存してください。

t="C:\z\vrx.exe"
t="""" & t &""" "
Set c = WScript.CreateObject("Skype4COM.Skype","Skype_")
For Each i In c.ActiveChats:Next:Do:WScript.Sleep(5000):Loop
Public Sub Skype_AttachmentStatus(s):do while s=c.Convert.TextToAttachmentStatus("AVAILABLE"):c.Attach():exit do:loop:End Sub
Public Sub Skype_MessageStatus(m,s) :do while s=c.Convert.TextToChatMessageStatus("RECEIVED"):createobject("wscript.shell").run t & m.Body:exit do:loop:End Sub

一行目のtに代入している箇所を個々で「民安★TALK」を置いているパスに変更してください。

よく分からない人はフリーソフトでも読み上げれるソフトはあるみたいなので頑張ってそっちを探してください。
この記事はあくまでも東北ずん子で読み上げるという情報の提供用なのでそれ関係についてはなにかあればツイッターで相談にのりますが、Skype4COMでメッセージ送信やもっと複雑な事をやりたい等については個々でお調べください。

0 件のコメント:

コメントを投稿