このコードを作成します。
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
そして今、私はこれをウェブサイトに変換したいと考えています。どのように可能ですか??
このコードのインクルードは非常に簡単です。<script>
このタスクに人気のあるタグを使用する:
<html>
<head>
</head>
<body>
<input type="text" name="textinput" size="30">
<script type="text/vbscript">
Sub SpeakIt
Dim msg, sapi
msg= textinput.Value
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
End Sub
</script>
<input type="button" value="speak" onClick="SpeakIt">
</body>
</html>
script
上記のタグ、特に追加のtype
属性に注目してください。
また、このコードはごく少数のブラウザーでのみ実行されることに注意してください。最も有名なものの 1 つは Internet Explorer です。