vbsの作法 その95

概要

vbsの作法、調べてみた。
vbs見つけたので、やってみた。

参考にしたページ

サンプルコード

Option Explicit
Dim sapi
Set sapi = CreateObject("SAPI.SpVoice")
sapi.Speak "契約書だよ。そこに名前を書きな。"
Dim name
name = InputBox("契約書")
If Len(name) = 0 Then
    Wscript.Arguments(-1)
End If
WScript.Sleep 1000
sapi.Speak "フン。" & name & "というのかい。贅沢な名だねぇ。"
Dim newName
Randomize
newName = Mid(name, Int(Len(name) * Rnd + 1), 1)
WScript.Sleep 1000
sapi.Speak "今からお前の名前は" & newName & "だ。"
WScript.Sleep 1000
sapi.Speak "いいかい、" & newName & "だよ。分かったら返事をするんだ、" & newName & "!!"
Set sapi = Nothing

以上