FURUやんのScript忘備録

自分で作ったり調べたり踊ったりしてカスタマイズしたりどこかから引用したりしたScriptや手順の忘備録です　このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証とサポートが無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。

'http://tooljp.com/CommandBank/Windows/Speak/PC-speak.html
'文字を読み取りPCに喋らせる
Dim Message, Speak
Message=InputBox("PCに喋らせる文字を入力してください。","Speak")

if len(Message)>0 then
Set Speaker=CreateObject("sapi.spvoice")
Speaker.Rate = -2
Speaker.Volume = 100

Speaker.Speak Message
end if
Set Speaker = Nothing

このサイトに掲載のスクリプト・手順など全ての情報については、一切の保証が無いものとしてご利用下さい。PCの不具合、動作、データの破損などについて責任を負うことはできません。あくまでも自己責任となります。